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

End.

Begin

Begin

Begin

Begin

while (pos(' ',s1)=1)and (length(s1)>0) do delete(s1,1,1);

del_n:=s1;

end;

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

function slovo(s:s60):s60;

var p:integer;

p:=pos(' ',s);

if p=0 then slovo:= s

else slovo:= copy(s,1,p-1) ;

end;

// подпрограмма-процедура перевода “слова” из долларов в гривны

procedure dol_gr(sdol:s60; koef:real; var sgr:s60);

var dol,gr:real; ier:integer;

delete(sdol,1,1); // изъятие символа ‘ $’

val(sdol,dol,ier); // перевод строчного значения в числовое

gr:=dol*koef; // перерасчет числового значения в гривны

str(gr:10:2,sgr); // преобразования числового значения в строчное

sgr:=sgr+' грн.';

end;

// подпрограмма к кнопке “Перерасчет в гривну“

procedure TForm1.Button1Click(Sender: TObject);

var sv,sr,sg:s60; k,dd:integer;

sv:=edit1.text; //чтение введенной строки

k:=strtofloat(Edit2.text); // чтение курса доллара

sv:=del_n(sv); // изъятие начальных пробелов строки

while length(sv)>0 do

begin

sr:=slovo(sv); / выделение первого“слова” из последовательности

dol_gr(sr,k,sg); // перевод “слова” из долларов в гривну

memo1.lines.add(sg); // вывод результата

delete(sv,1,length(sr));//изъятие первого “слова” из последовательности

sv:=del_n(sv); // изъятия начальных пробелов строки

end;

end;

Написать программу, которая вводит две string-строки и определяет, какая из них является длиннее. Если первая строка длиннее второй, то программа увеличивает вторую строку до длины первой путем добавления в ее конец символа ‘#’, если вторая строка длиннее первой, − увеличивает первую строку до длины второго, добавляя символ ‘$’.

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

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

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

………………………….

implementation

{$R *.DFM}

// подпрограмма к кнопке “Перерасчет в гривну“

procedure TForm1.Button1Click(Sender: TObject);

Var a,b:string[10];

dla,dlb,i:integer;