Используя два вида операторов цикла составить программы табулирования функции - Pascal ABC

Формулировка задачи:

Используя два вида операторов цикла составить программы табулирования функции y=f(cos (1/x)) на отрезке [pi/4, 4/pi] с шагом h=(b-a)/m, где m – заданное число. Помогите пожалуйста.

Код к задаче: «Используя два вида операторов цикла составить программы табулирования функции - Pascal ABC»

textual
function f(x:real):real;
begin
f:=cos(1/x);
end;
var a,b,h,x,y:real;
    m:integer;
begin
a:=pi/4;
b:=4/pi;
write('Введите m=');
readln(m);
h:=(b-a)/m;
//в цикле while..do
x:=a;
while x<b+h/2 do
 begin
  writeln('x=',x:4:2,'  y=',f(x):6:4);
  x:=x+h;
 end;
writeln;
//в цикле repeat..until
x:=a;
repeat
writeln('x=',x:4:2,'  y=',f(x):6:4);
x:=x+h;
until x>b+h/2
end.

15   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ