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

 
Пример 2. Напишите программу решения следующей задачи: 
определите пору года по номеру месяца. 
 
PROGRAM primer_2; 
var mes:byte; 
BEGIN 
writeln ('Введите номер месяца '); readln (mes); 
case mes of 
1,2,12: writeln ('Зима'); 
3..5: writeln ('Весна'); 
6..8: writeln ('Лето'); 
9..11: writeln ('Осень'); 
end; 
END. 
‘Результат’,Bolshee
конец
начало
‘Введите первое число’
x
y
x>=y 
Bolshee:=x 
Bolshee:=y
‘Введите второе число’
Да 
Нет 

---

44 
Пример 3. Напишите программу, которая определяет число дней 
в месяце, если даны: номер месяца N – целое число от 1 до 12; целое 
число A, равное 1, если год високосный, и 0 – в противном случае. 
PROGRAM Primer_3; 
var n,a,k:Integer; 
BEGIN 
writeln ('Введите месяц'); readln(n); 
case n of 
1,3,5,7,8,10,12: begin k:=31; writeln (' в ', n,' месяце ', k,' 
дней'); end; 
4,6,9,11: begin k:=30; writeln (' в ', n,' месяце ',k,' дней');end; 
2: begin 
writeln ('Если год високосный введите 1, иначе 0'); 
readln(a); 
if a=1 then k:=29 else k:=28; 
writeln (' в ', n,' месяце ',k,' дней'); 
end 
else writeln ('Такого месяца нет'); 
end; 
END.
 
Пример 4. Составьте блок-схему (рис. 3.5) и напишите програм-
му, переводящую школьные отметки в оценки. 
PROGRAM Primer_4; 
var BALL : Integer; 
BEGIN 
Write ('Введите величину отметки: ');
Read (BALL);
WriteLn; 
Case BALL of {Перевод отметки в оценку} 
1: WriteLn ('Очень плохо...'); 
2: WriteLn ('Плохо...'); 
3: WriteLn ('Удовлетворительно'); 
4: WriteLn ('Хорошо!'); 
5: WriteLn ('Отлично!') 
end; 
END. 

---

45 
Рис. 3.5