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

Материал из НГПУ им. К.Минина
Перейти к: навигация, поиск
(→‎Задание)
 
(не показано 13 промежуточных версий 2 участников)
Строка 1: Строка 1:
−
Программирование на Delphi структуры выбора
+
<center>'''Программирование на Delphi структуры выбора'''</center>
  
 
== Пример 1.==  
 
== Пример 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.
+
  
−
*Форма с результатом работы программы
+
Label1 - используется для текстовых комментариев;
 +
 
 +
edit1 - используется для ввода названия государства;
 +
 
 +
Label2 - используется для вывода названия столицы вводимого государства;
 +
 
 +
BitBtn1 - запуск программы;
 +
 
 +
BitBtn2 - выход из программы;
 +
 
 +
*'''Программный код:'''
 +
 
 +
unit Unit1;
 +
interface
 +
uses
 +
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 +
  Dialogs, StdCtrls, Buttons;
 +
  type
 +
  TForm1 = class(TForm)
 +
    Label1: TLabel;
 +
    Edit1: TEdit;
 +
    Label2: TLabel;
 +
    BitBtn1: TBitBtn;
 +
    BitBtn2: TBitBtn;
 +
    procedure BitBtn2Click(Sender: TObject);
 +
    procedure BitBtn1Click(Sender: TObject);
 +
  private
 +
    { Private declarations }
 +
  public
 +
    { Public declarations }
 +
  end;
 +
  var
 +
  Form1: TForm1;
 +
  implementation
 +
  {$R *.dfm}
 +
  var land, cap:string[50];
 +
  num:0..8;
 +
  procedure TForm1.BitBtn2Click(Sender: TObject);
 +
  begin
 +
  close;
 +
  end;
 +
procedure TForm1.BitBtn1Click(Sender: TObject);
 +
  begin
 +
  land:=edit1.Text;
 +
  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;
 +
    label2.Caption:=cap;
 +
    end;
 +
    end.
 +
 
 +
*'''Форма с результатом работы программы:'''
 
[[Изображение:-2-3.JPG]]
 
[[Изображение:-2-3.JPG]]
 +
 
==Задание==
 
==Задание==
  
−
Таблица 10
+
Таблица 6
−
{| border=1
+
{| border=4 
 
  !Номер варианта||Условие||
 
  !Номер варианта||Условие||
 
  |-
 
  |-
−
!1||Установить название дня недели по его номеру, например, 1 - понедельник, 2 - вторник и т.д. ||
+
|<center>1</center>||Установить название дня недели по его номеру, например, 1 - понедельник, 2 - вторник и т.д. ||
 
  |-
 
  |-
  
−
!2||Определить название месяца по его номеру, например, 1 - январь, 2 - февраль и т.д.||
+
|<center>2</center>||Определить название месяца по его номеру, например, 1 - январь, 2 - февраль и т.д.||
 
   |-
 
   |-
−
!3||Определить название заданной цифры, например 1 - один,  5 - пять  и т.д.||
+
|<center>3</center>||Определить название заданной цифры, например 1 - один,  5 - пять  и т.д.||
 
  |-
 
  |-
−
!4||Дано русское название языка                              программирования. Определить  его английский эквивалент,  например: Бейсик - Basic. Для определения использовать таблицу:
+
|<center>4</center>||Дано русское название языка                              программирования. Определить  его английский эквивалент,  например: Бейсик - Basic. Для определения использовать таблицу:
 
Бейсик - Basic,      Лисп - Lisp,
 
Бейсик - Basic,      Лисп - Lisp,
 
Си - С,                    Фортран - Fortran,
 
Си - С,                    Фортран - Fortran,
Строка 49: Строка 98:
 
   |-
 
   |-
 
  |-
 
  |-
−
!5||Определить английское название заданной цифры, например, 1- one, 7- seven и т.д.||
+
|<center>5</center>||Определить английское название заданной цифры, например, 1- one, 7- seven и т.д.||
 
   |-
 
   |-
 
  |-
 
  |-
−
!6||Определить название отметки, заданной числом, например,  5-отлично, 2-неудовлетворительно||
+
|<center>6</center>||Определить название отметки, заданной числом, например,  5-отлично, 2-неудовлетворительно||
 
   |-
 
   |-
 
  |-
 
  |-
−
!7||Установить английское название дня недели по его номеру, например, 1-Sunday, 2-Monday и т.д.||
+
|<center>7</center>||Установить английское название дня недели по его номеру, например, 1-Sunday, 2-Monday и т.д.||
 
   |-
 
   |-
 
  |-
 
  |-
−
!8||Определить название арифметической операции по ее изображению, например, + - сложение, * - умножение  и т.д.  ||
+
|<center>8</center>||Определить название арифметической операции по ее изображению, например, + - сложение, * - умножение  и т.д.  ||
 
   |-
 
   |-
 
  |-
 
  |-
−
!9||Группу детей, приехавшую в оздоровительный лагерь, распределяют по отрядам по  принципу:
+
|<center>9</center>||Группу детей, приехавшую в оздоровительный лагерь, распределяют по отрядам по  принципу:
 
с 6 до 7 лет - 5-й отряд
 
с 6 до 7 лет - 5-й отряд
 
с 7 до 9 лет - 4-й отряд
 
с 7 до 9 лет - 4-й отряд
Строка 71: Строка 120:
 
   |-
 
   |-
 
  |-
 
  |-
−
!10||Определить английское название месяца по его номеру, например, 1 - January, 2 -February  и т.д.||
+
|<center>10</center>||Определить английское название месяца по его номеру, например, 1 - January, 2 -February  и т.д.||
 
   |-
 
   |-
 
  |-
 
  |-
−
!11||Определить название операции отношения по ее изображению, например, = - равно, < > - не равно,  >= - не меньше и т.д.||
+
|<center>11</center>||Определить название операции отношения по ее изображению, например, = - равно, < > - не равно,  >= - не меньше и т.д.||
 
   |-
 
   |-
 
  |-
 
  |-
−
!12||Определить служебное слово для обозначения одной из стандартных логических операций в Паскале, например, отрицание - not, исключающее ИЛИ - xor и т.д.||
+
|<center>12</center>||Определить служебное слово для обозначения одной из стандартных логических операций в Паскале, например, отрицание - not, исключающее ИЛИ - xor и т.д.||
 
   |-
 
   |-
 
  |-
 
  |-
−
!13||Определить название группы музыкантов по количеству участников, например, 1- соло, 2 – дуэт и т.д.||
+
|<center>13</center>||Определить название группы музыкантов по количеству участников, например, 1- соло, 2 – дуэт и т.д.||
 
   |-
 
   |-
 
  |-
 
  |-
−
!14||Установить название вида линий в модуле Graph Паскаля по его номеру, например, 0 - сплошная, 1 - пунктирная и т.д.||
+
|<center>14</center>||Установить название вида линий в модуле Graph Паскаля по его номеру, например, 0 - сплошная, 1 - пунктирная и т.д.||
 
   |-
 
   |-
 
   |}
 
   |}
−
 
  
 
==Литература==
 
==Литература==

Текущая версия на 07:21, 19 апреля 2008

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

Пример 1.

  • Условие задачи:

Определить название столицы по названию государства.

  • Использованные компоненты:

Label1 - используется для текстовых комментариев;

edit1 - используется для ввода названия государства;

Label2 - используется для вывода названия столицы вводимого государства;

BitBtn1 - запуск программы;

BitBtn2 - выход из программы;

  • Программный код:
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons;
 type
 TForm1 = class(TForm)
   Label1: TLabel;
   Edit1: TEdit;
   Label2: TLabel;
   BitBtn1: TBitBtn;
   BitBtn2: TBitBtn;
   procedure BitBtn2Click(Sender: TObject);
   procedure BitBtn1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
 var
 Form1: TForm1;
 implementation
 {$R *.dfm}
 var land, cap:string[50];
 num:0..8;
 procedure TForm1.BitBtn2Click(Sender: TObject);
 begin
 close;
 end;
procedure TForm1.BitBtn1Click(Sender: TObject);
 begin
 land:=edit1.Text;
 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;
   label2.Caption:=cap;
   end;
   end.
  • Форма с результатом работы программы:

-2-3.JPG

Задание

Таблица 6

Номер варианта Условие
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

Источник — «https://wiki.mininuniver.ru/index.php?title=Учебный_курс_Программирование_на_Delphi._Модуль_5&oldid=2814»