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

Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску
Программирование на 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.

  • Форма с результатом работы программы

-2-3.JPG

Задание

Таблица 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