Просто добавить условие, что делить на 0 нельзя.
Delphi/Lazarus
------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c, d, x1, x2: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
if a <> 0 then
begin
d := sqr(b) - 4 * a * c;
if (d > 0) then
begin
x1 := (-b+sqrt(d))/(2*a);
x2 := (-b-sqrt(d))/(2*a);
Label1.Caption := 'x1 = ' + FloatToStr(x1);
Label2.Caption := 'x2 = ' + FloatToStr(x2);
end
else
if d = 0 then
begin
x1:=-b /(2*a);
x2:=x1;
Label1.Caption := 'x1 = ' + FloatToStr(x1);
Label2.Caption := 'x2 = ' + FloatToStr(x2);
end
else
if d < 0 then
ShowMessage('Корней нет');
end
else
if (a = 0) and (b = 0) and (c = 0) then
ShowMessage('X = любое.')
else
if (a = 0) and (b = 0) then
ShowMessage('Решений нет.')
else
if (a = 0) then
begin
x1 := (-c)/b;
Label1.Caption := 'x = ' + FloatToStr(x1);
Label2.Caption := '';
end;
end;
ответ: 1-Россия, 2-Китай, 3-Украина, 4-Германия, 5-Италия
Оперативная память : RAMRecovery Tool v1.7
Архиватор : WinRar
Антивирусная рограмма: Kaspersky
Коммуникационная программа: ICQ
Система программирования: Delphi
Текстовый редактор: WordPad
Графический редактор: mspaint
Редактор презентаций : ms power point
Электронные таблицы: excel
Электронное учебное издание(учебники , тренажер , энциклопедия...) : PHP and MySQL - Andy Harris
<span>Игра : GTA 5</span>
program p1;
var
y, e, x, d:real;
begin
y:=ex * d;
readln(e);
readln(x);
readln(d);
writeln(y);
end.
<span>10001 = 10011100010001</span>2
<span>111011 = 11011000110100011</span>2
100011 = 110000110101010112
