Программирование на языке высокого уровня TURBO PASCAL. Краснов С.В. - 24 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

24
2.2.1. Ветвление полное:
Примечание:
1. В операторе IF перед ELSE точка с запятой не ставится.
2. Условный оператор управляет только одним оператором, поэтому, если
после ключевых слов Then и ELSE требуется произвести более одного
действия, то необходимо использовать операторные скобки Begin End.
3. Внутри операторных скобок после каждого оператора точка с запятой
ставится.
Пример выполнения задачи на полное ветвление
Задача № 1. Вычислить корни квадратного уравнения общего вида
ax
2
+ bx + c = 0 в области действительных чисел.
Программа имеет вид :
(* ОПРЕДЕЛЕНИЕ КОРНЕЙ КВАДРАТНОГО УРАВНЕНИЯ *)
PROGRAM KU; {Имя программы}
VAR {Раздел описания переменных}
A,B,C:INTEGER; {Коэффициенты уравнения}
D,X1,X2:REAL; {Дискриминант и корни уравнения}
BEGIN
WRITE('ВВЕДИТЕ КОЭФФИЦ. А,В,С '); {Вывод сообщения}
READ (A,B,C); {Ввод данных с клавиатуры}
WRITELN ('A=',A,'B=',B,'C=',C); {Эхо-печать ввода исходных
данных}
D:=SQR(B)-4*A*C; {
Вычисление дискриминанта}
IF D>0 THEN {Проверка выполнения условия}
BEGIN
X1:=(-B+SQRT(D))/(2*A); {Выполняемые действия }
X2:=(-B-SQRT(D))/(2*A); {Если условие ИСТИНА}
WRITELN ('X1=',X1,'X2=',X2); {Вывод результата }
END
Опер_1
Опер_2
I > Iк
Опер_1
Опер_2
IF I < = Iк THEN
BEGIN
Опер_1;
Опер_2;
END
ELSE
BEGIN
Опер_1;
Опер_2;
END;

Страницы