var otpravlenie,pribitie:0..24;
begin
otpravlenie:=22;
pribitie:=otpravlenie+10;
writeln(pribitie)
end.
Зная об ошибке, теперь можно ее исправить.
Пример: В зависимости от знака зодиака выдавать к какой стихии он относится:
Огонь (Овен, Лев, Стрелец)
Воздух (Весы, Водолей, Близнецы)
Вода (Рак, Скорпион, Рыбы)
Земля (Козерог, Телец, Дева)
Показать решение:
type znak=(oven,lev,strelets,vesi,vodoley, bliznetsi,rak,skorpion,ribi,kozerog,telets,deva);
var a:znak;
begin
a:=lev;
if a<=strelets then writeln('огонь');
if (a>=vesi) and (a<=bliznetsi) then writeln ('воздух');
if (a>=rak) and (a<=ribi) then writeln ('вода');
if (a>=kozerog) and (a<=deva) then writeln ('земля');
end.
|
Задание на лабораторную работу
Выполнить все примеры по реализации функции (сделать скриншот выполненного примера, добавить в файл)
Пример 1.
Пример 2.
Пример 3.
Пример 4.
Задание 1 (по варианту)
Составить программу по условию задания:
Варианты:
№
|
Программа
|
1.
|
Создать перечисляемый тип данных MES_LETO – июнь, июль, август. Вывести на каждый порядковый номер месяца в перечисляемом типе слово «LETO».
|
2.
|
Создать диапазонный тип данных букв от ‘B’ до ‘E’.
Вывести минимальное значение данного типа.
|
3.
|
Создать перечисляемый тип данных MES_ZIMA – декабрь, январь, февраль. Вывести номера в перечисляемом типе в обратном порядке.
|
4.
|
Создать диапазонный тип данных чисел от ‘2’ до ‘15’.
Вывести минимальное значение и последующее значения данного типа.
|
5.
|
Создать перечисляемый тип данных GOD – лето, осень, зима, весна. Вывести порядковые номера.
|
6.
|
Создать диапазонный тип данных от чисел ‘0’ до ‘20’.
Вывести максимальное значение данного типа.
|
7.
|
Создать перечисляемый тип данных MES – январь, февраль, март, апрель, май, июнь, июль, август, сентябрь, октябрь, ноябрь, декабрь. Вывести на порядковый номер в перечисляемом типе
декабрь, январь, февраль - слово « ZIMA»,
март, апрель май - слово « VESNA»,
июнь, июль, август - слово « LETO»,
сентябрь, октябрь, ноябрь - слово «OSEN»
|
8.
|
Создать диапазонный тип данных букв от ‘А’ до ‘Z’.
Вывести максимальное значение данного типа.
|
9.
|
Создать перечисляемый тип данных MES_VESNA – март, апрель, май. Вывести порядковые номера в перечисляемом типе.
|
10.
|
Создать диапазонный тип данных чисел от ‘-22’ до ‘0’.
Вывести максимальное значение и предыдущее значения данного типа.
|
11.
|
Создать перечисляемый тип данных MES_OSEN – сентябрь, октябрь, ноябрь. Вывести на предыдущий порядковый номер месяца в перечисляемом типе слово «LETO», на последующий номер – слово «ZIMA».
|
12.
|
Создать диапазонный тип данных от чисел ‘23’ до ‘56’.
Вывести минимальное значение данного типа.
|
13.
|
Создать диапазонный тип данных букв от ‘E’ до ‘Z’.
Вывести максимальное значение данного типа.
|
14.
|
Создать диапазонный тип данных от чисел ‘-47’ до ‘-30’.
Вывести максимальное значение данного типа.
|
15.
|
Создать диапазонный тип данных от чисел ‘-124’ до
‘-118’. Вывести минимальное значение данного типа.
|
Do'stlaringiz bilan baham: |
