Версия для печати темы

Автор: mazic 15.04.2007 13:59

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

Автор: мисс_граффити 15.04.2007 14:27

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

Автор: mazic 15.04.2007 14:38

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;

Автор: Renbo 15.04.2007 14:59

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

Автор: mazic 15.04.2007 15:29

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

Автор: мисс_граффити 15.04.2007 15:35

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;