вывод определенной записи Опции

[mazic]

ребят, а как вывести нужную запись? например у меня есть номера цехов 1,2,3 я ввожу и 2 получаю все данные о 2-ом цехе. я уже и так, и сяк пробывал, не идет

[мисс_граффити]

как ты пробовал? Показывай.

[mazic]

procedure vibor;
begin
writeln('введите цех');readln(x);
reset(f);read(f,zap);
while not eof(f) do
if x=zap.c then begin
   gotoXY(5,whereY);write(zap.c);
   gotoXY(14,whereY);write(zap.u);
   gotoXY(25,whereY);write(zap.b);
   gotoXY(36,whereY);write(zap.w);
   gotoXY(52,whereY);writeln(zap.plan);close(f);
                       end;           
end;

Сообщение отредактировано: mazic - 15.04.2007 15:30

[Renbo]

1. Юзай теги!!!!
2. Пиши код по-нормальному(с отступами там и т.д.), а то тяжело разобрать
3. Напиши в чём проблема-то, на что жалуется паскаль?
4. Это уже идёт оффтоп, ИМХО лучше создай новую тему....или я не прав, модеры?

Сообщение отредактировано: Renbo - 15.04.2007 15:01

[mazic]

вот именно что он ни на что не жалуется, просто не выводит ничего.

[мисс_граффити]

procedure vibor;
begin
writeln('введите цех');readln(x);
reset(f);read(f,zap);
while not eof(f) do
//может, стоит считывать запись из файла внутри цикла?
if x=zap.c then begin
   gotoXY(5,whereY);write(zap.c);
   gotoXY(14,whereY);write(zap.u);
   gotoXY(25,whereY);write(zap.b);
   gotoXY(36,whereY);write(zap.w);
   gotoXY(52,whereY);writeln(zap.plan);
   close(f); //а вот закрывать файл - уже после выхода из цикла
                       end;           
end;