5.2. Пример написания программы
Задание: Дана строка, в которой содержится текст, включающий в себя как русские, так и английские слова. Подсчитать каких букв больше: русских или английских?
На рис. 5.1 изображен интерфейс программы, а на листинге 5.1 - ее текст.
Рис 5.1. Интерфейс программы.
Листинг 5.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Image1: TImage;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//-------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
const
EngChar = ['A'..'Z', 'a'..'z']; //множество английских букв
RusChar = ['Ё', 'ё', 'А'..'Я', 'а'..'я']; //множество русских букв
var
i, e, r: integer;
begin
e := 0;
r := 0;
for i := 1 to Length (Edit1.Text) do begin
if Edit1.Text [i] in EngChar then e := e+1;
if Edit1.Text [i] in RusChar then r := r+1;
end;
Label1.Caption := 'Английских символов - ' + IntToStr (e)+#13#10+
'Русских символов - ' + IntToStr (r);
end;
//------------------------------------------------
end.
5.3. Индивидуальные задания
Во всех заданиях приведено по 2 задачи. Если возможно, то обе задачи можно объединить в одну и для нее разработать общий интерфейс и общее решение. Если это сделать нельзя, то каждую задачу следует решать отдельно.
Таблица 5.1
|
Вариант |
Задание |
|
1 |
1. Дана строка. Подсчитать, сколько в ней букв (r, k, t). 2. В строке заменить все двоеточия (:) точкой с запятой (;). Подсчитать количество замен. |
|
2
|
1. Дана строка, заканчивающаяся точкой. Подсчитать, сколько слов в строке. 2. Дана строка. Указать те слова, которые содержат хотя бы одну букву (с). |
|
3 |
1. Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы (b). 2. Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. |
|
4 |
1. Дана строка. Определить, сколько в ней символов (*) , ( ;) , (:) . 2. В строке удалить символ "двоеточие" (:) и подсчитать количество замен. |
|
5 |
1. Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова. 2. В строке вставить вместо пробела запятую и пробел. |
|
6 |
1. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует. 2. Удалить часть символьной строки, заключенной в скобки (вместе со скобками)
|
|
7 |
1. Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы. 2. Определить сколько раз в строке встречается заданное слово. Заданное слово ввести с клавиатуры. |
|
8 |
1. Дана строка. Преобразовать ее, удалив каждый символ (*) и повторив каждый символ, отличный от (*) . 2. В строке имеется точка с запятой (;). Подсчитать количество символов до точки с запятой и после нее. |
|
9 |
1. Дана строка. Определить, сколько раз входит в нее группа букв (abc). 2. Дана строка. Преобразовать ее, заменив точками все двоеточия, встречающиеся среди первой половины символов строки, и заменив точками все восклицательные. |
|
10 |
1. Дана строка. Подсчитать количество букв (k) в последнем ее слове. 2. Строка содержит одно слово. Проверить будет ли она одинаково читаться справа налево и слева направо (т.е. является ли оно палиандромом.) |
|
11 |
1. Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран. 2. В записке слова зашифрованы – каждое из них записано наоборот. Расшифровать сообщение. |
|
12 |
1. Дана строка. Подсчитать самую длинную последовательность подряд идущих букв (a). 2. Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке. |
|
13 |
1. Дана строка. Указать те слова, которые содержат хотя бы одну букву (k). 2. Дана строка. Заменить в ней все парные символы на одиночные (например, аа -> а, тт -> т). |
|
14 |
1. Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд. 2. Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие хотя бы одну букву (о). |
|
15 |
1. Дан набор слов, разделенных точкой с запятой (;). Набор заканчивается двоеточием (:). Определить, сколько в нем слов, заканчивающихся буквой (а). 2. Дана строка, заканчивающаяся точкой. Подсчитать, сколько запятых в строке.
|