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]

Огромное спасибо, Fire_Rage! Ты уже во второй раз выручаешь меня. Прогу ты забацал довольно оригинально. Мне, правда, пришлось её малость подкорректировать. В принципе в одном месте я просто-напросто добавил "Not" и ещё где-то чего-то, так по мелочи. А в остальном прога класс!

Код

While Not Eof(input) Do
Begin
Readln(input,s);
Writeln(f,s);
End;

Вот, что получилось:

Код

PROGRAM FindTown;
Uses Crt;
Label 1;
Var
     input,f:text;
     s,find:string;
     i,g:integer;
     ch:char;
Begin
1:      ClrScr;
     Assign(input,'file1.txt');
     Reset(input);
     Write('Введите название города  => ');
     Readln(find);
     i:=0;
     While ((Not Eof(input))And(Pos(find,s)<>1)) Do
           Begin
           ReadLn(input,s);
           i:=i+1;
           If Pos(find,s)<>0 Then
           Writeln(s);
           End;
     Close(input);
     Assign(input,'file2.txt');
     Assign(f,'file3.txt');
     Rewrite(f);
     Reset(input);
     Write('Введите новую сумму => ');
     Readln(find);
     For g:=1 To i-1 Do
           Begin
           Readln(input,s);
           Writeln(f,s);
           End;
     Readln(input,s);
     Writeln('Старая сумма  => ',s);
     Writeln(f,find);
     While Not Eof(input) Do
           Begin
           Readln(input,s);
           Writeln(f,s);
           End;
     Close(f);
     Close(input);
     Assign(input,'file2.txt');
     Assign(f,'file3.txt');
     Rewrite(input);
     Reset(f);
     While Not Eof(f) Do
           Begin
           Readln(f,s);
           Writeln(input,s);
           End;
     Close(f);
     Close(input);
     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.

Ещё раз, огромное спасибо!
P.S. Если у кого появиться сделать эту прогу по другому, буду только очень рад посмотреть ваши оригинальные идеи.
ВСЕМ ОСОБАЯ БЛАГОДАРНОСТЬ!