Учебный курс Программирование на Delphi. Модуль 5

Программирование на Delphi структуры выбора

Пример 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 - пунктирная и т.д.

Литература

1. Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
2. Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
3. Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.

Ссылки

Учебный курс Программирование на Delphi

Учебный план курса Программирование на Delphi