№3 КОНТРОЛЬНАЯ РАБОТА по дисциплине «Структуры и алгоритмы обработки данных»

1.  Имеется текст из нескольких строк; строки разделены возвратами каретки, слова в строке разделены пробелами.

2.  Определить в какой строке есть заданное слово (слово получать от пользователя). Вывести строку с этим словом, ее номер или сообщение об отсутствии указанного слова.

saod2

procedure TForm1.Button2Click (Sender: TObject);

var s: string;

i,p:Integer;

begin

p:=0;

for I := 0 to ListBox1.Count — 1 do

begin

s:=ListBox1.Items[i];

p:=Pos (Edit1.Text,s);

if p>0 then

begin

ListBox3.Items.Add (inttostr (i+1)+' строка');

ListBox3.Items.Add (ListBox1.Items[i]);

ListBox3.Items.Add ('');

end;

end;

if ListBox3.Count=0 then

ShowMessage ('такого слова НЕТ');

end;

About admin

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

Подтвердите, что Вы не бот — выберите самый большой кружок: