Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Вычислить значение функции y=a-bcd-cx², от x=m до первого у<-10. Решите пожалуйста, очень срочно

Ответ оставил Гость

Program Dafnochka;
uses crt;
var
  a,b,c,d,m,t,x,y:real;
begin
  writeln(*** alphaues is thinking... ***);
  writeln(***          OK             ***);
  writeln();
  writeln(Введите числа:);
  write(a: ); readln(a);
  write(b: ); readln(b);
  write(c: ); readln(c);
  write(d: ); readln(d);
  write(m: ); readln(m);
  writeln(Введите шаг табуляции t: ); readln(t);
  y:=1;
  x:=m;
  while y>=-10 do
    begin
      y:=a-b*c*d-c*x*x;
      writeln(x=,x:7:2,   y=,y:7:2);
      x:=x+t;
    end;
end.