Лекция 5

сложной
задачи предпочтение следует
отдавать простым решениям

найти действительные корни квадратного уравнения

5.1. Пример алгоритма с разветвлением

и x2
d0
Действия, которые выполняются при d ≥ 0

Действия, которые выполняются при d>0

Действия, которые выполняются при d<0

Действия, которые выполняются при d=0

Да, d<0

Да, d>0

то управление передается на , если же

не выполнилось (<логическое выражение> = False),
то начинает работать <оператор 2>. После того, как один из этих двух
операторов отработал (или отсутствует), программа продолжает
выполняться линейно: начинает работать та ее часть, которая
находится непосредственно за условным оператором.

результат:

Контрольный пример 2: 2x2–8x+16=0
Исходные данные:
A=2 B= -8 С=16
Ожидаемый результат:


Контрольный пример

3: 2x2–8x+16=0
Исходные данные:
A=2 B= -8 С=8
Ожидаемый результат:

x1=1 x2=3

Действительных корней нет

x=2

и x2
d0
Действия, которые выполняются при d ≥ 0

Действия, которые выполняются при d>0

Действия, которые выполняются при d<0

Действия, которые выполняются при d=0

Да, d<0

Да, d>0

в себе других операторов.

Структурные операторы строятся из других операторов,

порядок выполнения которых должен быть последовательным (составные операторы и операторы над записями), определяемым условной передачей управления (условные операторы) или повторяющимся (операторы цикла).

Составной оператор — конструкция языка программирования, состоящая из нескольких простых команд (операторов) языка программирования, но участвующая в программе в качестве единого оператора.

сложной структурой
program Quadratic;
var
A,B,C,D,X,X1,X2: Real;
begin
Write(’Введите коэффициенты квадратного уравнения:’);
ReadLn(A,B,C);

D:=Sqr(B)-4*A*C;
if D<0 then
WriteLn(’Действительных корней нет’)
else
if D=0 then
begin
X:=-B/(2*A);
WriteLn(’X=’, X:5:1);
end
else
begin
X1:=(-B-Sqr(D))/(2*A);
X2:=(-B+Sqr(D))/(2*A);
WriteLn(’X1=’,X1:5:1,’ X2=’, X2:5:1);
end;
ReadLn;
end.

Протокол 5.1
Работа программы Quadratic при решении квадратного уравнения 2x2–8x+6=0
1. Печать сообщения
Введите коэффициенты квадратного уравнения:
2. Программа останавливается и ожидает, когда пользователь наберет строку ввода:
2–86
В результате A=2, B=–8, C=6.
3. Вычисление дискриминанта D:=Sqr(B)-4*A*C=(–8)2–4×2×6=16.
4. (D<0)=(16<0)=False
5. (D=0)=(16=0)=False
6. X1:=(-B-Sqr(D))/(2*A)=1
7. X2:=(-B+Sqr(D))/(2*A)=3
8. Печать сообщения «X1=1.0 X2=3.0».
9. Конец работы программы.

нет

Протокол 5.2
Работа программы Quadratic при решении квадратного уравнения 2x2–8x+16=0
1. Печать сообщения
Введите коэффициенты квадратного уравнения:
Программа останавливается и ожидает, когда пользователь наберет строку ввода:
2–816
В результате A=2, B=–8, C=16.
2. Вычисление дискриминанта D:=Sqr(B)-4*A*C=(–8)2–4×2×16= –64.
3. Печать сообщения «Действительных корней нет».
4. (D<0)=(16<0)=False
5. Конец работы программы.

Протокол 5.2
Работа программы Quadratic при решении квадратного уравнения 2x2–8x+8=0
1. Печать сообщения
Введите коэффициенты квадратного уравнения:.
Программа останавливается и ожидает, когда пользователь наберет строку ввода:
2–88
В результате A=2, B=–8, C=8.
2. Вычисление дискриминанта D:=Sqr(B)-4*A*C=(–8)2–4×2×8=0.
3. (D<0)=(0<0)=False
4. (D=0)=(16=0)=True
5. X:=-B/(2*A)=8/(2*2)=2
6. Печать сообщения «X=2.0».
7. Конец работы программы.

шрифтом Courier New с отступами. Принцип расстановки отступов:
В одной

строке печатается не более 1 простого оператора.
Если оператор составной и/или не может быть напечатан в одну строку – он размещается в нескольких строках. При этом все последующие строки печатаются с одинаковым отступом относительно первой строки. Стандарт рекомендует количество отступов брать кратным 2.

нет’)
else
if D=0 then
begin
X:=-B/(2*A);
WriteLn(’X=’, X:5:1);
end
else
begin
X1:=(-B-Sqr(D))/(2*A);
X2:=(-B+Sqr(D))/(2*A);
WriteLn(’X1=’,X1:5:1,’ X2=’, X2:5:1);
end;
end.
Write(’Введите коэффициенты квадратного

уравнения:’);
ReadLn(A,B,C);
D:=Sqr(B)-4*A*C;
if D<0 then
WriteLn(’Действительных корней нет’)
else
if D=0 then
begin
X:=-B/(2*A);
WriteLn(’X=’, X:5:1);
end
else
begin
X1:=(-B-Sqr(D))/(2*A);
X2:=(-B+Sqr(D))/(2*A);
WriteLn(’X1=’,X1:5:1,’ X2=’, X2:5:1);
end;
ReadLn;

if D

ReadLn;
end.

WriteLn(’Действительных корней нет’)

if D=0 then
begin
X:=-B/(2*A);
WriteLn(’X=’, X:5:1);
end
else
begin
X1:=(-B-Sqr(D))/(2*A);
X2:=(-B+Sqr(D))/(2*A);
WriteLn(’X1=’,X1:5:1,’ X2=’, X2:5:1);
end;

if D

D=0 then




else





ReadLn;
end.

begin
X:=-B/(2*A);
WriteLn(’X=’, X:5:1);
end

begin
X1:=(-B-Sqr(D))/(2*A);
X2:=(-B+Sqr(D))/(2*A);
WriteLn(’X1=’,X1:5:1,’ X2=’, X2:5:1);
end;

if D

D=0 then
begin


end
else
begin



end;
ReadLn;
end.

X:=-B/(2*A);
WriteLn(’X=’, X:5:1);

X1:=(-B-Sqr(D))/(2*A);
X2:=(-B+Sqr(D))/(2*A);
WriteLn(’X1=’,X1:5:1,’ X2=’, X2:5:1);

Требуется вывести их на экран дисплея в порядке возрастания.

Остается выяснить, в каком месте печатать c: после b, перед

a или между a и b.

if A

WriteLn(A:3,B:3,C:3) {вариант 1}
else
if A<=C then
WriteLn(A:3,C:3,B:3) {вариант 2}
else
WriteLn(C:3,A:3,B:3) {вариант 5}
else
if C<=B then
WriteLn(C:3,B:3,A:3) {вариант 6}
else
if C<=A then
WriteLn(B:3,C:3,A:3) {вариант 4}
else
WriteLn(B:3,A:3,C:3); {вариант 3}
ReadLn;
end.

Введите три целых числа:
2. Программа останавливается

и ожидает, когда пользователь наберет строку ввода:
758
В результате A=7, B=5, C=8.
3. (A≤B)=(7≤5)=False {Возможными остаются варианты 3, 4, 6}.
4. (C≤B)=(8≤5)=False {Возможными остаются варианты 3, 4}.
5. (C≤A)=(8≤7)=False {Остается вариант 3}.
6. Печать C, B, A. На экран выводится сообщение «578».
7. Конец работы программы.