Информатика задача на цикл.
Используя Repeat
- Until
Через Pascal
Фото снизу
Const xn=-1.5; xk=1.5; h=0.1;
var x,y:real;
begin
x:=xn-h;
writeln( x y);
repeat
x:=x+h;
y:=2*exp(-x)*cos(1.7*x-0.3);
writeln(x:4:1,y:7:3);
until x>=xk;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
