Просто добавить условие, что делить на 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
Блок-схема в среде программирования-3
Ввод данных и исправление ошибок -4
Вывод-5
№2
В паинте нарисовал
№3
program z1
var r;d: real;
begin
readln (r);
d=2r;
writeln (d);
end.
№5
6-12
7-14
Ясно, что между кинотеатром и булочной находятся аптека и универсам. Из фразы "<span>второй дом после универсама- это ..." следует, что существуют два дома после универсама.</span> А это означает, что универсам второй по порядку. Тогда аптека - третья.
<span>следующий дом после кинотеатра- это <em>универсам</em>
второй дом после универсама- это <em>аптека</em>
второй дом после кинотеатра- это <em>аптека</em>
кинотеатр называется "<em>Сказка</em>"
следующий дом после <em>универсама</em>- это аптека.
предыдущий дом перед аптекой - это <em>универсам</em>
предыдущий дом перед <em>аптекой</em>- это универсам.</span>
Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.
1110102<span> = 2</span>5*1 + 24*1 + 23*1 + 22*0 + 21*1 + 20*0 = 32 + 16 + 8 + 0 + 2 + 0 = 58
Ответ: 1110102<span>=58</span>
