Цитата:
Сообщение от Deomurg
Вопрос, можно ли 2-ю задачу написать хоть как нибудь, я имею ввиду выполнить без отрицательных значений параметра дополнительную чать или хоть как нибудь преобразовать мой вариант задачи что бы эта часть работала?
|
Вы знаете, единственное, что могу предложить - это вот такой глупейший вариант. Потому что если убытков быть не может, то и дальнейший анализ становится бессмысленным:
Код:
program prog_8;
uses
crt;
var
y:array[1991..2001] of real;
i:integer;
begin
clrscr;
writeln('god velichina dohoda');
for i:=1991 to 2001 do
begin
y[i]:=100*(abs(cos(2*i)/(3*i-Pi))+2.54);
writeln(i,' ',y[i]:5:3);
end;
readln;
END.
Кстати, обратите внимание: Вашу константу я выбросил за ненадобностью: Паскаль имеет "встроенную" константу (функцию) Pi, отдающую число Архимеда.