Операторы ветвления

Ветвление - такая форма организации действий, при которой в зависимости от выполнения некоторого условия совершается одна или другая последовательность действий

ИЛИ СОКРАЩЕННУЮ ФОРМУ(2)
1
2
КОМАНДА ВЕТВЛЕНИЯ
ИМЕЕТ ПОЛНУЮ (1)

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

Оператор ветвления в полном варианте
IF (условие) THEN (операторы) ELSE (операторы);
условие
записывается с помощью знаков сравнения
и принимает два значения: да или нет
Сложные условия составляют из простых с помощью логических операций (OR, AND, NOT)
IF A>B THEN max:=A ELSE max:=B;
IF (A>B)AND(A>C) THEN max:=A ELSE max:=100;

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

Да
Нет
A > B ?
B:=B*2

Оператор ветвления в неполном варианте
IF (условие) THEN (операторы);
IF A>B THEN B:=В*2;

Оператор передачи управления
GOTO метка;
метка
обязательно должна быть описана в блоке описания. В тексте программы ставится в той строке,
на которую передается управление. После метки
ставится двоеточие.
Program neo;
uses Graph;
var x:integer;
label 1;
begin
…
goto 1;
…
1: x:=10;

Программа,
рисующая 20
случайных
окружностей в
правой половине
экрана

Program krugi;
Uses Graph;
Var x,y,r,z,i,grDriver,grMode:integer;
Label 1;
Begin
grDriver:=detect;
initGraph(grDriver,grMode,’d:/tp/bgi’);
randomize;
for i:=1 to 20 do
begin
z:=random(15); y:=random(480); r:=random(100);
setcolor(z);
1: x:=random(640);
if x>340 then circle(x,y,r) else goto 1;
end;
readln;
closeGraph;
end.