profile
Опубликовано 6 лет назад по предмету Информатика от JustDolt

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



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

  1. Ответ
    Ответ дан petyaGavrikov
    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.
Самые новые вопросы