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

Материал из НГПУ им. К.Минина
Версия от 08:51, 1 марта 2008; Самсонова Ксения (обсуждение | вклад)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск
Программирование на Delphi структуры выбора

Пример 1.

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

Удалить из строки все "лишние" пробелы.

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

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

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

edit2 - используется для вывода строки;

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

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

  • Программный код:
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons;
 type
 TForm1 = class(TForm)
   Label1: TLabel;
   Label3: TLabel;
   BitBtn1: TBitBtn;
   BitBtn2: TBitBtn;
   Edit1: TEdit;
   Edit2: TEdit;
   procedure BitBtn2Click(Sender: TObject);
   procedure BitBtn1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
 var
 Form1: TForm1;
 implementation
 {$R *.dfm}
  var s:string;
      l:integer;
 procedure TForm1.BitBtn2Click(Sender: TObject);
 begin
 close;
 end;
 procedure TForm1.BitBtn1Click(Sender: TObject);
 begin
 s:=edit1.Text;
 l:=pos(' ',s);
 if l=0 then edit2.Text:='Удаления не было'
     else begin
             while l>0 do //пока в строке есть парные пробелы
             begin
               delete(s,l,1);
               l:=pos(' ',s);
             end;
             edit2.Text:=(s);
         end;
 end;
 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