Помогите исправить ошибки. Для заданной функции вывести ** экран значение функции которые...

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<br> begin
r:=sqr(d/3)*d/3-cos((sqr(d))/3,7)-sqrt(d-1,2);
if(r>=-1) and(r<=1) then<br> Writeln ('pri d=', d:6:2, ' r=', r:6:2);
d:=d+h;
end;
end.

---

Comments

Так, первый вопрос - зачем устанавливать h, а потом запрашивать его ввод ещё раз?

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<br>r:=sqr(d/3)*d/3-cos((sqr(d))/3.7)-sqrt(d-1.2);
if(r>=-1) and(r<=1) then<br>Writeln ('pri d=', d:6:2, ' r=', r:6:2);
d:=d+h;
end;
end.

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