IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Работа со списками
сообщение
Сообщение #1


Гость






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

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

Код

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.



Подскажите где здесь недочёты. Как можно сделать красивее и т.д.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 160
Пол: Мужской
Реальное имя: Серый

Репутация: -  0  +


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

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


--------------------
Все в жизни ботва... Кроме пчел!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Прогрессор
****

Группа: Пользователи
Сообщений: 602
Пол: Мужской
Реальное имя: Михаил

Репутация: -  9  +


Цитата
Что-то именно списка я здесь и не вижу
Наверно, просто путаница в названии, и имелось в виду "работа с записями"?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Бывалый
***

Группа: Пользователи
Сообщений: 160
Пол: Мужской
Реальное имя: Серый

Репутация: -  0  +


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


--------------------
Все в жизни ботва... Кроме пчел!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 48
Пол: Мужской
Реальное имя: Fang

Репутация: -  2  +


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

Что посоветуете?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Цитата
Вывести информацию из массива записей в набор данных.
В качестве набора данных используй динамическую структуру, например, список:
FAQ: Списки
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 48
Пол: Мужской
Реальное имя: Fang

Репутация: -  2  +


volvo в задаии написано, что нужно польоваться файловым типом. Но я что-то не могу понять как?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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


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

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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 1:57
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name