Информатика задача ** цикл. Используя Repeat - Until Через Pascal Фото снизу

Question

Информатика задача на цикл.



Используя Repeat
- Until
Через Pascal
Фото снизу

---

Answer 1

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.