Pascal. Процедуры и запросы.

[Firelord]

Никак не могу сделать программу Точнее сделал, но не получаются 2 запроса по ней.
Задание:
В БД хранится информация о продовольственных товарах: название товара, дата
выработки, срок годности, производитель, адрес производителя, цена товара, отметка о
том, является ли продукт скоропортящимся (если срок годности составляет менее недели),
«льготная» цена товара.
Предусмотреть возможность ввода данных, дополнения базы данных, редактирования и
просмотра данных.
Предусмотреть возможность вывода на печать и экран следующих видов запросов:
1) Все производители.
2) Все товары конкретного производителя.
3) Скоропортящиеся товары.
4) Рассчитать «льготную» цену товара с истекшим сроком годности по формулам: для скоропортящихся товаров цена снижается на 1% за каждый просроченный час до 36 часов, сверх этого срока цена =0; если срок годности продукта менее двух месяцев, то цена снижается на 1% за каждый просроченный день до 14 дней, сверх этого срока цена =0;для других товаров расчет цены не проводится.
В пояснительную записку входят следующие разделы: содержание, задание, описание логической структуры (файловая структура, структурная схема программы), руководство пользователя, список источников, текст программы, примеры запросов.
Программа и моя БД: http://firelord47.narod.ru/iformatica/pascal.rar
Суть проблемы:
1)В первом запросе при выводе всех производителей повторяет наименования. Например, kotik произвёл halva и hvostik. При запросе он поэтому котика 2 раза выводит, а надо каждого производителя по разу.
2) Четвёртый запрос Как связать стринговую дату со сроком годности (пусть даже если в часах)

Господа, программисты, помогите, пожалуйста

[Zhlobny Hmur]

Firelord, Первый и глобальный косяк

Смотрим

procedure menu;
var
deystv:char;
begin

While True Do Begin
clrscr;
writeln('vybor dejstvija:');
writeln('1 - vvod novoj BD');
writeln('2 - prosmotr BD');
writeln('3 - dobavlenie');
writeln('4 - udalenie');
writeln; writeln('Procedury');
writeln('5 - proizvoditeli');
writeln('6 - Tovary proizvoditela');
writeln('7 - Skoroportashiesa tovary');
writeln;
writeln('0 - vyhod iz programmy');
writeln;
readln(deystv);
case deystv of
'1':begin vvod; menu; end;
'2':begin prosmotr; menu; end;
'3':begin dobavl; menu; end;
'4':begin udalen; menu; end;
'5':begin prosmotr_pr; menu; end;
'6':begin pr_tov; menu; end;
'7':begin pr_skor; menu; end;
'0':exit
else menu;
end; end end;

В том, что ты делаешь рекурсивный вызов процедуры Menu... Зачем? Вобщем, красное убрать, синее - добавить!

И что, не учили, как на паскале нормально писать, чтобы код читать можно было без напрягов!

Цитата: Сообщение от Firelord В первом запросе при выводе всех производителей повторяет наименования. Например, kotik произвёл halva и hvostik. При запросе он поэтому котика 2 раза выводит, а надо каждого производителя по разу.

Правильная процедура

procedure prosmotr_pr;
Type
   Pr:Array [1..8191] of string[7];

var
   fs:file of TS;
   zs:TS;
   Unique,i:Integer;
   List_Of_Producers:^Pr;

begin
  clrscr;
  writeln('prosmotr BD');
  assign(fs,'tovarka.dat');
  reset(fs);
  Unique:=0;
  GetMem(List_Of_Producers,SizeOf(fs)*SizeOf(zs.proizvodutel));

  write('proizvodutel');
  writeln; writeln;
  while not(eof(fs)) do begin
     read(fs,zs);
     for I:=1 to Unique do
        if zs.proizvodutel=List_Of_Producers^[i] then break;
     if i=Unique+1 then begin
        writeln('   ',zs.proizvodutel,' ');
	inc(Unique);
	List_Of_Producers^[Unique]:=zs.proizvodutel
     end
  end;
  close(fs);
  Release(List_Of_Producers);
  writeln; writeln;
  writeln('v BD drugih proizvoditeley net');
  readkey
end;

Цитата: Сообщение от Firelord связать стринговую дату

А на хрена такое далеть?

Несколько изменяем твою структуру:
1) Создаем флаг (булевского типа) скоропортящийся товар/обычный: Tovar:Boolean
2) Делаем поля в записи
Day, Mouns, Year, Hour, Expiried:Integer
3) В зависимости от состояния поля Tovar определяем использовать или нет поле Hour, и интерпретируем поле Expiried часы там или дни.
4) С помощью функции GetDate/GetTime вычитываем текущее время и сравнивая с временем по базе определяем степень протухлости товара.
5) Можно еще для прикола ввести поле - товар уже протух, пора его выкидывать!

Студент, блин, где мое пиво?!!! Или туча спасибок, на худой конец!

[Firelord]

Большое спасибо!!! Буду в ваших краях, обязательно с меня пиво! Уж в наши края вряд ли кто приедет <_<
P.S.

Цитата: Сообщение от Zhlobny Hmur И что, не учили, как на паскале нормально писать, чтобы код читать можно было без напрягов!

Не учили Всё наше практическое обучение сводилось к выдаче задания, все объяснения подразумевались в лекциях...

[Zhlobny Hmur]

Firelord, а-а-а-а-а, на лекции то кто-то и не ходил получаеться!