Условный оператор в программировании на Pascal
Для корректной работы программы необходимо четко знать структуру и синтаксис, поскольку неверная запись приводит к багам. Турбо Паскаль относится к строгим языкам программирования, поэтому малейшая погрешность в коде приводит к возникновению ошибок. Зарезервированное слово if переводится как «если».
Структура условного оператора имеет следующий вид:
- Блок проверки условия.
- Ветка TRUE (истинность).
- Ветка FALSE (ложь).
Последний элемент необязателен. Следует также знать булеву алгебру при составлении условий. Для этого применяются специальные таблицы истинности. В программной интерпретации структура выглядит таким образом:
if (<логическое выражение>) then // проверка на истинность — ветка истинности
begin
//код, который выполняется при истинном значении логического выражения
end else //ложная ветка
begin
//код, выполняемый при ложных значениях
end.
Следует отметить, что точку с запятой перед else ставить не нужно. Существуют полные и неполные формы условного оператора. Первые включают все зарезервированные слова и ветки if-else. Если необходимо проверить только одно условие, то можно конструкцию else опустить. Программисты рекомендуют писать код без лишних вхождений. Когда есть возможность упростить запись, тогда и нужно это делать. Для простой программы это не имеет значения. При проектировании сложных продуктов, код которых состоит из множества строк, это существенно «ударит» по производительности.
Пример программы
Существует определенный тип задач на условный оператор в Паскале. Примером является нахождение корней квадратного уравнения. Для составления программы следует воспользоваться алгоритмом на рисунке 1. Код имеет такой вид:
uses crt;
Var a, b, c, D, x, x1, x2: Real;
Begin
Writeln ('Введите коэффициенты уравнения (a, b, c)' );
readln (a, b, c);
If a = 0 Then
If a = 0 Then
If a = 0 Then Writeln ('x - любое число')
Else Writeln ( 'Корни отсутствуют!')
Else
Begin
x := - c / b;
Writeln ('x=', x : 8 : 3);
End
Else
Begin
D := sqr(b) - 4 * a * c;
If D<0 Then Writeln ('Корней нет!')
Else
Begin
x1:= (- b + sqrt( D )) / (2 * A);
X2:= (- b - sqrt( D )) / (2 * a);
Writeln ('x1=', x1 : 8 : 3, ' x2=', x2 : 8 : 3);
End;
End;
End.
Код программы содержит строчные и заглавные символы. Они не являются различными переменными, поскольку в Паскале не имеет значения регистр, по которому неизвестные не могут отличаться. Следует также обратить внимание на переменные и их тип, который указан после служебного слова var. Оно служит для инициализации последних. Запись x1 : 8 : 3 значит формат и размерность отображения на экране значения переменной вещественного типа. При написании программы следует следить за скобками, поскольку компилятор может выдать системное сообщение о том, что после выражения они ожидаются.
Оператор if-else применяется во всех языках программирования для ветвления кода. Это очень удобно и позволяет реализовать множество механизмов в программном обеспечении.
