Помощь - Поиск - Пользователи - Календарь
Полная версия: вывод определенной записи
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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;

Renbo
1. Юзай теги!!!!
2. Пиши код по-нормальному(с отступами там и т.д.), а то тяжело разобрать
3. Напиши в чём проблема-то, на что жалуется паскаль?
4. Это уже идёт оффтоп, ИМХО лучше создай новую тему....или я не прав, модеры?
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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.