Class07:
Пользовательские типы
1. Всегда ли справедливо следующее утверждене:
а) если c - литера и '0' < = c < = '9', то с - цифра;
б) если c - литера и 'a' < = c < = 'z', то c - латинская буква;
в) '0'=0;
г) ord('0')=0;
д) 'A'='a';
е) если c и d - литеры и с < d, то ord(c) < ord(d);
ж) ord(chr(k))=k для любого целого k;
з) chr(ord(c))=c для любой литеры c.
2. Написать программу для определения кода символа, введенного с клавиатуры.
3. Написать программу для считывания натурального числа, используя только
символьный ввод, последовательность символов должна заканчиватся '.'.
var c : char; v : integer;
begin
read(c);
v:=0;
while c < > '.' do
begin
v:=v*10+ord(c)-ord('0');
read(c);
end;
writeln('число равно: ',v);
end.
4. Написать программу вывода натурального числа, используя только символьный
вывод.
5.Определить сезон на который приходится данный месяц.
type
season=(spring,winter,summer,autumn);
month = (jan,feb,mar,april,may,june,july,aug,sept,oct,nov,dec);
var s : string;
sn : season;
m : month;
begin
readln(s);
if s='январь' then m:=jan;
if s='февраль' then m:=feb;
if s='март' then m:=mar;
if s='апрель' then m:=april;
if s='май' then m:=may;
if s='июнь' then m:=june;
if s='июль' then m:=july;
if s='август' then m:=aug;
if s='сентябрь' then m:=sept;
if s='октябрь' then m:=oct;
if s='ноябрь' then m:=nov;
if s='декабрь' then m:=dec;
case (m) of
dec,jan,feb : ssn:=winter;
mar,april,may : ssn:=spring;
june,july,aug : ssn:=summer;
sept,oct,nov : ssn:=autumn;
end;
case (sn) of
spring: writeln('spring');
winter: writeln('winter');
summer: writeln('summer');
autumn: writeln('autumn');
end;
readln
end.
6. Определить месяцы, составляющие данный сезон.
7. type mark=1..5;
var m:mark;
Написать программу, печатающую название оценки m.
program ozenka;
type mark=1..5;
var m:mark;
begin
writeln('Введите оценку');
readln(m);
case m of
1..2 : writeln('неудовлетворительно');
3 : writeln('удовлетворительно');
4 : writeln('хорошо');
5 : writeln('отлично')
else writeln('нет такой оценки')
end;
readln
end.