Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2014, 11:40   #1
Vadim7721
Пользователь
 
Аватар для Vadim7721
 
Регистрация: 30.09.2014
Сообщений: 27
По умолчанию нетипизированный файл

Подготовить список из N наименований товаров. Информация о каждом товаре содержит:
1. Название товара.
2. Цену.
3. Год выпуска.
4. Количество.
Список должен быть упорядочен по одному из параметров, указанных в конкретном варианте. Сведения по каждому товару необходимо представить в виде записи.
Разработать программу, которая заносит во внешний файл записи упорядоченного списка, и программу, которая добавляет в сформированный внешний файл данные об М товарах, при этом, не нарушая упорядоченности исходного файла. Если среди добавляемых товаров встречается товар, сведения о котором в файле уже есть, то необходимо их обновить, т. е. старую запись исключить.
. Товары упорядочены по невозрастанию количества, N=8, M=6

Помогите пожалуйста.
Начало программы сделал, а дальше не знаю как делать :
Код:
Uses crt;
Type
    zapis=record
    nam:string[20];
    cen:integer;
    god:integer;
    kolvo:integer;
end;
Var 
    a:array[1..100] of zapis;
    j,k,n,i:integer;
    f:file;
    out:zapis;
Begin
clrscr;
Assign(f,'file');
rewrite(f);
writeln('Сколько записей занести в файл n=');
readln(n);
for i:=1 to n do
 begin
  writeln('Товар ',i);
  with out do
   begin
    write('Название: '); readln(a[i].nam);
    write('Цена: '); readln(a[i].cen);
    write('Год выпуска: '); readln(a[i].god);
    write('Количество: ');  readln(a[i].kolvo);
   end;

Последний раз редактировалось Stilet; 23.11.2014 в 13:01.
Vadim7721 вне форума Ответить с цитированием
Старый 23.11.2014, 12:26   #2
xatabich
Пользователь
 
Аватар для xatabich
 
Регистрация: 29.07.2013
Сообщений: 56
По умолчанию

Прежде чем писать программу наверно надо подумать как это все в целом будет работать. нужны идеи. Например управление будет выполнятся командами поэтому дальше необходимо разработать набор этих команд и их параметры ....
xatabich вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создать нетипизированный файл Эльдар а Паскаль, Turbo Pascal, PascalABC.NET 0 10.02.2012 12:29
Нетипизированный файл Bizunov Помощь студентам 4 15.05.2011 15:29
нетипизированный файл amandra Общие вопросы Delphi 6 07.10.2008 07:44
[Pascal]Нетипизированный файл Fuaran8989 Помощь студентам 1 13.05.2008 09:14
Нетипизированный файл OrdJONY Общие вопросы Delphi 10 03.10.2007 18:39