Программирование операций с символами и строками в средах Turbo Pascal и Delphi 6.0: Учебное пособие, страница 3

       begin

           dec:=i+num;

           for j:=1 to 8 do { восемь колонок }

                begin

                             if dec<10 then st:=st+inttostr(dec) +'  '+'  ';

                              if (dec>9) and (dec<=15) then st:=st+inttostr(dec)

                               +' '+'  ';

                              if (dec >15) and (dec<33)then st:=st+inttostr(dec)

                               +'   '+'  ';

                              if (dec>=33) and (dec<=99)then st:=st+inttostr(dec)

                               +'  '+chr(dec)+'  ';

                              if dec>99  then st:=st+inttostr(dec)

                                 +' '+chr(dec)+'  ' ;

                              if dec=38 then st:=st+' ';

                                 dec:=dec+16;

                     end;

                      st:=st+#13; { 'переход к новой строке экрана ' };

                      label4.Caption:=st;

                      end;

                     end;

procedure TForm1.Button2Click(Sender: TObject);

begin

       form1.Close;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

       label4.caption:='';

end;

end.                                

Задача 4.2.1. Написать программу,  определяющую количество символов(-) и (.). в строке в среде Pascal.

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

Program prog4_21;

Uses WinCrt;

var

s:string;

  i:integer;

  a,b:integer;

begin

read (s);  {Ввод строки}

     for i:=1 to length(s) do

         begin

              if s[i]=',' then a:=a+1; { Подсчет числа ‘, ‘}

              if s[i]='-' then b:=b+1; { Подсчет числа ‘- ‘}

End;

writeln('КОЛ-ВО СИМВОЛОВ( ,)= ', a);

      writeln('КОЛ-ВО СИМВОЛОВ (-)= ', b);

End.

                   Результат работы программы

Рис.

Задача 4.2.2. Написать программу,  определяющую количество символов(-) и (.). в строке в  среде Delphi.

                                             Решение

1. Открыть новый проект командой главного меню File | New | Application.

2. Поместим на форме Form1  компоненты  в соответствии с макетом

   

                             Рис.    Макет задачи  4.2.2.

3. Выделим объект  Form1  (щелкнем  в окне формы) и для свойства Caption(заголовок) установим значение  "Программа, определяющая количество символов(-) и (.)".

4.Для метки Label1 зададим  свойство Caption "Введите строку ”, выбрав нужный шрифт (Font, его размер и цвет) .

5.  Для компонента Memo1(многострочный редактор) выберите свойство

Lines и щелкните по кнопке с тремя точками. В появившемся окне String list editor    удалите строку  'Memo1'. Нажмем ОК.

6. Для  однострочного редактора Edit1 значение для свойства Text установите равным пустой строке.

7. Для кнопки Button1 установите значение  свойства Caption Показать, а кнопки Button2  - Закрыть.

8.  Активизируйте двойным щелчком кнопку Показать  и в заготовку

обработчика события OnClick (Между строками

      procedure TForm1.Button1Click(Sender: TObject);

и    end;)

поместите текста процедуры:

var

    s:string;

    i:integer;

    a,b:integer;

begin

        a:=0;

        b:=0;

        s:=Edit1.Text;

for i:=1 to length(s) do

    begin

        if s[i]=',' then a:=a+1;

        if s[i]='-' then b:=b+1;

     End;

MEMO1.LINES.ADD('КОЛ-ВОСИМВОЛОВ( ,)='+INTTOSTR(A));

MEMO1.LINES.ADD('КОЛ-ВОСИМВОЛОВ (-)='+INTTOSTR(B));

End;

8. Активизируйте двойным щелчком кнопку Закрыть и в заготовку обработчика события OnClick поместите код  Form1.close;

10. Сохраните проект при помощи команды  меню File | Save Project As.

 в новую папку, например, C:\MyProject\sim1.

11. Выполните компиляцию программы  и исправьте ошибки. если они будут обнаружены.

12. Запустите программу с помощью клавиши F9.

13. Удалите проект

Полный текст модуля

unit Unit4_7;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,