7 Кратно 7
б). Сокращенная форма записи
if условие then оператор_1;
if условие then
begin
оператор_1;
. . .
оператор_n;
end;
Работа оператора If
Если проверяемое условие истинно (true), то выполняется оператор1, записанный за служебным словом then, а затем следующий в программе оператор.
Если проверяемое условие ложно (false), то выполняется следующий в программе оператор.
Пример2:
Дано целочисленное число X. Определить является ли это число отрицательным, то возвести это число в квадрат , иначе - оставить X без изменений.
program primer1;
var x:integer;
begin
writeln('Введите число');
readln(x);
if x<0 then x:=sqr(x);
writeln('x = ',x);
end.
Результат:
Введите число
-2
x = 4
Пример3:
Даны числа X и Y. Определить является ли число X отрицательным, если это так то возвести X в квадрат а Y в куб , если нет оставить X и Y без изменений.
program primer1;
v
Результат
Введите числа x и y
-1 3
x = 1
ar x,y:integer;
begin
writeln('Введите числа x и y');
readln(x,y);
if x<0 then
begin
x:=sqr(x);
y:=sqr(y)*y;
writeln('x = ',x,’ y = ‘,y);
end.
Оператор выбора (Case) предназначен для выбора одного из нескольких возможных вариантов выполнения программы в зависимости от значения выражения.
Полная форма записи Сокращенная форма записи
-
Case выражение of
Конст: оператор1;
Конст 2: оператор2;
…
Конст N: оператор n
Else оператор n+1
End;
Case выражение of
Конст 1: оператор1;
Конст 2: оператор2;
…
Конст N: оператор n
End;
где Case(выбор), of (из), End (конец) - служебные слова; выражение - должно целочисленного или символьного (char) типа; Конст 1, Конст 2, Конст N - возможные значения выражения(метки варианта), причем в одной строке их может быть несколько через запятую.
Работа оператора: 1.Вычисляется значение выражения. 2.Это значение сравнивается с константами, стоящими после слова of 3.Если значение выражения равно какой-либо константе, то выполняется оператор, стоящий после этой константы. 4.Если значение выражения не совпадает ни с какой константой, то управление передается оператору, записанному после слова Else ( при полной форме записи) или оператору, следующему после слова End;
Если вместо одного оператора в строке нужно использовать несколько, то используют операторные скобки Begin … End;
Пример 4:
При вводе числа от 1 до 7 вывести на экран название соответствующего дня недели.
Program example; Var a:integer; Begin Writeln('введите число от 1 до 7'); Read(a); Writeln('введенному числу соответствует'); Case a of 1: Writeln('понедельник'); 2: Writeln('вторник'); 3: Writeln('среда'); 4: Writeln('четверг'); 5: Writeln('пятница'); 6: Writeln('суббота'); 7: Writeln('воскресенье') Else Writeln('нет такого дня недели!') End; End.
При использовании оператора Case можно указывать диапазон допустимых значений.
Пример 5:
Определить введена ли как символьная переменная цифра
Pogram vibor2;
Var a:char;
Readln(a); Begin
Case a of '0'..'9': Writeln('цифра!') Else Writeln('не цифра!') End;
End.
Пример 6: Определить по номеру месяца количество дней
|
|
