мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Это старая версия документа!
Ветвление в программе
- Простой условный оператор - проверка условия
var x,y,z:integer; begin if x = 0 then begin writeln(y); end; end.
- Полный условный оператор - разветвление программы
var x,y,z:integer; begin if x < 0 then begin writeln('Ветка с отрицательным значением X'); end else begin writeln('Ветка с положительным или нулевым значением X'); end; end.
- Перебор вариантов
var x,y,z:integer; begin case x of 1 : writeln(x); 2, 4, 5 : writeln(y); 7 .. 9 : writeln(z) else writeln ('Ошибка') end; end.