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



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

const xn=-1.5; xk=1.5; h=0.1;var x,y:real; beginx:=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.