мета-данные страницы
  •  
Загрузка не удалась. Возможно, проблемы с правами доступа?

Это старая версия документа!

Ветвление в программе

FIXME

Простое ветвление
var 
  x,y,z:integer;
begin
  if x = 0 then
  begin
    writeln(y);
  end
  else
  begin
    writeln(z);
  end;
end.
Перебор вариантов
var 
  x,y,z:integer;
begin
  case x of
    1: writeln(x);
    2,4,5: writeln(y);
    7..8,9: writeln(z)
  else
    writeln ('Ошибка')
  end; 
end.