№3 КОНТРОЛЬНАЯ РАБОТА по дисциплине «Структуры и алгоритмы обработки данных»
1. Имеется текст из нескольких строк; строки разделены возвратами каретки, слова в строке разделены пробелами.
2. Определить в какой строке есть заданное слово (слово получать от пользователя). Вывести строку с этим словом, ее номер или сообщение об отсутствии указанного слова.
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;