Даны Три Квадратных Уравнения

Тема в разделе "Pascal and Delphi", создана пользователем allexey, 18 сен 2013.

Статус темы:
Закрыта.
  1. allexey

    allexey New Member

    Регистрация:
    13 июн 2013
    Сообщения:
    1
    Симпатии:
    0
    Даны три квадратных уравнения (ax^2+bx+c=0 , bx^2+ax+c=0 , cx^2+ax+b=0). Определить процедуру, позволяющую распознавать наличие вещественных корней в квадратном уравнении.

    Вот у меня сделано практически всё, но что то не то, на экран выводится сразу 3 сообщения Введите элементы квадратного уравнения, а надо чтобы постепенно, ввёл элементы, и следующее появилось. и чтоб вот на каждом выводилось сообщение, а вот на 2 вводе выводит true, перед этим пропадает окно, и это сообщение уже видно перед следующим запуском программы. вообще, исправьте программу пожалуйста.


    Program pr5;
    var a1,b1,c1,d:real;f:boolean;
    i:byte;
    procedure kvad(a,b,c: real; var res:boolean);
    begin
    res:=sqr:)) - 4*a*c>=0;
    end;
    begin
    for i:=1 to 3 do
    Writeln('Введите элементы квадратного уравнения');
    readln(a1,b1,c1);
    kvad(a1,b1,c1,f);
    if d<0 then writeln('Нет действительных корней') else
    if d=0 then writeln('1 действительный корень') else
    if d>0 then writeln('2 действительных корня');
    begin
    readln(a1,b1,c1);
    kvad(a1,b1,c1,f);
    writeln(i);
    end;
    readln
    end.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей