БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ ТЕХНЛЛОГИИ И УПРАВЛЕНИЯ

ФАКУЛЬТЕТ ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ

КАФЕДРА «УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ»

Лабораторная работа № 4

«Программирование алгоритмов C ИСПОЛЬЗОВАНИЕМ СТРОК»

Выполнила ст. гр. УИТ – 33

Приняла:

« » 2008 г.

Балаково 2008

Цель работы: освоить применение компонентов ListBox и ComboBox и создать приложение, в котором используются строки.

Задание: создать Windows-приложение для подсчета количества слов в произвольной строке. Слова в строке разделяются любым количеством пробелов. Ввод строки заканчивать нажатием клавиши Enter. Работа приложения должна завершаться нажатием кнопки Close.

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

unit lab4;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Label1: TLabel;

ComboBox1: TComboBox;

Label2: TLabel;

Label3: TLabel;

BitBtn1: TBitBtn;

Label4: TLabel;

Label5: TLabel;

procedure FormActivate(Sender: TObject);

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

procedure ComboBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);

begin

ComboBox1.SetFocus;

end;

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

begin

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

begin // строка из поля редактирования заносится

ComboBox1.Items.Add(ComboBox1.Text); // в список выбора

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

end;

end;

procedure TForm1.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 // просмотр всех символов строки

case ind of

0 : if st[i]<>' ' then // если встретился символ

begin

ind:=1;

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

end;

1 : if st[i]=' ' then // если встретился пробел

ind:=0;

end;

Label3.Caption:=IntToStr(n); //вывод количества слов строки в Label 3

Label5.Caption:=IntToStr(Length(st)); //вывод количества символов строки в Label 5

end;

end.

В результате получили: