необходимо написать программу(в Паскале или Бэйсике)через файлы.

[Mariya0202]

Друзья дорогие,помогите,ПОЖАЛУЙСТА!!!Срочн о нужно написать программу в Паскале(или Бэйсике)через файлы(или массивы)!!!

Вот условие:На продуктовый склад поступают для хранения партии товара. В заявках на хранение указано: название продукта, его количество в партии и сорт. В электронной справочной системе склада содержится также информация о ценах на продукты 1 сорта каждого из наименований. На продукт 2 сорта дается скидка 5%, 3 сорта - 10%. Привести ПРОГРАММУ построения таблицы стоимостей продукции на складе.
заранее благодарю))

[Mariya0202]

Люди,неужели никто хоть как-то не может помочь???Хотя бы наброски или алгоритм помогите написать...А то я скоро с ума с этой задачкой сойду!!!Совсем у меня ничего не получается

[p51x]

Алгоритм простейший:
создаем массив записей (вводи м вручную или из файла)
а потом идем по массиву и выводим

Что-то сложностей вообще не наблюдается.

[Mariya0202]

если бы всё было так просто - взял бы и написал,а не умничал бы тут!!!

[p51x]

Все просто. А если вам так сложно - взяли бы и поступили, как мой работодатель... оплатили мое время.

Алгоритм я написал. По уровню надо знать: массивы, циклы, записи и вывод какой-нибудь.

[Mariya0202]

program Project1;

uses
Crt;

type
TThing = record
Name : string;
Cost : real;
end;

TParty = record
Name : string;
Count : integer;
Quality : integer;
end;

const
STORE_COUNT = 2;
ORDER_COUNT = 100;
sells : array [1 .. 3] of real = (1, 0.95, 0.9);
var
realOrderSize : integer;
StoreOrder : array [1 .. STORE_COUNT] of TThing;
Order : array [1 .. ORDER_COUNT] of TParty;
partyCost :real;

menuChoose : integer;
tempParty :TParty;

i,j :integer;

procedure InitOrder;
begin
StoreOrder[1].Name := 'Milk';
StoreOrder[1].Cost := 3;
StoreOrder[2].Name := 'Coal';
StoreOrder[2].Cost := 20.3;
end;

procedure OutPutOrder;
begin
for I := 1 to realOrderSize do
begin
for j := 1 to STORE_COUNT do
begin
if Order[i].Name = StoreOrder[j].Name then
begin
partyCost := Order[i].Count * StoreOrder[j].Cost * sells[Order[i].Quality];
writeln('Name: ', Order[i].Name,', Count: ', Order[i].Count,', Cost: ',partyCost);
end;
end;
end;
end;

procedure AddParty(party :TParty);
begin
realOrderSize := realOrderSize + 1;
Order[realOrderSize] := party;
end;

procedure PrintMenu;
begin
writeln('***************MENU******* **********');
writeln('** 1. Add party to order **');
writeln('** 2. Print order **');
writeln('** 3. Exit **');
writeln('************************** **********');
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
InitOrder;
repeat
PrintMenu;
readln(menuChoose);
case menuChoose of
1: begin
write('Enter party name: ');
readln(tempParty.Name);
write('Enter party count: ');
readln(tempParty.Count);
write('Enter party quality: ');
readln(tempParty.Quality);
AddParty(tempParty);
end;
2: begin
OutPutOrder;
end;
end;
until (menuChoose = 3);

end.
Программа написана...Но через файлы не открывается...В чём ошибка???