Question

Помогите исправить ошибки. Для заданной функции вывести на экран значение функции которые лежат в пределах от -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.

Answer 1

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.

Как-то так. Не ставь запятые для дробной части - используются точки, это важно