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



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

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;

Популярность: 1% [?]

Метки:на delphi

Связанные записи

Рубрика: ЮУПИ · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!