Учебный курс Программирование на Delphi. Модуль 5
Материал из Wiki Mininuniver
Версия от 12:39, 26 февраля 2008; Оносова Анна (обсуждение | вклад)
Содержание
Пример 1.
- Условие.
- Использованные компоненты
Label1, edit1, button1, button2
- Программный код
program capital; var land,cap: string[20]; num: 0..8; begin
writeln('Введите название страны'); readln(land); num:=0; {номер страны в списке} if land='Австрия' then num:=1; if land='Болгария' then num:=2; if land='Греция' then num:=3; if land='Италия' then num:=4; if land='Норвегия' then num:=5; if land='Франция' then num:=6; if land='США' then num:=7; if land='Россия' then num:=8; case num of {определение столицы по номеру страны в списке } 1:cap:='Вена'; 2:cap:='София'; 3:cap:='Афины'; 4:cap:='Рим'; 5:cap:='Осло'; 6:cap:='Париж'; 7:cap:='Вашингтон'; 8:cap:='Москва'; 0:cap:='Такой страны не знаю' end; writeln(cap); readln;
end.
- Форма с результатом работы программы
Задание
Таблица 10
Номер варианта | Условие | |
---|---|---|
1 | Установить название дня недели по его номеру, например, 1 - понедельник, 2 - вторник и т.д. | |
2 | Определить название месяца по его номеру, например, 1 - январь, 2 - февраль и т.д. | |
3 | Определить название заданной цифры, например 1 - один, 5 - пять и т.д. | |
4 | Дано русское название языка программирования. Определить его английский эквивалент, например: Бейсик - Basic. Для определения использовать таблицу:
Бейсик - Basic, Лисп - Lisp, Си - С, Фортран - Fortran, Ада - Ada, ПЛ/1 - PL/1, Паскаль - Pascal, Пролог- Prolog. |
|
5 | Определить английское название заданной цифры, например, 1- one, 7- seven и т.д. | |
6 | Определить название отметки, заданной числом, например, 5-отлично, 2-неудовлетворительно | |
7 | Установить английское название дня недели по его номеру, например, 1-Sunday, 2-Monday и т.д. | |
8 | Определить название арифметической операции по ее изображению, например, + - сложение, * - умножение и т.д. | |
9 | Группу детей, приехавшую в оздоровительный лагерь, распределяют по отрядам по принципу:
с 6 до 7 лет - 5-й отряд с 7 до 9 лет - 4-й отряд с 9 до 11 лет - 3-й отряд с 11 до 13 лет - 2-й отряд с 13 до 15 лет - 1-й отряд Составьте программу, которая позволила бы каждому ребенку определять свой отряд. |
|
10 | Определить английское название месяца по его номеру, например, 1 - January, 2 -February и т.д. | |
11 | Определить название операции отношения по ее изображению, например, = - равно, < > - не равно, >= - не меньше и т.д. | |
12 | Определить служебное слово для обозначения одной из стандартных логических операций в Паскале, например, отрицание - not, исключающее ИЛИ - xor и т.д. | |
13 | Определить название группы музыкантов по количеству участников, например, 1- соло, 2 – дуэт и т.д. | |
14 | Установить название вида линий в модуле Graph Паскаля по его номеру, например, 0 - сплошная, 1 - пунктирная и т.д. |
Литература
- Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
- Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
- Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.