Страница 1 из 1
Pascal. Вычислить функцию.
Добавлено: 13 дек 2008, 21:11
Sanya4742
Пожалуйста, помогите решить задачу!
Задан массив чисел X [1.. 15].
Определить значение переменной y.
A2 + 17,8 * 103 / cos2(A2)+M1*A2 , если А2 > 0
y =
0,0023+A2*M1 , если А2 ≤ 0
Re: Pascal. Вычислить функцию.
Добавлено: 13 дек 2008, 21:18
Naeel Maqsudov
Перенесено в отдельную тему
Re: Pascal. Вычислить функцию.
Добавлено: 13 дек 2008, 22:27
demon416
cos2 - косинус в квадрате?
откуда брать а2 и м1?
куда тыкать массив x?
одним словом Sanya4742,давай полное условие
Re: Pascal. Вычислить функцию.
Добавлено: 14 дек 2008, 06:44
Sanya4742
A2 - Сумма положительных элементов массива X,
М1 - количество элементов массива X, значения которых меньше А1.
А1 - сумма элементов массива X.
Вот все данные.
Да, там cos в квадрате.
И ещё там не 103, а 10 в 3-ей степени.
Re: Pascal. Вычислить функцию.
Добавлено: 16 дек 2008, 12:11
Хыиуду
Код: Выделить всё
for i:=1 to 15 do inc(A1, x[i]);
for i:=1 to 15 do begin
if x[i]<A1 then inc(M1);
if x[i]>0 then inc(A2);
end;
if A2<=0 then y:=0.0023+A2*M1
else y:=A2 + 17.8 * 1000 / sqr(cos(A2))+M1*A2;