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

Терешанцева Юлия: /* Задание */

2008-04-19T04:21:51Z

‎Задание

Оносова Анна в 06:50, 1 марта 2008

2008-03-01T06:50:19Z

Казанцев Артём: /* Задание */

2008-02-26T11:38:09Z

‎Задание

Казанцев Артём: /* Задание */

2008-02-26T11:32:34Z

‎Задание

Казанцев Артём: /* Задание */

2008-02-26T11:22:04Z

‎Задание

Казанцев Артём: /* Пример 1. */

2008-02-26T11:19:18Z

‎Пример 1.

Казанцев Артём: /* Задание */

2008-02-26T10:49:45Z

‎Задание

Оносова Анна в 10:09, 26 февраля 2008

2008-02-26T10:09:55Z

Оносова Анна в 09:57, 26 февраля 2008

2008-02-26T09:57:39Z

Оносова Анна в 09:55, 26 февраля 2008

2008-02-26T09:55:48Z

@@ Строка 79: / Строка 79: @@
 ==Задание==
-<CENTER>'''Таблица №1'''</CENTER>
+Таблица 6
 {| border=4
   !Номер варианта||Условие||

@@ Строка 79: / Строка 79: @@
 ==Задание==
-<CENTER>'''Таблица №10'''</CENTER>
+<CENTER>'''Таблица №1'''</CENTER>
 {| border=4
   !Номер варианта||Условие||

@@ Строка 79: / Строка 79: @@
 ==Задание==
-Таблица  №10
+<CENTER>'''Таблица №10'''</CENTER>
 {| border=4
   !Номер варианта||Условие||

@@ Строка 79: / Строка 79: @@
 ==Задание==
-Таблица 10
+Таблица  №10
-{| border=1
+{| border=4
   !Номер варианта||Условие||
   |-

@@ Строка 86: / Строка 86: @@
   |-
-|<center>1</center>||Определить название месяца по его номеру, например, 1 - январь, 2 - февраль и т.д.||
+|<center>2</center>||Определить название месяца по его номеру, например, 1 - январь, 2 - февраль и т.д.||
    |-
-|<center>1</center>||Определить название заданной цифры, например 1 - один,  5 - пять  и т.д.||
+|<center>3</center>||Определить название заданной цифры, например 1 - один,  5 - пять  и т.д.||
   |-
-|<center>1</center>||Дано русское название языка                               программирования. Определить  его английский эквивалент,  например: Бейсик - Basic. Для определения использовать таблицу:
+|<center>4</center>||Дано русское название языка                               программирования. Определить  его английский эквивалент,  например: Бейсик - Basic. Для определения использовать таблицу:
 Бейсик - Basic,       Лисп - Lisp,
 Си - С,                    Фортран - Fortran,
@@ Строка 98: / Строка 98: @@
    |-
   |-
-|<center>1</center>||Определить английское название заданной цифры, например, 1- one, 7- seven и т.д.||
+|<center>5</center>||Определить английское название заданной цифры, например, 1- one, 7- seven и т.д.||
    |-
   |-
-|<center>1</center>||Определить название отметки, заданной числом, например,  5-отлично, 2-неудовлетворительно||
+|<center>6</center>||Определить название отметки, заданной числом, например,  5-отлично, 2-неудовлетворительно||
    |-
   |-
-|<center>1</center>||Установить английское название дня недели по его номеру, например, 1-Sunday, 2-Monday и т.д.||
+|<center>7</center>||Установить английское название дня недели по его номеру, например, 1-Sunday, 2-Monday и т.д.||
    |-
   |-
-|<center>1</center>||Определить название арифметической операции по ее изображению, например, + - сложение, * - умножение  и т.д.   ||
+|<center>8</center>||Определить название арифметической операции по ее изображению, например, + - сложение, * - умножение  и т.д.   ||
    |-
   |-
-|<center>1</center>||Группу детей, приехавшую в оздоровительный лагерь, распределяют по отрядам по  принципу:
+|<center>9</center>||Группу детей, приехавшую в оздоровительный лагерь, распределяют по отрядам по  принципу:
 с 6 до 7 лет - 5-й отряд
 с 7 до 9 лет - 4-й отряд
@@ Строка 120: / Строка 120: @@
    |-
   |-
-|<center>1</center>||Определить английское название месяца по его номеру, например, 1 - January, 2 -February  и т.д.||
+|<center>10</center>||Определить английское название месяца по его номеру, например, 1 - January, 2 -February  и т.д.||
    |-
   |-
-|<center>1</center>||Определить название операции отношения по ее изображению, например, = - равно, < > - не равно,  >= - не меньше и т.д.||
+|<center>11</center>||Определить название операции отношения по ее изображению, например, = - равно, < > - не равно,  >= - не меньше и т.д.||
    |-
   |-
-|<center>1</center>||Определить служебное слово для обозначения одной из стандартных логических операций в Паскале, например, отрицание - not, исключающее ИЛИ - xor и т.д.||
+|<center>12</center>||Определить служебное слово для обозначения одной из стандартных логических операций в Паскале, например, отрицание - not, исключающее ИЛИ - xor и т.д.||
    |-
   |-
-|<center>1</center>||Определить название группы музыкантов по количеству участников, например, 1- соло, 2 – дуэт и т.д.||
+|<center>13</center>||Определить название группы музыкантов по количеству участников, например, 1- соло, 2 – дуэт и т.д.||
    |-
   |-
-|<center>1</center>||Установить название вида линий в модуле Graph Паскаля по его номеру, например, 0 - сплошная, 1 - пунктирная и т.д.||
+|<center>14</center>||Установить название вида линий в модуле Graph Паскаля по его номеру, например, 0 - сплошная, 1 - пунктирная и т.д.||
    |-
    |}

@@ Строка 2: / Строка 2: @@
 == Пример 1.==
-*'''Условие:'''
+*'''Условие задачи:'''
 Определить название столицы по названию государства.
 *'''Использованные компоненты:'''
@@ Строка 76: / Строка 76: @@
 *'''Форма с результатом работы программы:'''
 [[Изображение:-2-3.JPG]]
 ==Задание==

@@ Строка 82: / Строка 82: @@
   !Номер варианта||Условие||
   |-
- !1||Установить название дня недели по его номеру, например, 1 - понедельник, 2 - вторник и т.д. ||
+|<center>1</center>||Установить название дня недели по его номеру, например, 1 - понедельник, 2 - вторник и т.д. ||
   |-
-!2||Определить название месяца по его номеру, например, 1 - январь, 2 - февраль и т.д.||
+|<center>1</center>||Определить название месяца по его номеру, например, 1 - январь, 2 - февраль и т.д.||
    |-
-!3||Определить название заданной цифры, например 1 - один,  5 - пять  и т.д.||
+|<center>1</center>||Определить название заданной цифры, например 1 - один,  5 - пять  и т.д.||
   |-
-!4||Дано русское название языка                               программирования. Определить  его английский эквивалент,  например: Бейсик - Basic. Для определения использовать таблицу:
+|<center>1</center>||Дано русское название языка                               программирования. Определить  его английский эквивалент,  например: Бейсик - Basic. Для определения использовать таблицу:
 Бейсик - Basic,       Лисп - Lisp,
 Си - С,                    Фортран - Fortran,
@@ Строка 97: / Строка 97: @@
    |-
   |-
-!5||Определить английское название заданной цифры, например, 1- one, 7- seven и т.д.||
+|<center>1</center>||Определить английское название заданной цифры, например, 1- one, 7- seven и т.д.||
    |-
   |-
-!6||Определить название отметки, заданной числом, например,  5-отлично, 2-неудовлетворительно||
+|<center>1</center>||Определить название отметки, заданной числом, например,  5-отлично, 2-неудовлетворительно||
    |-
   |-
-!7||Установить английское название дня недели по его номеру, например, 1-Sunday, 2-Monday и т.д.||
+|<center>1</center>||Установить английское название дня недели по его номеру, например, 1-Sunday, 2-Monday и т.д.||
    |-
   |-
-!8||Определить название арифметической операции по ее изображению, например, + - сложение, * - умножение  и т.д.   ||
+|<center>1</center>||Определить название арифметической операции по ее изображению, например, + - сложение, * - умножение  и т.д.   ||
    |-
   |-
-!9||Группу детей, приехавшую в оздоровительный лагерь, распределяют по отрядам по  принципу:
+|<center>1</center>||Группу детей, приехавшую в оздоровительный лагерь, распределяют по отрядам по  принципу:
 с 6 до 7 лет - 5-й отряд
 с 7 до 9 лет - 4-й отряд
@@ Строка 119: / Строка 119: @@
    |-
   |-
-!10||Определить английское название месяца по его номеру, например, 1 - January, 2 -February  и т.д.||
+|<center>1</center>||Определить английское название месяца по его номеру, например, 1 - January, 2 -February  и т.д.||
    |-
   |-
-!11||Определить название операции отношения по ее изображению, например, = - равно, < > - не равно,  >= - не меньше и т.д.||
+|<center>1</center>||Определить название операции отношения по ее изображению, например, = - равно, < > - не равно,  >= - не меньше и т.д.||
    |-
   |-
-!12||Определить служебное слово для обозначения одной из стандартных логических операций в Паскале, например, отрицание - not, исключающее ИЛИ - xor и т.д.||
+|<center>1</center>||Определить служебное слово для обозначения одной из стандартных логических операций в Паскале, например, отрицание - not, исключающее ИЛИ - xor и т.д.||
    |-
   |-
-!13||Определить название группы музыкантов по количеству участников, например, 1- соло, 2 – дуэт и т.д.||
+|<center>1</center>||Определить название группы музыкантов по количеству участников, например, 1- соло, 2 – дуэт и т.д.||
    |-
   |-
-!14||Установить название вида линий в модуле Graph Паскаля по его номеру, например, 0 - сплошная, 1 - пунктирная и т.д.||
+|<center>1</center>||Установить название вида линий в модуле Graph Паскаля по его номеру, например, 0 - сплошная, 1 - пунктирная и т.д.||
    |-
    |}
 ==Литература==

@@ Строка 17: / Строка 17: @@
 *'''Программный код:'''
-program capital;
-var land,cap: string[20]; num: 0..8;
+ unit Unit1;
-begin
+ interface
-   writeln('Введите название страны'); readln(land);
+ uses
-   num:=0; {номер страны в списке}
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-   if land='Австрия' then num:=1;     if land='Болгария' then num:=2;
+  Dialogs, StdCtrls, Buttons;
-   if land='Греция' then num:=3;      if land='Италия' then num:=4;
+  type
-   if land='Норвегия' then num:=5;    if land='Франция' then num:=6;
+  TForm1 = class(TForm)
-   if land='США' then num:=7;         if land='Россия' then num:=8;
+    Label1: TLabel;
-   case num of {определение столицы по номеру  страны  в списке }
+    Edit1: TEdit;
-:cap:='Вена';                  2:cap:='София';
+    Label2: TLabel;
-:cap:='Афины';                 4:cap:='Рим';
+    BitBtn1: TBitBtn;
-:cap:='Осло';                  6:cap:='Париж';
+    BitBtn2: TBitBtn;
-:cap:='Вашингтон';             8:cap:='Москва';
+    procedure BitBtn2Click(Sender: TObject);
-:cap:='Такой страны не знаю'
+    procedure BitBtn1Click(Sender: TObject);
-   end;
+  private
-   writeln(cap);
+    { Private declarations }
-   readln;
+  public
-end.
+    { Public declarations }
 *'''Форма с результатом работы программы:'''

@@ Строка 8: / Строка 8: @@
 Label1 - используется для текстовых комментариев;
-edit1 - используется для ввода страны;
+edit1 - используется для ввода названия государства;
-Label2 - используется для вывода названия столицы вводимой страны;
+Label2 - используется для вывода названия столицы вводимого государства;
 BitBtn1 - запуск программы;