Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Составить программу для вычисления функции Y=x^2 Sinx+1 на отрезке [0;1] с шагом h=0,1

Ответ оставил Гость

const h=0.1;
var a, b, x, y: real;
begin
writeln(Otrezok [0,1] s shagom 0.1);
a:=0;
b:=1;
writeln(--------------------------);
writeln(| X | Y |);
writeln(--------------------------);
x:= a;
while x<= b do begin
y:=sqr(x)*sin(x)+1;
writeln(|, x:9:2, | , y:9:2, |);
x:= x+h;
end;
writeln(--------------------------);
end.