Наш всеми любимый паскаль

Наш всеми любимый паскаль...
Подскажите, пожалуйста, как написать в паскале программу, чтобы она повторилась. Т. е. : есть программа для решения квадратных уравнений, но она решает только 1 уравнение и все, завершается. А как сделать так, чтобы можно было ввести новое уравнение и оно так же решалось (да вообще неограниченное кол-во уравнений)?

  • Добавь цикл с предусловием:
    while условие do begin
    действия
    end;
    будет повторять действия, пока условие истинно;

    или с постусловием:
    repeat
    действия
    until условие;
    будет повторять действия, пока условие ложно.
    Обращаю внимание, что repeat-until не требует операторных скобок begin-end и выполняет действия минимум один раз.
    Например:
    repeat
    {ввод и решение уравнения}
    write('Продолжить (y/n)?');
    read(ch)
    until ch='n';

  • делаешь цикл
  • repeat
    ...
    ...
    ...
    until (условие) ;

    или

    while (условие) do
    begin
    ...
    ...
    end ;

    for i=0 to 999999 do
    begin
    ...
    ...
    end ;

    вот три варианта (и это далеко не все варианты) .

  • (х-1)(х-1)=0, d=0, Х1=1, Х2=1 уравнение имеет 2 одинаковых корня!!!!