ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
17.11.2008, 11:55
|
|
Новичок
Регистрация: 16.11.2008
Сообщений: 23
Провел на форуме:
84043
Репутация:
11
|
|
Народ срочно помогите плиз, надо на паскале написать 4 проги:
Составить программу:
для определения среднего арифметического и среднего геометрического трёх действительных чисел
Составить программу для вычисления:
 
Код:
program 1
uses vincrt;
var x,y,a,s,z: real;
begin
write ('x='), readln (x);
write ('y='), readln (y);
a:=cos(1+cos(x-y)/(x/y)+sqr(y))
s:=cos(sin(ln(abs(x/y))))
if x*y < 1/2 then z:=a*a*a
else if x*y >= 1/2 then z:=s*s*s
write ('z:=')
end
составить программу, которая определяет принадлежит ли точка с координатами (x,y) заштрихованной области.
Координаты точки ввести с клавиатуры:
тут скорее не знаю формулу для вычисления программы - саму прогу допёр как написать примерно.
Составить программу для вычисления таблицы значений функции f(x) для x принадлежащего к [a,b]
с заданным шагом изменения x:
 
Это вообще незнаю как сделать, помогите плиз.
Чем быстрее тем лучьше, Заранее благодарен за помощь.
Последний раз редактировалось AgS; 17.11.2008 в 20:11..
|
|
|
17.11.2008, 13:09
|
|
Познающий
Регистрация: 21.09.2008
Сообщений: 42
Провел на форуме:
127017
Репутация:
61
|
|
Сообщение от AgS
Народ срочно помогите плиз, надо на паскале написать 4 проги
Бесплатно никто писать программы тебе не будет с нуля.
Сделай хоть что-то, и напиши в каких моментах у тебя не получается.
|
|
|
|
17.11.2008, 15:03
|
|
Новичок
Регистрация: 09.11.2008
Сообщений: 15
Провел на форуме:
59870
Репутация:
16
|
|
Сообщение от AgS
Народ срочно помогите плиз, надо на паскале написать 4 проги:
Составить программу:
для определения среднего арифметического и среднего геометрического трёх действительных чисел
...
Чем быстрее тем лучьше, Заранее благодарен за помощь.
Не ленись, не зевай!
Последний раз редактировалось Cereus; 17.11.2008 в 16:20..
|
|
|
|
17.11.2008, 16:28
|
|
Новичок
Регистрация: 09.11.2008
Сообщений: 15
Провел на форуме:
59870
Репутация:
16
|
|
Всем доброго времени суток.
Мне необходима помощь: пишу программу под винду на Delphi7, необходимо чтобы при закрытии появлялся значек/кнопка в системном трее. При клике на этот значек окно программы открывается. Только если можно - подробно, с комментариями
Последний раз редактировалось Cereus; 17.11.2008 в 16:35..
|
|
|
|
17.11.2008, 17:07
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Cereus в раздел Делфи запости. Тема поднималась дохрена раз, посмотри на ориентированном форуме, типа forum.sources.ru или в БД Делфи
|
|
|
|
17.11.2008, 20:19
|
|
Постоянный
Регистрация: 01.09.2007
Сообщений: 866
Провел на форуме:
2022674
Репутация:
1224
|
|
Сообщение от AgS
Народ срочно помогите плиз, надо на паскале написать 4 проги:
Составить программу:
для определения среднего арифметического и среднего геометрического трёх действительных чисел
Составить программу для вычисления:
Код:
program 1
uses vincrt;
var x,y,a,s,z: real;
begin
write ('x='), readln (x);
write ('y='), readln (y);
a:=cos(1+cos(x-y)/(x/y)+sqr(y))
s:=cos(sin(ln(abs(x/y))))
if x*y < 1/2 then z:=a*a*a
else if x*y >= 1/2 then z:=s*s*s
write ('z:=')
end
составить программу, которая определяет принадлежит ли точка с координатами (x,y) заштрихованной области.
Координаты точки ввести с клавиатуры:
тут скорее не знаю формулу для вычисления программы - саму прогу допёр как написать примерно.
Составить программу для вычисления таблицы значений функции f(x) для x принадлежащего к [a,b]
с заданным шагом изменения x:
Это вообще незнаю как сделать, помогите плиз.
Чем быстрее тем лучьше, Заранее благодарен за помощь. задачи ведь легкие...
и действительно бесплатно делать никто не будет,тем более 4 о_О
|
|
|
|
17.11.2008, 20:53
|
|
Новичок
Регистрация: 16.11.2008
Сообщений: 23
Провел на форуме:
84043
Репутация:
11
|
|
Sinay извини конечно, если я только начал заниматься этим а ты занимаешься давольно давно то конечно тебе это легко, если бы я знал как сделать наверно просто так бы не написал? Если поделу не пишите то нахрена форум заполнять тупой информацией??
|
|
|
|
17.11.2008, 22:22
|
|
Новичок
Регистрация: 17.11.2008
Сообщений: 1
Провел на форуме:
9532
Репутация:
0
|
|
Нужно найти сумму положительных элементов строк , их записать в массив , массив с результатом вывести на экран примерно так : b = [1,4,6......] , где 1,4,6.... - суммы положительных элементов строк.
Сумму положительных я нахожу, но как их в новый массив записать - хз. Ошибку выдает.
Надеюсь на помощь ...
#include <iostream.h>
#include <conio.h>
int main()
{
int m,i,j;
double sum=0;
cout << "Enter size of matrix:";cin >> m;
double **a = new double*[m]; // Память под массив
for(int i=0;i<m; i++)
{
a[i] = new double [m];
}
for(i=0;i<m;i++)
{
for (j=0;j<m;j++)
{
cout << "\nEnter a[" <<i+1<< "," <<j+1<< "]=";cin >> a[i][j];
}
}
cout<<"\nAmount of not negative elements in rows : "<<endl;
for(int i=0; i<m; i++) // Находим сумму положительных
{ // элементов строк
for(int j=0;j<m;j++)
{
if(a[i][j]>0)
{
sum+=a[i][j];
}
sum=0;
}
}
for (int i = 0; i < m; i++) // Освобождение памяти
{
delete [] a[i];
}
getch();
return 0;
}
|
|
|
|
17.11.2008, 22:39
|
|
Постоянный
Регистрация: 01.09.2007
Сообщений: 866
Провел на форуме:
2022674
Репутация:
1224
|
|
Сообщение от AgS
Sinay извини конечно, если я только начал заниматься этим а ты занимаешься давольно давно то конечно тебе это легко, если бы я знал как сделать наверно просто так бы не написал? Если поделу не пишите то нахрена форум заполнять тупой информацией??
)))
проблема в том,что это стандартные задачи,которые проходят в школе,пишут в учебниках
они решаются стандартными средствами
|
|
|
|
17.11.2008, 22:46
|
|
Постоянный
Регистрация: 01.09.2007
Сообщений: 866
Провел на форуме:
2022674
Репутация:
1224
|
|
1)я бы оформил функцией вычисляющей f и используй стандартные функции паскаля
2)ifом проверяй по абциссе и ординате и все
3)for i:= 1 to n то выражение,а вместо х подставляй i mod 10
вроде все
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
