Лабораторна робота №9.2

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

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

Варіанти завдань для самостійного виконання

Вар.	Завдання	Вар.	Завдання
1	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) запише ці слова до списку ListBox; 3) при виборі слова в списку, виділятиме його в реченні і переводитиме фокус уведення до текстового поля.	9	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) запише ці слова до списку; 3) виведе до багаторядкового текстового поля ці слова в зворотньому порядку.
2	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) запише ці слова до списку що випадає; 3) визначить з масиву слів найдовше та запише його до текстового поля.	10	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) замінить друге слово в масиві на таке ж, тільки записане заголовними літерами; 3) запише значення цього масиву до іншого багаторядкового поля в стовпчик
3	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) визначить перше з масиву слово, яке починається на літеру "а" та замінить його в масиві на таке ж, тільки записане з великої літерами "А"; 3) запише значення цього масиву до іншого багаторядкового поля в стовпчик	11	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) визначить перше з масиву слово, яке закінчується на літеру "а" та замінить його в масиві на порожній рядок (’’); 3) запише значення цього масиву до іншого багаторядкового поля в стовпчик
4	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) порахує кількість слів у реченні 3) запише до іншого багаторідкового поля кожне друге слово з масиву	12	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) кількість літер ’а’ в усіх словах масиву 3) запише до іншого багаторядкового поля кожне третє слово з масиву
5	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) порахує кількість голосних літер у другому слові 3) запише до іншого багаторядкового поля кожне друге слово з масиву	13	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) порахує кількість приголосних літер у другому слові 3) запише до іншого багаторядкового поля кожне друге слово з масиву
6	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) запише ці слова до списку ListBox; 3) при виборі слова в списку, змінить усі букви слова на великі в тексті.	14	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) запише кожне друге слово з масиву до списку ListBox; 3) при виборі слова в списку, змінить усі букви слова на великі в тексті.
7	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) порахує кількість слів, які містять в своєму записі цифри 3) запише до іншого багаторядкового поля кожне друге слово з масиву	15	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) порахує кількість слів, які починаються з голосних букв 3) запише до іншого багаторядкового поля кожне третє слово з масиву
8	Створити програму, яка: 1) зчитає з багаторядкового текстового поля речення до масиву; 2) порахує кількість цифр у другому слові 3) запише до іншого багаторядкового поля кожне друге слово з масиву

Алгоритм поділу речення на слова:

var s, g: string; 
   words: array[1..100] of string; 
   p, t, m: integer; 
begin
   s := 'Hello, this is my first program.';
   while pos(#13, s)<>0 do Delete(s,pos(#13, s),1);
   while pos(#10, s)<>0 do Delete(s,pos(#10, s),1);
   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;
 end;

Алгоритм запису масиву до списку:

   for i := 1 to p do begin
       Memo1.Lines.Add(words[i]);
   end;

Алгоритм виділення фрагменту тексту в текстовому полі:

   Memo1.SelStart :=1;
   Memo1.SelLength :=3;
   Memo1.SetFocus;

Алгоритм запису визначення найдовшого слова в масиві слів:

   n_max_l:=1;
   for i := 2 to p do begin
           if length(words[i])>length(words[n_max_l]) then n_max_l:=i;
   end;
   Edit1.Text:='Найдовше слово - '+words[n_max_l];

Алгоритм заміни першої літери в другому слові на літеру з великого регістру

   s:= words[2];
   L:=length(s);

    s:=UTF8UpperCase(UTF8Copy(s,1,1))+UTF8Copy(s,2,L-1);

Алгоритм пошуку слова в масиві, яке починається з заданої літери:

   for i := 1 to p do begin
      if words[i][1]='m' then begin
         L:=i;
         break;
      end;
   end;
   Edit3.Text:='З літери m починається слово з номером '+IntToStr(L);

Алгоритм підрахунку голосних букв у слові

    L:=length(words[2]);
    p:=0;
    for i := 1 to L do begin
      if (words[2][i]='а') or
         (words[2][i]='о') or
         (words[2][i]='у') or
         (words[2][i]='е') or
         (words[2][i]='і') or
         (words[2][i]='є') or
         (words[2][i]='я') or
         (words[2][i]='ю') or
         (words[2][i]='и') or
         (words[2][i]='ї') then begin
              p:=p+1;
      end;
   end;
   Edit4.Text:='У другому слові голосних букв '+IntToStr(p);

Алгоритм пошуку слів, які містять у своєму записі літеру ’а’:

   L:=0;
   for i := 1 to p do begin
       if pos('а',words[i])>0 then begin
            L:=L+1;
            Memo2.Lines.Add(words[i]);
       end;
   end;
   Edit5.Text:='Буква а міститься в '+IntToStr(L)+' словах.';