7.2.2 Примеры работы с множествами
1. Ввод n элементов множества:
......
Var A:set of char;
s:char;
n:Word;
begin
A:=[ ]; // Очистка множества
for i:=1 to n do begin
read(s);
A:=A+[s];
end;
end.
2. Распечатать содержимое множества:
......
Var B:set of 1..100;
k:byte;
begin
for k:=1 to 100 do if k in B then Write(k);
......
end.
3. Сокращение проверок в операторе if:
Оператор if (k=5) or (k=1) or (k=8) then .... можно записать более изящно:
if k in [5,1,8] then ....
7.3. Типы данных для работы со строками и основные операции
Переменные строкового типа вводятся следующим образом:
Var
s1 : String[N] ; // Короткая строка, N 255
s2 : ShortString; // Короткая строка, N = 255
s3 : String; // Длинная строка, N 2 ГБайт
s4 : WideString; // Широкая строка
s5 : PChar; // Нуль-терминальная строка
Короткие строки занимают фиксированное количество байт. Строка типа String[N] может содержать nt (0≤nt≤255) символов. Под переменную типа String[N] отводится N+1 байт. В s1[0] содержится текущая длина строки. Строка ShortString эквивалентна String[255].
Длинная строка типа String. При работе с этим типом данных, в отличие от String[N] память выделяется по мере необходимости (динамически) и может занимать практически всю доступную программе память. Фактически переменные этого типа являются типизированными указателями.
Широкая строка типа WideString. Введена для обеспечения совместимости с компонентами, основанными на OLE-технологии. От типа String отличается только тем, что для представления каждого символа используется не один, а два байта.
Нуль-терминальная строка типа PChar. Представляет собой цепочку символов, ограниченную символом #0. Максимальная длина строки ограничена только доступной программе памятью. Нуль-терминальные строки широко используются при обращениях к API-функциям Windows (API – Application Program Interface – интерфейс прикладных программ).
К каждому элементу строки можно обращаться с помощью индекса, аналогично обращению к элементу массива символов: s[i]:=s[j].
Основные операции над переменными строкового типа: присвоение, сцепление (s:=s1+’ fg’+s2), сравнение (>, , =, <, ≤). Большей считатется та, строка у которой больше первый (второй, трений, …) символ.
7.4 Некоторые процедуры и функции обработки строк
Процедуры:
Delete(St:String; pz,n:integer); - удаляет из строки n символов начиная с позиции pz.
Insert(St,St1;string;pz:integer); - вставляет строку St внутрь строки St1 начиная с позиции pz.
Функции:
St:=Copy(St1,pz,n); - выделяет из строки St1 подстроку St из n символов начиная с позиции pz, при этом St1 сохраняется.
N:=Length(St); - определяет текущую длину строки.
pz:=pos(St,St1); - определяет номер позиции, начиная с которой внутри строки St1 расположена строка St, если внутри St1 нет St тогда pz=0.
Описание функций преобразования чисел в строки и наоборт помещено в Приложении 1.
7.5 Пример написания программы
Задание: написать программу подсчета количества неповторяющихся символов в каждом слове произвольной строки. Слова отделяются друг от друга одним или несколькими пробелами. Ввод строки заканчивать нажатием клавиши Enter.
Панель диалога будет иметь вид (рис. 7.1).
Рис. 7.1
Текст программы приведен на Листинге 7.1.
Листинг 7.1.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private { Private declarations }
public { Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
Function Krz(St:string):Word; // Подсчет кол-ва различныx символов
Var a : set of char;
m,i : Word;
begin
m:=0; a:=[];
for i:=1 to Length(St do
if not(St[i] in a) then begin
Include(a,St[i]); Inc(m);
end;
Result:=m;
end;
Function FWrd(st : string) : string;
var n,i,nst: integer;
sl,srez : string;
begin
Result:=''; srez:=''; n:=Length(st);
if n=0 then exit;
st:=st+' '; n:=n+1; sl:='';
for i:=1 to n do
if st[i]<>' ' then sl:=sl+st[i]
else
if sl<>'' then begin
srez:=srez+' '+sl+'-'+IntTostr(Krz(sl)); sl:='';
end;
Result:=srez;
end; // Конец функции FWrd
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Clear; Edit2.Clear;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then Edit2.Text:=FWrd(Edit1.Text);
end;
end.