Задание
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и список объектов и содержит процедуры, работающие с указанными структурами.
Объект - некоторый товар в магазине. Параметры: наименование, количество, процент затрат на реализацию и закупочная цена. Методы: конструктор и процедура, определяющая себестоимость товара для магазина. Определить суммарную себестоимость всех товаров в магазине. Реализовать два варианта (с массивом и списком).
Реализация с массивом:
Исходный код реализации с массивом на Delphi 7:
var
goods:array[1..100] of Good;
i,j,last,command:integer;
sum,q,p,c:real;
n:string;
begin
clrscr;
last:=0;
writeln('0 - Vihod iz programmi');
writeln('1 - Pokazat spisok vseh tovarov v magazine');
writeln('2 - Dobavit tovar v spisok');
writeln('3 - Udalit tovar iz spiska');
writeln('4 - Opredelit summarnuyu sebistoimost vseh tovarov v magazine');
repeat
write('>');
readln(command);
case command of
1:
for i:=1 to last do
begin
writeln('---',i);
writeln('naimenivanie - ',goods[i].gname,', kolichestvo - ',goods[i].quantity:3:2);
writeln('procent zatrat na realizaciyu - ',goods[i].percent:3:2,'%, zakupochnaya cena - ',goods[i].cost:3:2);
end;
2:
begin
inc(last);
write('Vvedite nazvanie novogo tovara: ');
readln(n);
write('Vvedite kolichestvo dannogo tovara v magazine: ');
readln(q);
write('Vvedite procent zatrat na realizaciyu dannogo tovara: ');
readln(p);
write('Vvedite zakupochnuyu cenu na dannii tovar: ');
readln(c);
goods[last].Newgood(n,q,p,c);
end;
3:
begin
write('Vvedite nazvanie tovara, kotorii Vi zelaete udalit: ');
readln(n);
for i:=1 to last do
if goods[i].gname=n then break;
if goods[i].gname=n then
begin
dec(last);
for i:=i to last do
begin
goods[i].gname:=goods[i+1].gname;
goods[i].quantity:=goods[i+1].quantity;
goods[i].percent:=goods[i+1].percent;
goods[i].cost:=goods[i+1].cost;
end;
end
else writeln('Takogo tovara net');
end;
4:
begin
write('Summarnaya stoimost tovara: ');
sum:=0;
for i:=1 to last do
sum:=sum+goods[i].Stoimost();
writeln(sum:3:2);
end;
end;
until command=0;
end.
Блок схема реализации с массивом:
Реализация списком:
Исходный код реализации списком на Delphi 7:
program spisok;
{$APPTYPE CONSOLE}
uses
SysUtils;
type Good=object
gname:string;
quantity,percent,cost:real;
function Stoimost():real;
constructor Newgood(n:string;q,p,c:real);
end;
ukazat=^element;
element=record
tovar:Good;
next:ukazat;
end;
function Good.Stoimost():real;
begin
Stoimost:=cost*(1+percent/100)*quantity;
end;
constructor Good.Newgood(n:string;q,p,c:real);
begin
gname:=n;
quantity:=q;
percent:=p;
cost:=c;
end;
var
i,command:integer;
sum,q,p,c:real;
n:string;
start,finish,temp_good,prev:ukazat;
begin
start:=nil;
writeln('0 - Vihod iz programmi');
writeln('1 - Pokazat spisok vseh tovarov v magazine');
writeln('2 - Dobavit tovar v spisok');
writeln('3 - Udalit tovar iz spiska');
writeln('4 - Opredelit summarnuyu sebistoimost vseh tovarov v magazine');
repeat
write('>');
readln(command);
case command of
1:
begin
temp_good:=start;
i:=1;
while temp_good<>nil do
begin
writeln('---',i);
inc(i);
writeln('naimenivanie - ',temp_good^.tovar.gname,', kolichestvo - ',temp_good^.tovar.quantity:3:2);
writeln('procent zatrat na realizaciyu - ',temp_good^.tovar.percent:3:2,'%, zakupochnaya cena - ',temp_good^.tovar.cost:3:2);
temp_good:=temp_good^.next;
end;
end;
2:
begin
new(temp_good);
temp_good^.next:=nil;
write('Vvedite nazvanie novogo tovara: ');
readln(n);
write('Vvedite kolichestvo dannogo tovara v magazine: ');
readln(q);
write('Vvedite procent zatrat na realizaciyu dannogo tovara: ');
readln(p);
write('Vvedite zakupochnuyu cenu na dannii tovar: ');
readln(c);
temp_good^.tovar.Newgood(n,q,p,c);
if start=nil then
begin
start:=temp_good;
finish:=temp_good;
end
else
begin
finish^.next:=temp_good;
finish:=temp_good;
end
end;
3:
begin
write('Vvedite nazvanie tovara, kotorii Vi zelaete udalit: ');
readln(n);
temp_good:=start;
prev:=nil;
while temp_good<>nil do
begin
if temp_good^.tovar.gname=n then break;
prev:=temp_good;
temp_good:=temp_good^.next;
end;
if temp_good<>nil then
begin
if prev=nil then
start:=start^.next
else prev^.next:=temp_good^.next;
dispose(temp_good);
end
else writeln('Takogo tovara net');
end;
4:
begin
write('Summarnaya stoimost tovara: ');
sum:=0;
temp_good:=start;
while temp_good<>nil do
begin
sum:=sum+temp_good^.tovar.Stoimost();
temp_good:=temp_good^.next;
end;
writeln(sum:3:2);
end;
end;
until command=0;
end.
Блок схема реализации списком:
 |
Главная
Каталог файлов
