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

Ссылки

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

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