Mathian
Мастер
Всем Хай!
В данном уроке речь пойдёт об: Условных операторах и операторах выбора.
[HR][/HR]В данном уроке речь пойдёт об: Условных операторах и операторах выбора.
В Паскале разветвляющиеся алгоритмы позволяют реализовать условный оператор. Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие.
Структура условного оператора:
PHP:
IF <условие> THEN <оператор1>
ELSE <оператор2>;
В условном операторе после then, а также после else по синтаксису может стоять только один оператор. Если же при выполнении(или наоборот) заданного условия - надо выполнить не одно действие, а несколько, то их надо объединить в единый, составной оператор, т.е. заключить эту последовательность действий в операторные скобки begin... end.
PHP:
Program Primer;
uses crt;
var a,b:integer;
begin
clrscr;
writeln(‘Введите 2 числа(через пробел):’);
readln(a,b);
If a<b then writeln(a,'<',b)
else if a=b then writeln(a,'=',b)
else writeln(a,'>',b);
End.
PHP:
if <условие> then <оператор1>;
PHP:
Program Primer;
uses crt;
var a:integer;
begin
writeln('Введите число:');
readln(a);
if a>0 then a:=a*2;
writeln(a);
Readln;
End.
Оператор варианта Case служит для выбора одного из возможных вариантов в ситуации, которая может иметь несколько возможных исходов. В зависимости от значения переменой выполняется оператор, помеченный соответствующей константой. Если же ни одна константа не подходит, выполняется оператор, записанный после else.
Структура(Формат):
PHP:
Case <порядковая_переменная> of
<Значение_1>: <оператор_1>;
<Значение_2>: <оператор_2>;
…
<Значение_n>: оператор_n>;
<Else оператор>;
End;
Значения можно перечислить через запятую или указать Диапазон, Пример:
PHP:
Case i of
1,2,3:Writeln('Еденицы'); {Через запятую от 1 до 3}
100..999: Writeln('Сотни, десятки, единицы'); {Диапазон От 100 до 999}
End;
PHP:
Program den;
var a:integer;
Writeln('Введите номер месяца(1-12):')
Case a of
1: writeln ('Январь');
2: writeln ('февраль');
3: writeln ('Март');
4: writeln ('Апрель');
5: writeln ('Май');
6: writeln ('Июнь');
7: writeln ('Июль');
8: writeln ('Август');
9: writeln ('Сентябрь');
10: writeln ('Октябрь');
11: writeln ('Ноябрь');
12: writeln ('Декабрь');
Else writeln ('В году 12 месяцев(1-12).');
End;
В данном уроке использовались материалы взятые на просторах интернета.
С вами был Лев Попов((Lev_Popov)).
Удачного обучения! xD
