Помогите исправить ошибки. Для заданной функции вывести на экран значение функции которые лежат в пределах от -1 до 1 и соответствующие им значения аргумента на отрезке d∈[a;5] с шагом h=0,2 ЧТО не правильно ??? Program Tab; va...

Помогите исправить ошибки. Для заданной функции вывести на экран значение функции которые лежат в пределах от -1 до 1 и соответствующие им значения аргумента на отрезке d∈[a;5] с шагом h=0,2 ЧТО не правильно ??? Program Tab; var r,d,h,a:real; const h=0,2; begin repeat Writeln ('vasdas'); readln (a,h); until (a<5)and (a>=0); d:=a; while d<=5 do begin r:=sqr(d/3)*d/3-cos((sqr(d))/3,7)-sqrt(d-1,2); if(r>=-1) and(r<=1) then Writeln ('pri d=', d:6:2, ' r=', r:6:2); d:=d+h; end; end.
Гость
Ответ(ы) на вопрос:
Гость
Program Tab; var r,d,a:real; const h=0.2; begin repeat Writeln ('vasdas'); readln (a); until (a<5)and (a>=0); d:=a; while d<=5 do begin r:=sqr(d/3)*d/3-cos((sqr(d))/3.7)-sqrt(d-1.2); if(r>=-1) and(r<=1) then Writeln ('pri d=', d:6:2, ' r=', r:6:2); d:=d+h; end; end. Как-то так. Не ставь запятые для дробной части - используются точки, это важно
Не нашли ответ?
Ответить на вопрос
Похожие вопросы