Re: Задачка для ПАСКАЛЯНТОВ! Опции

[trminator]

Примерно так

Код

PROGRAM FindTown;
var input:text;
     s,Find:string;
begin
 assign(input,'c:bpworkinput.txt');
 reset(input);
 ReadLn(Find);
 While not EOF(input) do
   begin
    ReadLn(input,s);
    if pos(Find,s)<>0 then {Если нужно не любое совпадение, а именно с начала, то кажется =1}
       WriteLn(s)
   end;
 close(input)
end.

Сообщение отредактировано: volvo - 17.12.2004 18:26

[Elected]

Спасибо за прогу trminator!

Код

PROGRAM FindTown;
Uses Crt;
var input:text;
s,Find:string;
begin
     ClrScr;
     GotoXY(10,10);
     Write('Введи название города => ');
     assign(input,'input.txt');
     reset(input);
     ReadLn(Find);
     While NOT EOF (input) do
     BEGIN
     ReadLn(input,s);
     if POS(Find,S)=1 then
     GotoXY(10,20);
     WriteLN(s);
     END;
     close(input);
     Readln;
end.

Эта прога работает, но если в текстовом файле input.txt будет
20 городов на букву "С", то на экране при наборе "Введите
название города =>" набрать букву "С", отобразятся
все 20 городов на "С", а мне надо, чтобы отобразился на экране только первый попавшийся на букву "С" город в файле input.txt, а не все города.

Заранее благодарен,
Алексей.