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

[Elected]

Я решил поставленную задачу, не прошло как говориться и
пол года. Но всё же спасибо тебе trminator! Ты подал идею, а я её решил при помощи команды seek. Формат записи должен быть не text, а file of  string, вот в чём и была загвостка.

Код

Uses Crt;
Label 1;
Var
     FileTown:file of string;
     Town,Town1:string;
     i:integer;
     ch:char;
Begin
     {Запись городов в файл}
     TextBackGround(0);TextColor(15);ClrScr;
     Assign(FileTown,'town.txt');
     Rewrite(FileTown);
     For i:=1 To 10 do
     Begin
     Write('Введите название ',i,' города  => ');
     Readln(Town);
     Write(FileTown,Town);
     end;
     Close(FileTown);
     Write('Нажмите <Enter>');
     repeat
     ch:=ReadKey;if ch=chr(13) then
     until ch=chr(13);
     {Чтение городов из файла}
1:      TextBackGround(0);TextColor(15);ClrScr;
     Assign(FileTown,'town.txt');
     Reset(FileTown);
     Write('Введите название города => ');
     Readln(Town1);
     while not EOF(FileTown) do begin
     Read(FileTown,Town);
     If pos(Town1,Town)=1 Then BEGIN
     SEEK(FileTown,-1);
     Writeln(Town);
     end;end;
     Close(FileTown);
     Write('Нажмите <Enter> или <Esc>');
     repeat
     ch:=ReadKey;if ch=chr(13) then begin Goto 1;end;
     if ch=chr(27) then until ch=chr(27);
End.

Посмотрите, что получилось, может кто решит эту задачку по другому, более проще.
                                                          ;D