Паскаль

[Мария_38]

помогите пожалуйста подправить задачу,во вторник зачет
задача звучит так - "Среди заданных действительных чисел найти те, которые являются корнями данного квадратного уравнения."
вот то что смогла сделать:

uses crt;
Var d,b,c,y:real;
a:array[1..20] of Real;
i,n,m:integer;
BEGIN
clrscr;
Repeat
Readln(n)
Until (n>=2) and (n<=20);
For i:=1 to n do
Readln (a[i]);
Readln (d,b,c);
m:=0;
For i:=1 to n do
Begin
y:=d*Sqr(a[i])+b*a[i]+c;
IF y=0 then
writeln (a[i]);
else m:=m+1;
end;
IF m:=n then
writeln ('net kornej')
END.

[Chudo4258]

синтаксические ошибки поправил, а так вроде програма работает правильно.

uses crt;
Var d,b,c,y:real;
a:array[1..20] of Real;
i,n,m:integer;
BEGIN
clrscr;
Repeat
Readln(n)
Until (n>=2) and (n<=20);
For i:=1 to n do
Readln (a[i]);
Readln (d,b,c);
m:=0;
For i:=1 to n do
Begin
y:=d*Sqr(a[i])+b*a[i]+c;
IF y=0 then writeln (a[i])
else m:=m+1;
end;
IF m=n then writeln ('net kornej')
END.

[bag]

Держи немного подправленный код:

uses crt;
Var
  d,b,c,y:real;
  a:array[1..20] of Real;
  i,n,m:integer;
BEGIN
  clrscr;
  Repeat
    Readln(n)
  Until (n>=2) and (n<=20);
  For i:=1 to n do
    Readln (a[i]);
  Readln (d,b,c);
  m:=0;
  For i:=1 to n do
  Begin
    y:=d*Sqr(a[i])+b*a[i]+c;
    IF y=0 then
      writeln (a[i])        { ; ne nado}
    else m:=m+1;
  end;
  IF m=n then               { vmesto := nuzhno =}
    writeln ('net kornej'); { dobavil ; }
END.

[bag]

Упс... Не успел Хотя, если подумать... Попробуйте ввести варианты корней 0.6 и любое другое. Коэффициенты: d=2, b=1, c=-1.32. Не работает?
Дело в том, что при работе с дробными числами y может и не равняться 0, но очень близок к нему. Поэтому лучше проверять y на близость к 0 с определенной точностью.
Подправленная программа:

uses crt;
Var
  d,b,c,y:real;
  a:array[1..20] of Real;
  i,n,m:integer;
BEGIN
  clrscr;
  Repeat
    Readln(n)
  Until (n>=2) and (n<=20);
  For i:=1 to n do
    Readln (a[i]);
  Readln (d,b,c);
  m:=0;
  For i:=1 to n do
  Begin
    y:=d*Sqr(a[i])+b*a[i]+c;
    IF abs(y)<0.00001 then
    begin
      writeln (a[i]);
      m:=m+1;
    end;
  end;
  IF m=0 then
    writeln ('net kornej');
END.

[Кинельски]

Блин в первые вижу такую сокращенную формулу квадратного уравнения,про ше было решить сравнение по старому, и каждый корень сравнить с задаными числами при совпадений вывести результат

[Мария_38]

спасибо за помощь

[Кинельски]

Сам новичок так что если есть ошибки не ругайте