Лабораторная работа №7 (15) Символы и строки символов Цель работы: ознакомиться с информацией в виде отдельных символов и их последовательности – строк. Получить знания и умения в обработке текстовых данных.

Лабораторная работа №7 (15)

Символы и строки символов

Цель работы: ознакомиться с информацией в виде отдельных символов и их последовательности – строк. Получить знания и умения в обработке текстовых данных.

Задание

Создать папку, проект, блок-схему алгоритма, таблицу компонентов формы, таблицу значений свойств компонентов формы и Object Pascal программу для обработки текстовой информации согласно варианту.

Вариант №9. Удалить все пробелы из текста «Дома сладка и солома, на чужбине и калачи не вкусны».

Ход работы

Таблица значений переменных

Таблица компонентов

Таблица значений свойств компонентов формы

                                                      Нет

                                                 Да

                                Рисунок 1 – Блок-схема

Рисунок 2 – Форма

Код программы

procedure TForm1.Button1Click(Sender: TObject);

var

  s:string;

begin

 s:=Edit1.Text;

 while Pos( ' ', s ) > 0 do

      Delete( s, Pos( ' ', s ), 1 );

 Edit2.Text:=s;

end;

end.

Рисунок 3 – Вид окна программы

Вывод: в ходе данной лабораторной работы приобретены навыки в работе с текстовыми данными в интегрированной среде программирования Delphi. Работа программы приводилась в действие при помощи оператора (инструкции) Delete, который выполняется в цикле while, пока первым символом строки является пропуск (в этом случае значение pos ( ҅ ҅, S) равняется единице).