Transcript 13. Условный оператор IF

?
Виды алгоритмических структур
Линейный алгоритм
Разветвляющийся алгоритм
Циклический алгоритм
Разветвляющиеся
алгоритмические
конструкции.
Условный оператор IF
Формы ветвления
Неполная
форма
Полная
форма
Да
Нет
Условие
Действие 1
Действие 2
Да
Действие
Нет
Условие
Полное ветвление
Begin
Начало
Ввод A
Да
Нет
A>0
X:=sqr(a)
X:=abs(a)
Вывод X
Конец
?
Writeln (‘Введите число’);
Readln(A);
Сформулируйте
If A>0
Then задачи
условие
X:=sqr(A)
Else
X:=abs(A);
WriteLn (X);
End.
Правила построения
полного оператора IF
If
логическое выражение
Then
Оператор 1
Else
Оператор 2
;
Перед ELSE ; не ставиться!
Неполное ветвление
Begin
?
Ввод A
Нет
Да
A>0
Writeln (‘Введите число’);
Readln(A);
Сформулируйте
If A>0
Then задачи
условие
A:=sqrt(A);
A:= sqrt(A)
WriteLn (A);
Вывод A
End.
Правила построения
неполного оператора IF
If
логическое выражение
Then
Оператор 1
;
Операции отношений
2
1
6
5
4
3
(5656- х/2)
- х/2 >>(x-100*(x-3))
x-100*(x-3)
С клавиатуры вводятся два различных числа. Если первое
число больше второго, то на экран выводится их сумма. В
противном случае – произведение.
Program Chisla;
Uses CRT;
Var
a,b : integer;
Begin
ClrScr;
Writeln (‘Введите два различных числа’);
Readln(a,b);
If a>b
Then
Writeln (‘Сумма чисел: ’, a+b)
Else
Writeln (‘Произведение чисел: ’, a*b);
End.
Практическая работа:
1. С клавиатуры вводится число
отличное от нуля. Определить
четное оно или нет.
2. С клавиатуры вводится
четырехзначный номер билета.
Определить является ли он
счастливым.
Практическая работа:
1. С клавиатуры вводится число,
отличное от нуля. Определить четное
оно или нет.
If
A mod 2 = 0
Then WriteLn (‘Число четное’)
Else WriteLn (‘Число нечетное’);
Практическая работа:
2. С клавиатуры вводится
четырехзначный номер билета.
Определить является ли он
счастливым.
x1 x2 x3 x4
If
4536
(x1+x2)=(x3+x4)
Then WriteLn (‘счастливый’)
Else WriteLn (‘несчастливый’);