Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение


else, причем ветвь else в операторе Case необяза- тельна. Использованные здесь зарезервированные слова  Case


Download 0.99 Mb.
Pdf ko'rish
bet23/103
Sana05.05.2023
Hajmi0.99 Mb.
#1432201
TuriУчебно-методическое пособие
1   ...   19   20   21   22   23   24   25   26   ...   103
Bog'liq
Osnovy algoritmizacii i programmirovaniya

else, причем ветвь else в операторе Case необяза-
тельна. Использованные здесь зарезервированные слова 
Case, of
elseend имеют смысл вариантиз, иначеконец
Выражение, играющее роль селектора, должно принадлежать 
порядковому типу данных (то есть типу, имеющему конечное число 
значений). Например: IntegerBooleanChar
Кроме одиночных констант, в вариантах оператора Case могут 
использоваться диапазоны значений и списки. Например: 
Case x of 
1..5: S
1

2, 3, 8: S
2

4, 6, 9..13: S
3
else S
4
end
Составной оператор 
 
Составной оператор представляет собой группу из произвольно-
го числа операторов, отделенных друг от друга точкой с запятой
и ограниченную операторными скобками – зарезервированными 
словами в языке ПаскальАВС – 
begin и end
1
2
n
begin S ; S ; ...; S
end;
Поэтому приведенный оператор можно мысленно представить в 
таком виде: (S
1
S
2
; … S
n
). Составной оператор используется в том 
случае, если необходимо выполнить последовательность операто-
ров внутри какой-либо конструкции как единое целое. 
Примеры выполнения заданий 
 
Пример 1. Составьте блок-схему (рис. 3.4) и напишите програм-
му решения следующей задачи: определите большее из двух целых 
чисел X и Y


43 
PROGRAM Primer_1; 
var X : Integer; {Пер-
вый аргумент} 
Y Integer; 
{Второй аргумент} 
Bolshee: Inte-
ger; {Результат} 
BEGIN 
Write ('Введите пер-
вое число: ');
ReadLn (X); 
Write ('Введите вто-
рое число: '); ReadLn 
(Y); 
If X>=Y 
then Bolshee:=X 
else Bolshee:=Y; 
WriteLn ('Результат: 
',Bolshee) 
END. 
Рис. 3.4

Download 0.99 Mb.

Do'stlaringiz bilan baham:
1   ...   19   20   21   22   23   24   25   26   ...   103




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling