Поиск

[LolerFox]

Столкнулся с проблемой...
Пытаюсь сравнить переменную с данными в текстовом документе(что-то типо поиска... Вводится Фамилия и она сравниваетс с именами в файле, если такое есть то оно выводит его), но почему то либо переменная либо вовсе не сравнивается, либо програма выдает ответ только если фамилия будет в самом конце файла.
Вот кусок кода.

assign(f1,'c:/text.txt');
...
begin
 reset(f1);
  while not EOF(f1) do
  readln(f1,tsurname);
 
  if tsurname=surname then
Begin
 p:=1:
end;
end;

      clrscr;
      writeln('Имя=', Name);
      writeln('Фамилия=', Surname,);
      writeln('Возраст=', age);
    if p=1 then
    begin
    writeln('Итог:В списке');
    end
    else
    begin
    writeln('Итог:Не в списке');
    end;
    readln;
end.

//в файле пару Фамилий,  каждое с новой строки//

[Аватар]

И компилируется? Там же парность begin end порушена
while not EOF(f1) do begin

[Serge_Bliznykov]

Первое. у Вас абсолютно ущербная логика.
зачем Вам p := 1 ??
нужен примерно такой код

...
var countFound : integer;
begin

  assign(f1,'c:/text.txt');
  reset(f1);

  // заполнить surname для поиска
  ReadLn(surname);
  

  countFound := 0;
  while not EOF(f1) do begin
     readln(f1,tsurname); 
     if tsurname=surname then begin
        writeLn('Найдено ',surname);
        inc(countFound)
     end;      
  end;
  close(f1);

  if countFound=0 then
      writeln('Итог:Не в списке')
  else
      writeln('Итог:В списке, найдено ', countFound, ' раз.'  );

  readln;
end.

Второе

Сообщение от LolerFox

Вводится Фамилия и она сравниваетс с именами в файле, если такое есть то оно выводит его

Сообщение от LolerFox

if tsurname=surname then

Вы понимаете, что сравниваете строго на полное совпадение?
Результатом сравнения будет ЛОЖЬ, если:
1) в одной из строк есть пробелы/табуляция - как в начале строки, так и в конце.
2) отличается регистр символов

[LolerFox]

Сообщение от Serge_Bliznykov

Первое. у Вас абсолютно ущербная логика.
зачем Вам р :=1

Про р:=1 я знаю, я просто хотел проверить сравнивает ли оно вообще.(там после этого р:=1 должен был быть "write" но я его видимо случайно стер).

Сообщение от Serge_Bliznykov

Вы понимаете, что сравниваете строго на полное совпадение?
Результатом сравнения будет ЛОЖЬ, если:
1) в одной из строк есть пробелы/табуляция - как в начале строки, так и в конце.
2) отличается регистр символов

Да, я это понимаю... Но почему то в моем случае ПРАВДА была только в том случае если Фамилия находилась в конце списка.

Ладно спасибо за помощь!

[ViktorR]

И свою копейку брошу.

while not EOF(f1) do
  readln(f1,tsurname);

Это правильный код. Вот только он приведёт к тому, что файл будет прочитан до конца и при завершении цикла в переменной tsurname будет только последняя строка.
Управление оператору, который следует за циклом, будет передано только после обнаружения [not EOF(f1)] конца файла.
Это к

либо программа выдает ответ только если фамилия будет в самом конце файла.

и напомнить, что составные операторы надо включать в операторные скобки

begin  ...  end

[Serge_Bliznykov]

Сообщение от LolerFox

Но почему то в моем случае ПРАВДА была только в том случае если Фамилия находилась в конце списка.

на это ответ в пост #5