Question

Крик о ! информатики, вы pascal abc вычислить функцию y=f(x) на отрезке [a,b] с шагом н. на каждом шаге выводить на печать значения переменных х и у. используйте цикл с предусловием и цикл с постусловием. вычисляемая функция y=0.5*x+sin^2(x) a=0 b=3п h=п/2 жду текст программы

Answer 1

program abc;
uses crt;
var a,b,x,y,h:integer;
begin 
h:=п/2;
a:=0;
b:=3*п;
x:=a;
y:=0;

{цикл с предусловием:}
while x<=b do
y:=0.5*x+sin^2(x);
write(x,y);
x:=x+h;

{цикл с постусловием:}
repeat
y:=0.5*x+sin^2(x);
write(x,y);
x:=x+h;
until x>(b+h);

end.