Презентация, доклад по информатике на тему Ветвление в Паскаль

оператор>;
…
< оператор>;
end.

данных и перевод строки
Вывод данных

Операторы

Назначение

Правильный ответ: 1-6; 2-5; 3-1; 4-4; 5-2, 6-3.

Div;
Var a,b,c,d,n,m: integer;
begin
readln(a,b,c,d); {Ввод}
m:=a*d; {Числитель}
n:=b*c; {Знаменатель}
write(m,n); {Вывод}
end.

Иначе
{
Команды блок_иначе;
}

<серия команд 2>

Неполное ветвление:
if <условие> then < серия команд>

Серия 2

Серия команд

A,B,C: integer;
Begin
Write (‘Введи два числа’);
Read (A,B);
If A>B then C:=A else С:=В;
Write (‘Max = ’, C);
end.

Полное ветвление

возрастанию.

Программа:
Program Sort;
Var X,Y,С: integer;
Begin
Write (‘Введи два числа’);
Read (X,Y);
If X>Y then
begin
C:=X;
X:=Y;
Y:=C;
end;
Write (X,Y);
end.

Begin-end’овые скобки условного
оператора

Неполное ветвление

число’); Read (X);
If X>0 then Write (‘Введено положит. число’)
else Write (‘Введено отрицат. число’) ;
end.

Определите ответ при Х=0

If X=0 then write (‘Число равно нулю’) else If X>0 then Write (‘Введено положит. число’) else Write (‘Введено отрицат. число’) ;
end.

номеру.
Например: вводится 1, а на экране появляется слово «Понедельник».
2. В переменную S вводится возраст Саши, а в переменную M возраст Маши. В качестве результата на экран выводится фраза «Саша старше Маши» или «Маша старше Саши».
3. Решите предыдущую задачу, учитывая возможность одинакового возраста Саши Маши. В таком случае выведите ответ «Саша и Маша – ровесники»