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

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

Задание

Таблица №1
Номер варианта Условие
1
Проверить, является ли строка палиндромом (т.е. читается ли она одинакого слева на право и справа налево). Пробелы игнорируются. Например, шалаш, а роза упала на лапу азора.
2
Проверить, верно ли что в строке чередуются гласные и согласные буквы.Пробелы игнорируются.
3
Проверить, имеется ли в заданном тексте баланс открывающихся и закрывающихся скобок.
4
В заданном предложении указать слово, в котором доля гласных а,е,и максимальна.
5
В заданном предложении найти самое короткое и самое длинное слово.
6
Для каждого символа заданного текста указать, сколько раз он встречается в тексте. Сообщение об одном символе должно печататься не более одного раза.
7
В заданном тексте удалить символ "," и подсчитать число удаленных символов.
8
В заданном тексте подсчитать количество гласных букв.
9
В заданном тексте заменить каждый символ "а", стоящий на четном месте, на символ "о".
10
Подсчитать количество слов в предложении.
11
Определить, сколько раз в строке встречается заданное слово.
12
Для каждого слова заданного предложения указать долю согласных.
13
Определить слово в заданном предложении, в котором доля гласных максимальна.
14
Удалить из текста пробелы и подсчитать число удаленных символов.
Таблица №2
Номер варианта Условие
1
Проверить, является ли строка палиндромом (т.е. читается ли она одинакого слева на право и справа налево). Пробелы игнорируются. Например, шалаш, а роза упала на лапу азора.
2
Проверить, верно ли что в строке чередуются гласные и согласные буквы.Пробелы игнорируются.
3
Проверить, имеется ли в заданном тексте баланс открывающихся и закрывающихся скобок.
4
В заданном предложении указать слово, в котором доля гласных а,е,и максимальна.
5
В заданном предложении найти самое короткое и самое длинное слово.
6
Для каждого символа заданного текста указать, сколько раз он встречается в тексте. Сообщение об одном символе должно печататься не более одного раза.
7
В заданном тексте удалить символ "," и подсчитать число удаленных символов.
8
В заданном тексте подсчитать количество гласных букв.
9
В заданном тексте заменить каждый символ "а", стоящий на четном месте, на символ "о".
10
Подсчитать количество слов в предложении.
11
Определить, сколько раз в строке встречается заданное слово.
12
Для каждого слова заданного предложения указать долю согласных.
13
Определить слово в заданном предложении, в котором доля гласных максимальна.
14
Удалить из текста пробелы и подсчитать число удаленных символов.


Литература

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

Ссылки

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

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