Работа со списками Опции

[- Sergey -]

Вообщем есть такое задание:
"Ввести информацию о количестве продукции на складе в массив записей и вывести ее в виде таблицы."

Вот что у меня получилось:

Код

uses crt;

type
production = record
name: string;
kol: integer;
end;
var
a: array [1..50] of production;
i,n: integer;
begin
clrscr;
writeln('Введите количество продукции: ');
readln(n);
for i:=1 to n do
 begin
  write('Наименование: ');
  readln(a[i].name);
  write('Количество: ');
  readln(a[i].kol);
 end;
writeln;
writeln;
for i:=1 to n do
 begin
  writeln('  ',a[i].name:12,a[i].kol:8);
 end;
readln;
end.

Подскажите где здесь недочёты. Как можно сделать красивее и т.д.

[AlienEmperor]

а) Что-то именно списка я здесь и не вижу - массив с явно заданными размерами - да, а "списки" - нет. Неужели в задании говорилось о статическом массиве ? А если записей больше 50 ? Или меньше ?
б) При выводе на экран верхние записи "уйдут" - видно их не будет (если их не 2-3). Надо хотя бы предусмотреть остановку вывода до нажатия any key (типа: "для просмотра след. страницы нажмите...'');

А так вроде все правильно... На самом деле для "красоты" здесь можно ТАКОГО наворочать... Вот только нужно ли ? Какие у препода запросы ?

[Atos]

Что-то именно списка я здесь и не вижу

Наверно, просто путаница в названии, и имелось в виду "работа с записями"?

[AlienEmperor]

2 Atos: я тоже так подумал (список в данном контексте = запись), только тогда совсем неинтересно получается

[Fang]

Дальше больше:
"Вывести информацию из массива записей в набор данных. Прочитать из набора данных и распечатать эту информацию, не используя массив записей."

Что посоветуете?

[volvo]

Вывести информацию из массива записей в набор данных.

В качестве набора данных используй динамическую структуру, например, список:
FAQ: Списки

[Fang]

volvo в задаии написано, что нужно польоваться файловым типом. Но я что-то не могу понять как?

[klem4]

в задаии написано, что нужно польоваться файловым типом. Но я что-то не могу понять как?

Ну возможо тебе надо информацию записать в файл, больше ничего на ум не приходит, вот загляни сюда : FAQ файлы.

Сообщение отредактировано: klem4 - 21.10.2005 7:37