Практична робота №9.3

Тема. Реалізація класичних алгоритмів для роботи з масивами та рядковими величинами у вигляді програм

Мета. Навчитися реалізовувати мовою програмування обчислювальні алгоритми для роботи з рядковими величинами та масивами.

Приклад

Написати програму, за допомогою якої можна:

1)    зчитати з текстового поля до масиву слова розділені пробілом;

2)    знайти в масиві слова найбільшої та найменшої довжин;

3)    обміняти їх місцями;

4)    вивести дані з цього масиву до другого текстового поля.

Розв’язання

procedure TForm1.Button1Click(Sender: TObject);

var s, g: string;

   words: array[1..100] of string;

   p, t, m,i,max_n,min_n: integer;

begin

   s := Trim(Memo1.Text);

   //Розрізаємо рядок на масив слів

   p:=0;

   while pos(' ', s) <> 0 do

   begin

     p:=p+1;

     words[p]:=copy(s,1,pos(' ', s)-1);

     delete(s,1,pos(' ', s));

   end;

   p:=p+1;

   words[p]:=s;

      //Шукаємо номери найдовшого та найкоротшого слів

   max_n:=1;

   min_n:=1;

   for i := 2 to p do begin

     if length(words[i])>length(words[max_n]) then max_n:=i;

     if length(words[i])<length(words[min_n]) then min_n:=i;

   end;

      //Міняємо місцями найдовше та найкоротше слова

   s:=words[max_n];

   words[max_n]:=words[min_n];

   words[min_n]:=s;

      //Виводимо результат до другого текстового поля

   Memo2.Text:='';

   for i := 1 to p do begin

      Memo2.Text:=Memo2.Text+words[i]+' ';

   end;

 end;