Implementation

Begin

Begin

Пример программы поиска одинаковых символов в строках.

Написать проект программы, который вводит три строки из 20-ти или меньше символов и определяет одинаковые символы между каждой парой строк и одинаковые символы в трех строках.

Форма проекта и результаты работы программы приведены на рис. 1.

Рисунок 1 – Форма проекта для задачи 1

Текст программы:

………………….

implementation

{$R *.DFM}

Type tstr=string[20];

//подпрограмма определения одинаковых символов между двумя строками

procedure Spsimv(s1,s2:tstr;var s:tstr);

var i, dlina, po, ps: integer;

s:='';

dlina:=length(s1);

for i:=1 to dlina do

begin

ps:=pos(s1[i],s2);

if ps<>0 then

begin

po:=pos(s1[i],s);

if po=0 then s:=s+s1[i];

end;

end;

end;

// подпрограмма к кнопке “Старт”

procedure TForm1.Button1Click(Sender: TObject);

var s1,s2,s3,s12,s13,s23,s123:tstr;

// ввод значений строк

s1:=edit1.text; s2:=edit2.text; s3:=edit3.text;

// определения одинаковых символов между каждой парой строк

Spsimv(s1,s2,s12); edit4.text:=s12;

Spsimv(s1,s3,s13); edit5.text:=s13;

Spsimv(s2,s3,s23); edit6.text:=s23;

// определения одинаковых символов в трех строках

Spsimv(s12,s23,s123); edit7.text:=s123;

end;

……….

end.

2. Пример программы перевода валют.

Ввести строку со значениями количества долларов (через пробел). Вывести в компонент Memo массив соответствующих значений в гривнах.

Форма проекта и результаты работы программы приведен на рис.2.

Текст программы:

unit Unit1;

……..

{$R *.DFM}

Type s60=string[60];

// подпрограмма-функция изъятия начальных пробелов строки

function del_n(s1:s60):s60;

Дата добавления: 2014-12-08