Порядок выполнения работы

Задание: Написать программу подсчета числа слов в произвольной строке. В качестве разделителя может быть любое число пробелов. Для ввода строк и работы с ними использовать TComboBox. Ввод строки заканчивать нажатием клавиши Enter. Для выхода из программы использовать кнопку Close.

Экранная форма задания имеет вид, представленный на рисунке 12.1.

 

Рисунок 12.1 Экранная форма задания

 

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

 

unit lab12;

interface

uses

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

Dialogs, StdCtrls;

type

TForm2 = class (TForm)

Label1: TLabel;

ComboBox1: TComboBox;

Label2: TLabel;

Label3: TLabel;

procedureFormActivate(Sender: TObject);

procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);

procedure ComboBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

//Обработка события активизации формы

procedure TForm2.FormActivate(Sender: TObject);

begin

ComboBox1.SetFocus; //передача фокуса в ComboBox1

end;

//Обработка события нажатия левой кнопки мыши

procedure TForm2.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then begin //если нажата клавиша Enter

ComboBox1.Items.Add(ComboBox1.Text); //строка из окна редактирования заносится в список выбора

ComboBox1.Text:=''; //очистка окна редактирования

end;

end;

procedure TForm2.ComboBox1Click(Sender: TObject);

var

st:string;

n,i,nst,ind:integer;

begin

n:=0; //n-число слов в строке

ind:=0;

nst:=ComboBox1.ItemIndex; // определение номера выбранной //строки

st:=ComboBox1.Items[nst]; //занесение выделенной строки в //переменную st

for i:=1 to Length(st) do //просмотр всех символов строки st

begin

caseind of

0:

ifst[i]<>' ' then//если встретился символ после пробела

begin

ind:=1;

n:=n+1; //число слов увеличивается на единицу

end;

1:

ifst[i]=' 'thenind:=0; //если встретился пробел после символов

end;

Label3.Caption:=IntToStr(n); //вывод числа слов в Label3

end;

end;

end.

 

Индивидуальные задания

Во всех заданиях необходимо что бы исходные данные вводить с помощью компонента ТEdit в компонент TListBox, либо с помощью свойства Text в свойство Items компонента TComboBox. Скалярный результат выводить с помощью компонента TLabel. Ввод строки заканчивать нажатием клавиши Enter. Для выхода из программы использовать кнопку Close. Для расчетов вводить несколько различных строк.

1. Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими пробелами. Найти количество групп с пятью символами.

2. Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран самую короткую группу.

3. Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной группе.

4. Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы с четным количеством символов.

5. Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным количеством символов.

6. Дана строка, состоящая из букв, цифр, запятых, точек, знаков "+" и "-". Выделить подстроку, которая соответствует записи целого числа (т.е. начинается со знака "+" или "-" и внутри подстроки нет букв, запятых и точек).

7. Дана строка символов, состоящая из букв, цифр, запятых, точек, знаков "+" и "-". Выделить подстроку, которая соответствует записи вещественного числа с фиксированной точкой.

8. Дана строка символов, состоящая из букв, цифр, запятых, точек, знаков "+" и "-". Выделить подстроку, которая соответствует записи вещественного числа с плавающей точкой.

9. Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести на экран числа этой строки в порядке возрастания их значений.

10. Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести четные числа этой строки.

 

Контрольные вопросы

 

1. Охарактеризуйте короткие строки типа ShortString и String[N]?

2. Опишите работу с длинной строкой типа String?

3. В чем отличительная черта широкой строки типа WideString?

4. Что представляет собой нуль-терминированная строка типа ТChar?

5. Опишите процесс представление строки в виде массива символов?

6. Назовите основные строковые процедуры и функции?

 

ЛАБОРАТОРНАЯ РАБОТА №13