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

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

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

Приклад

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

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

2)    обчислити кількість входжень фрагменту тексту в інший текст.

Програмний код:

procedure TForm1.Button1Click(Sender: TObject);

var s:string;

    s1,s2:string;

    l,p:integer;

begin

    s:=Memo1.Text;
    s1:=Edit1.Text;
    s2:=Edit2.Text;
    l:=length(s1);
    while pos(s1,s)<>0 do begin
      p:= pos(s1,s);
      delete(s,p,l);
      insert(s2,s,p);
    end;
    Memo2.Text:=s;

end;

procedure TForm1.Button2Click(Sender: TObject);

var s:string;
    ss,eS:string;
    n,l,od:integer;
begin
    ss:=Edit3.Text;
    l:=length(ss);
    s:=Memo1.Text;
    n:=0;
    while pos(ss,s)<>0 do begin
      n:=n+1;
      delete(s,pos(ss,s),l);
    end;
    if (n>9) and (n<21) then
    eS:=' входжень.'
    else begin
      od:=n mod 10;
    Case od of
         0,5..9: eS:=' входжень.';
         1..4: eS:=' входження.'
    end;
    end;
    label6.Caption:='Знайдено '+IntToStr(n)+eS;

end;

У 1971-75 на розвиток матеріальної бази туризму профспілками виділено 0,5 млрд. крб., кількість турбаз, готелів, кемпінгів доведено майже до 1 тис. (кількість місць зросла з 150 тис. до 300 тис.), об'єм туристсько-екскурсійних послуг зріс з 260 млн. крб. в 1970 до 1 млрд. в 1975. По розмаху туристського руху СРСР займає одне з перших місць в світі. У 1975 число осіб, що проводили відпустку і канікули за межами постійного місця проживання, досягло 140-150 млн. чіл. (оцінка, включаючи поїздки в будинки відпочинку, пансіонати, санаторії, піонерські табори і ін.), що склав від близько 20% від всього числа туристів в світі.