[vasque]

такая история..задали на дом..
но вот проблема: писав эту программу я хотел, что бы после ввода 3-х переменных программа спрашивала, решать ли за тиоремой Виета(если то возможно), или решать стандартным способом...так как мне задать это "решать ли"?
вот код программы

заранее спасибо=)

Код:

 uses SysUtils;


var a,b,c,x1,x2, D: real;

begin
writeln('pozvyazok kvadratnogo rivnyanna');
writeln('input a');
readln(a);
writeln('inpub b');
readln(b);
writeln('input c');
readln (c);
if a=0 then
if b=0 then
begin
writeln ('rivnyanna rozvyazkiv nemae');
readln;
end;


if a=1 then
repeat
  begin
    x1:=random(1000)-100;
    x2:=random(1000)-100;
    end;


    until (x1+x2=b) and (x1*x2=c)
    else
    begin
    c:=c*a;
    repeat
    begin
     x1:=random(1000)-100;
     x2:=random(1000)-100;
     end;
     until (x1+x2=b) and (x1*x2=c);
    x1:=x1/a;
    x2:=x2/2;
  end;
  writeln('x1=',x1:9:3);
  writeln('x2=',x2:9:3);
  writeln('press enter');
  readln;
  halt;

  D:=sqr(b)-4*a*c;
  writeln('D=',d);
  if D<0 then
  begin
  writeln('Rivnyannya ne mae diysnyh rozvyanziv');
  readln;
  end;
  writeln(x1);
  writeln(x2);
  readln;

end.

Админ: Учимся пользоваться тегами по назначению!

[angvelem]

Это уже на ваше усмотрение. Можно придумать "вагон" вариантов, CheckBox, RadioButton, MessageBox и т.д.

[vasque]

можно поподробнее..с делфи только неделю знаком..

[vasque]

P.S. Это консольный проект..

[angvelem]

Ну наверное, оптимально будет использовать CheckBox. "Кидаете" на форму данный контрол и в процедуре/функции опрашиваете его:

Код:

  if CheckBox1.Checked then
  begin
    // 1 вариант решения
  end
  else
  begin
    // 2 вариант решения
  end;

Обязательно консольное?

Код:

var
  St : String;
begin
  ReadLn(St);
  if (St = 'y') or (St = 'Y') then
  begin
    // 1 вариант решения
  end
  else
  begin
    // 2 вариант решения
  end;
  ...
end;

[vasque]

да, обязательно=(
Спасибо+)

[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, Messages, SysUtils;

function GetConsoleWindow(): HWND; stdcall; external 'Kernel32.dll';

begin
  if MessageBox(GetConsoleWindow, 'Vista?', 'Квадратное уравнение',
  MB_YESNO or MB_ICONQUESTION)=IDYES then
  begin
    Writeln('Vista');
  end else
  begin
    Writeln('!Vista');
  end;
  Readln;
end.