var
x, y: real;
i:integer;
begin
for i := 1 to Trunc((b - a) / h + 1) do
begin
x := a + (i - 1) * h;
y := exp(sin(x)) * cos(x);
writeln('x=', x:4:1, ' y=', y)
end
end.
Ваш комментарий к ответу:
Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.