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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Работа со списками

Автор: - Sergey - 28.09.2005 14:41

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

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

Код

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 28.09.2005 15:34

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

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

Автор: Atos 28.09.2005 15:54

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

Автор: AlienEmperor 28.09.2005 16:42

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

Автор: Fang 20.10.2005 19:43

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

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

Автор: volvo 20.10.2005 20:01

Цитата
Вывести информацию из массива записей в набор данных.
В качестве набора данных используй динамическую структуру, например, список:
http://forum.pascal.net.ru/index.php?showtopic=2706&view=findpost&p=23570

Автор: Fang 21.10.2005 11:29

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

Автор: klem4 21.10.2005 11:32

Цитата(Fang @ 21.10.2005 8:29)
в задаии написано, что нужно польоваться файловым типом. Но я что-то не могу понять как?


Ну возможо тебе надо информацию записать в файл, больше ничего на ум не приходит, вот загляни сюда : http://forum.pascal.net.ru/index.php?showtopic=3584