Question

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

Answer 1

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.