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 14:26

[Fire_Rage]

Шлю ответное спасибо:
1) За то, что нашёл у меня ошибку(Извините, но я проги не проверяю не компе, могутбыть какие-нибудь ошибки). А то я совсем забыл, что выдаёт eof(f)
2)За то, что заключил прогу в код, а то я ну никак не могу понять, как это делается!