Условный оператор. Блок. Оператор выбора
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: доклад по обж, сочинения по русскому языку
| Добавил(а) на сайт: Ozhogin.
Предыдущая страница реферата | 1 2 3 4 | Следующая страница реферата
IF num=1 THEN WRITELN('Вы довольно понятливы')
ELSE WRITELN('Вы ошиблись !!!');
READLN;
END.
Теперь попробуем записать условный оператор, реализующий более сложную логическую структуру. Пусть даны три числа d, m и y, содержащие число, месяц и год для некоторой даты; необходимо выяснить, правильна ли эта дата.
VAR d,m : Byte; y : Word; Valid : Boolean;
BEGIN WRITE('Введите дату '); READ(d,m,y);
IF (m=1)OR(m=3)OR(m=5)OR(m=7)
OR(m=8)OR(m=10)OR(m=12) THEN
IF (d>=1)AND(d<=31) THEN Valid:=TRUE
ELSE Valid:=FALSE
ELSE
IF (m=4)OR(m=6)OR(m=9)OR(m=11) THEN
IF (d>=1)AND(d<=30) THEN Valid:=TRUE
ELSE Valid:=FALSE
ELSE
IF m=2 THEN
IF (d>=1)AND(d<=28) THEN Valid:=TRUE
ELSE
IF d=29 THEN
IF (y MOD 4=0)AND(y MOD 100>0)
OR(y MOD 400=0) THEN Valid:=TRUE
ELSE Valid:=FALSE
ELSE Valid:=FALSE
ELSE Valid:=FALSE;
Рекомендуем скачать другие рефераты по теме: инновационная деятельность, кризис реферат.
Категории:
Предыдущая страница реферата | 1 2 3 4 | Следующая страница реферата
Главная