34

Волжский университет имени В. Н. Татищева

Кафедра “Информатика и системы управления”

КУРСОВАЯ РАБОТА

по дисциплине: «Основы технологии программирования»

Тема: «Компьютерная фирма»

Выполнил:

студент гр. ИТ-105 Лифанов Ю. Ю.

Проверил:

Преподаватель: Ахмедханлы Д.М.

Тольятти 2004

ОГЛАВЛЕНИЕ

Содержание задания

Описание предметной области

Описание алгоритма задачи

Список используемой литературы

Приложение 1

Приложение 2

Приложение 3

СОДЕРЖАНИЕ ЗАДАНИЯ

Программа должна создавать базу данных компьютерной фирмы. Информация о каждом наименовании товара фирмы хранится в файле firma.dat и вводится в диалоге по запросам программы в базу. Можно вывести список всех товаров фирмы в отсортированном по алфавиту порядке.

Информация о каждом наименовании товара состоит из следующих полей:

регистрационный номер;

наименование;

характеристики;

дата изготовления;

срок гарантии;

цена (оптовая);

цена (розничная).

Поле «характеристики» предполагает ввод основных характеристик (например, тип монитора, тип процессора, быстродействие, объем оперативной памяти и т.п.).

Поле «цена (розничная)» не заполняется до продажи товара.

Программа содержит следующие процедуры и функции:

Зарегистрировать (регистрирует новый товар, приобретенный фирмой);

Просмотр (выводит весь список товаров фирмы, отсортированный по полю наименование, с указанием оптовой цены);

Продажа (выводит список товаров с указанием розничной цены. При продаже товара информация фиксируется в базе фирмы, заменяя информацию в поле «дата изготовления» на дату продажи, а в поле «цена розничная» фиксируется продажная цена товара);

Возврат (при обнаружении клиентом неисправностей, и если не закончен гарантийный срок, товар возвращается на фирму и клиенту возмещается стоимость товара, которая фиксируется в поле «цена (розничная)» со знаком «-»);

Анализ (выдает информацию по заданному пользователем параметру, например, прибыль или убытки фирмы за прошедший месяц );

Конец (завершает программу).

Указанные функции и процедуры выбираются из меню.

Ввод данных по каждому новому товару выполняется отдельно в диалоге, инициатором которого является программа.

ОПИСАНИЕ ПРЕДМЕТНОЙ ОБЛАСТИ

Компьютерная фирма занимается поставками и продажей компьютеров и комплектующих.

Так как в связи с деятельностью фирмы товар постоянно находится в движении, то есть приобретается новый товар и продается имеющийся в наличии, то это создает некоторые трудности для учета товара, проданного и находящегося в наличии.

Чтобы облегчить ведение учета за товаром фирмы мной была написана программа, которая создает базу данных компьютерной фирмы. В этой базе хранится вся информация о товарах фирмы, как о только что приобретенных, так и о уже проданных товарах.

С помощь данной программы можно:

- Занести новый товар в базу;

- Просмотреть какой товар в данный момент находится на складе фирмы;

- Осуществить продажу товара, то есть если товар продан, программа помечает его в базе данных как проданный товар и при запросе о наличии такого товара пишет, что донного товара в наличии нет;

- Произвести возврат товара, то есть если клиент при обнаружении неисправностей или по каким другим причинам хочет вернуть товар, и если у данного товара не закончен гарантийный срок, то товар возвращается на фирму и вновь заносится в базу;

- Произвести анализ финансовой деятельности компьютерной фирмы, то есть узнать получила фирма прибыль или понесла убытки.

Программа очень легка и удобна в управлении. Она не требует ни каких настроек, так как все настройки уже сделаны и доведены до оптимального уровня.

Интерфейс пользователя с программой осуществляется полностью на русском языке

ОПИСАНИЕ АЛГОРИТМА

В данном пункте описывается составляющие программы. Программа запускается при нажатии комбинации кнопок CTRL+F9

Передвижение курсора по меню производится при помощи кнопок «стрелка вниз» и «стрелка вверх», а выбор пункта меню при помощи кнопки «Enter». Само меню программы состоит из следующих пунктов:

Зарегистрировать

При выборе этого пункта меню программа запрашивает информацию о товаре, приобретаемом фирмой, состоящую из следующих полей:

регистрационный номер;

наименование;

характеристики;

дата изготовления;

срок гарантии;

цена (оптовая);

Для перехода к следующему полю и последующему выходу в основное меню программы необходимо нажать клавишу «Enter».

Просмотр

При выборе этого пункта меню выводится весь список товаров фирмы, содержащий полную информацию о каждом товаре, хранящейся в базе.

Продажа

При выборе этого пункта меню выводится список товаров с указанием розничной цены. При продаже товара информация фиксируется в базе фирмы, заменяя информацию в поле «дата изготовления» на дату продажи, а в поле «цена розничная» фиксируется продажная цена товара;

Возврат

При выборе этого пункта меню производится возврат товара на фирму.

Анализ

При выборе этого пункта меню выдается информация о прибыли или убытках фирмы.

Конец.

При выборе этого пункта меню осуществляется выход из программы

Находясь в основном меню выйти из программы можно также при помощи клавиши «Escape».

Данная программа состоит из следующих процедур:

Procedure help - в отведённом окне выводятся подсказки помогающие при выборе пункта меню.

Procedure createlist- эта процедура при помощи цикла в while t<>nil do перебирает список динамических переменных и записывает данные из списка в файл базы.

Procedure savelist - эта процедура при помощи цикла repeat until считывается одна компонента из файла базы. Предварительно проверив размер файла базы. Далее формируется односвязный список динамических переменных, отсортированный по алфавиту. Условия выхода из цикла- eof(ff).

Procedure vvod_d- процедура предназначена для регистрации нового товара.

Procedure Menutoscr- Выводит меню на экран.

Procedure vivod -- при помощи этой процедуры выводится весь список товаров находящихся на складе. Если список отсутствует то выводится соответствующие сообщение

Procedure prodaza - При продаже товара программа сначала спрашивает наименование товара который интересует. Если торам с таким именем существует то выводит список всех товаров находящихся на складе. После ввода регистрационного номера программа выполняет действия необходимые для продажи: заменяет дату изготовления на текущую дату, добавляет данные в поле цена розничная (цена оптовая*1,25). При не правильном вводе данных выводятся сообщение об ошибке.

Procedure vozvrat - При возврате товара программа запрашивает регистрационный номер потом проверяет существует ли такой товар в базе перебирая весь список данных. Если такой товар зарегистрирован то программа выполняет проверку истек ли срок гарантии (дата продажи + срок гарантии <= текущей даты). Если это условие выполнено то выполняется следующие действие цена розничная*-1.

Procedure analiz - При помощи этой процедуры производится анализ прибыли или убытков в текущем месяце. Сначала перебирается весь список данных. При переборе списка данных проверяется следующие условие, если цена розничная больше нуля (товар продан) то эту цену плюсуют к переменной «а». Если цена розничная меньше нуля(товар вернули по гарантии) то эту цену плюсуют к переменной «S». При выборе из под меню пунктов прибыль или убытки на экран выводится соответствующие сообщение с суммой прибыли или убытков

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. Культин - Turbo Pascal в задачах и примерах;

2.Фаронов В.В. - Turbo Pascal в подлиннике;

3. С.И. Молчанова - Основы программирования Турбо Паскаль 7.0;

4. Будилов В.Н. , Иванов В.В. - Основы программирования на языке Паскаль;

5. Немнюгин С.А. Turbo Pascal.

ПРИЛОЖЕНИЕ 1

Листинг программы

Program mm;

Uses crt,dos;

Const

norm=12;

sel=$50;

m=6;

type

ps=^firma;

firma= record

nomer: integer;

name: string[10];

har: string[10];

data: string[10];

garantia:word;

cenaopt: real;

cenaroz: real;

l,r:ps;

end;

ftype=file of firma;

var

ff:ftype;

buf:firma;

top:ps;

menu:array[1..m] of string[18];

punkt:integer;

ch:char;

otvet:char;

i,x,y:integer;

PROCEDURE help (punkt:integer);

Begin

textattr:=5;

window (3,22,79,22);

clrscr;

case punkt of

1: write ('Регистрирует новый товар приобретенный фирмой');

2: write ('Выводит весь список товаров фирмы');

3: write ('Продажа товара');

4: write ('Возвращение товара');

5: write ('Выдает информацию о прибыли или убытках фирмы');

6: write ('Завершает программу');

end;

textattr:=norm;

window (1,1,80,25);

end;

PROCEDURE createlist (var ff:ftype; var top:ps);

var

n,p,t:ps;

begin

top:=nil;

if filesize(ff)<>0 then

begin

reset(ff);

repeat

read(ff,buf);

new(n);

n^:=buf;

n^.l:=nil;

n^.r:=nil;

t:=top;

p:=nil;

while (n^.name>t^.name) and (t<>nil) do

begin

p:=t;

t:=t^.r;

end;

if p=nil then

begin

n^.r:=top;

top^.l:=n;

top:=n;

end

else

begin

n^.r:=t;

n^.l:=p;

p^.r:=n;

t^.l:=n;

end;

until eof(ff);

end;

WINDOW(1,1,80,25);

end;

PROCEDURE savelist (top:ps;var ff:ftype) ;

var

t:ps;

begin

rewrite(ff);

t:=top;

while t<>nil do

begin

buf:=t^;

write(ff,buf);

t:=t^.r;

end;

end;

PROCEDURE vvod_d(var top:ps);

var

name:string[20];

n,p,t:ps;

begin

window(30,6,79,14);

new(n);

write('Наименование товара: '); readln(n^.name);

write('Регистрационный номер: '); readln(n^.nomer);

write('Характеристики: '); readln(n^.har);

write('Дата изготовления: '); readln(n^.data);

write('Срок гарантии: '); readln(n^.garantia);

write('Цена оптовая: '); readln(n^.cenaopt);

readln;

n^.cenaroz:=0;

n^.l:=nil;

n^.r:=nil;

t:=top;

p:=nil;

while (n^.name>t^.name) and (t<>nil) do

begin

p:=t;

t:=t^.r;

end;

if p=nil then

begin

n^.r:=top;

top^.l:=n;

top:=n;

end

else

begin

n^.r:=t;

n^.l:=p;

p^.r:=n;

t^.l:=n;

end;

clrscr;

window(1,1,80,25);

help(punkt);

end;

Procedure Menutoscr; {Вывод на экран}

begin

clrscr;

gotoxy(1,1);

writeln('г==============================================¬');

gotoxy(1,2);

writeln('¦ ¦');

gotoxy(1,3);

writeln('¦ ¦');

gotoxy(1,4);

writeln('¦==============================================¦');

gotoxy(1,5);

writeln('¦ ¦');

gotoxy(1,6);

writeln('¦ ¦');

gotoxy(1,7);

writeln('¦ ¦');

gotoxy(1,8);

writeln('¦ ¦');

gotoxy(1,9);

writeln('¦ ¦');

gotoxy(1,10);

writeln('¦ ¦');

gotoxy(1,11);

writeln('¦ ¦');

gotoxy(1,12);

writeln('¦ ¦');

gotoxy(1,13);

writeln('¦ ¦');

gotoxy(1,14);

writeln('¦ ¦');

gotoxy(1,15);

writeln('¦ ¦');

gotoxy(1,16);

writeln('¦ ¦');

gotoxy(1,17);

writeln('¦ ¦');

gotoxy(1,18);

writeln('¦ ¦');

gotoxy(1,19);

writeln('¦ ¦');

gotoxy(1,20);

writeln('¦ ¦');

gotoxy(1,21); writeln('¦==============================================¦');

gotoxy(1,22);

writeln('¦ ¦');

gotoxy(1,23);

writeln('L=============================================-');

begin

gotoxy(27,2);

textattr:=8;

writeln('База данных компьютерной фирмы');

textattr:=norm;

end;

for i:=1 to 6 do

begin

gotoxy(x,y+i-1);

write ( menu[i] );

end;

textattr:=sel;

gotoxy(x,y+punkt-1);

write( menu[punkt] );

textattr:=norm;

help(punkt);

end;

procedure vivod(top:ps); {вывод данных}

var

t:ps;

begin

clrscr;

if top=nil then

writeln('База данных пуста')

else

begin

textattr:=7;

gotoxy(1,1);

writeln('г=============================================¬');

gotoxy(1,2);

writeln('¦ ¦');

gotoxy(1,3);

writeln('L=============================================-');

textattr:=norm;

gotoxy(25,2);

writeln('Список всех товаров фирмы');

gotoxy (2,5); write ('НАИМЕНОВАНИЕ');

gotoxy (16,5); write ('НОМЕР');

gotoxy (23,5); write ('ХАРАКТЕРИСТИКИ');

gotoxy (43,5); write ('ДАТА ИЗГОТОВЛ.');

gotoxy (58,5); write ('ГАРАНТИЯ');

gotoxy (68,5); write ('ЦЕНА ОПТОВАЯ');

i:=7;

t:=top;

writeln;

while t<>nil do

begin

if t^.cenaroz<=0 then

begin

gotoxy(2, i); write (t^.name);

gotoxy(16,i); write (t^.nomer);

gotoxy(23,i); write (t^.har);

gotoxy(43,i); write (t^.data,' ');

gotoxy(58,i); write (t^.garantia,' год(а)');

gotoxy(68,i); write (t^.cenaopt:2:2,' руб.');

i:=i+1;

end;

t:=t^.r;

end;

end;

readln;

end;

procedure prodaza(var top:ps);

var

nomer:integer;

i,f,f1:integer;

dd{день},mm{месяц},gg{год},dn{день недели}:word;

den,mes,god:string[4];

name:string;

t:ps;

begin

clrscr;

if top=nil then

writeln('База данных пуста')

else

begin

textattr:=7;

gotoxy(1,2);

writeln('г=============================================¬');

gotoxy(1,3);

writeln('¦ ¦');

gotoxy(1,4);

writeln('L=============================================-');

textattr:=norm;

textattr:=5;

gotoxy(29,3);

writeln('Продажа товаров');

gotoxy(29,25);

writeln('Для выполнения покупки нажмите «y»');

textattr:=norm;

textattr:=5;

gotoxy (2,5);

writeln ('Введите наименование товара :');

gotoxy (35,5);

readln (name);

textattr:=norm;

f:=0;

t:=top;

i:=8;

while t<>nil do

begin

if (name=t^.name) and (t^.cenaroz<=0) then

begin

gotoxy (2,7); writeln ('НАИМЕНОВАНИЕ');

gotoxy (16,7); writeln ('НОМЕР');

gotoxy (23,7); writeln ('ХАРАКТЕРИСТИКИ');

gotoxy (43,7); writeln ('ДАТА ИЗГОТОВЛ.');

gotoxy (58,7); writeln ('ГАРАНТИЯ');

gotoxy (68,7); writeln ('ЦЕНА РОЗНИЧНАЯ');

writeln;

gotoxy(16,i); write (t^.nomer);

gotoxy(2, i); write (t^.name);

gotoxy(23,i); write (t^.har);

gotoxy(43,i); write (t^.data);

gotoxy(58,i); write (t^.garantia);

gotoxy(68,i); write (t^.cenaopt*1.25:2:2);

i:=i+1;

f:=1;

end;

t:=t^.r;

end;

if f=0 then

writeln ('Данного товара нет') else

begin

textattr:=7;

gotoxy(15,13);

write ('Хотите купить этот товар?:');

readln (otvet);

textattr:=norm;

if otvet='y' then

begin

textattr:=5;

gotoxy(2,15);

writeln ('Введите регистрационный номер:');

gotoxy (33,15);

readln (nomer);

textattr:=norm;

f1:=0;

t:=top;

i:=18;

while t<>nil do

begin

if nomer=t^.nomer then

begin

gotoxy (2,17); writeln ('НАИМЕНОВАНИЕ');

gotoxy (16,17); writeln ('НОМЕР');

gotoxy (23,17); writeln ('ХАРАКТЕРИСТИКИ');

gotoxy (43,17); writeln ('ДАТА ИЗГОТОВЛ.');

gotoxy (58,17); writeln ('ГАРАНТИЯ');

gotoxy (68,17); writeln ('ЦЕНА РОЗНИЧНАЯ');

writeln;

gotoxy(16,i); write (t^.nomer);

gotoxy(2, i); write (t^.name);

gotoxy(23,i); write (t^.har);

gotoxy(43,i); write (t^.data);

gotoxy(58,i); write (t^.garantia);

gotoxy(68,i); write (t^.cenaopt*1.25:2:2);

readln;

f1:=1;

getdate(gg,mm,dd,dn);

str(dd,den);

str(mm,mes);

str(gg,god);

t^.data:=den+'.'+mes+'.'+god;

t^.cenaroz:=t^.cenaopt*1.25;

textattr:=10;

gotoxy(30,22);

writeln ('ПРОДАНО!!!');

textattr:=norm;

break;

end;

t:=t^.r;

end;

if f1=0 then

writeln('ERROR');

readln;

end;

end;

end;

readln;

end;

Procedure vozvrat(var top:ps);

var

c,d1,m1,g1,n1:word;

i:integer;

mm,gg:string;

name:string[20];

mes,g,nom,f:integer;

t:ps;

begin

clrscr;

if top=nil

then writeln('BAZA NOT')

else

begin

textattr:=7;

gotoxy(1,1);

writeln('г=============================================¬');

gotoxy(1,2);

writeln('¦ ¦');

gotoxy(1,3);

writeln('L=============================================-');

textattr:=norm;

textattr:=5;

gotoxy(29,2);

writeln('Возврат товара');

textattr:=norm;

gotoxy (17,5);

write('Введите номер:');

textattr:=12;

GOTOXY(55,5);

readln(nom);

t:=top;

getdate(g1,m1,d1,n1);

f:=0;

while t<>nil do

begin

if (nom=t^.nomer) and (t^.cenaroz>0)

then

Begin

f:=1;

I:=9;

gotoxy (2,7); writeln ('НАИМЕНОВАНИЕ');

gotoxy (16,7); writeln ('НОМЕР');

gotoxy (23,7); writeln ('ХАРАКТЕРИСТИКИ');

gotoxy (43,7); writeln ('ДАТА ИЗГОТОВЛ.');

gotoxy (58,7); writeln ('ГАРАНТИЯ');

gotoxy (68,7); writeln ('ЦЕНА РОЗНИЧНАЯ');

writeln;

gotoxy(16,i); write (t^.nomer);

gotoxy(2, i); write (t^.name);

gotoxy(23,i); write (t^.har);

gotoxy(43,i); write (t^.data);

gotoxy(58,i); write (t^.garantia);

gotoxy(68,i); write (t^.cenaopt*1.25:2:2);

i:=1;

while t^.data[i]<>'.' do i:=i+1;

i:=i+1;

mm:='';

while t^.data[i]<>'.' do

begin

mm:=mm+t^.data[i];

i:=i+1;

end;

gg:='';

i:=i+1;

while i<=length(t^.data) do

begin

gg:=gg+t^.data[i];

i:=i+1;

end;

readln;

val(mm,MES,c);

val(gg,G,c);

if (m1-mes>=0) and (g1-g<t^.garantia)

then

begin

gotoxy(30,20);

writeln('Товар возвращен');

t^.cenaroz:=-t^.cenaroz;

end

else

writeln('Нет гарантии');

break;

end;

t:=t^.r;

end;

if f=0

then

writeln('Компьютер не наш');

end;

readln;

end;

Procedure Analiz(top:ps);

var

t:ps;

fl:byte;

Sp,Su,S:real;

begin

clrscr;

textattr:=12;

textattr:=7;

gotoxy(1,1);

writeln('г=============================================¬');

gotoxy(1,2);

writeln('¦ ¦');

gotoxy(1,3);

writeln('L=============================================-');

textattr:=norm;

gotoxy(25,2);

writeln('анализ деятельности фирмы');

if top=nil then

begin

writeln('NOT!!!');

readln;

end

else

begin

t:=top;

S:=0;

Sp:=0;

Su:=0;

i:=7;

fl:=0;

while t<>nil do

begin

if t^.cenaroz<>0

then

begin

fl:=1;

gotoxy (2,5); writeln ('НАИМЕНОВАНИЕ');

gotoxy (16,5); writeln ('НОМЕР');

gotoxy (23,5); writeln ('ХАРАКТЕРИСТИКИ');

gotoxy (43,5); writeln ('ДАТА ИЗГОТОВЛ.');

gotoxy (58,5); writeln ('ГАРАНТИЯ');

gotoxy (68,5); writeln ('ЦЕНА РОЗНИЧНАЯ');

writeln;

gotoxy(16,i); write (t^.nomer);

gotoxy(2, i); write (t^.name);

gotoxy(23,i); write (t^.har);

gotoxy(43,i); write (t^.data);

gotoxy(58,i); write (t^.garantia);

gotoxy(68,i); write (t^.cenaroz:4:2);

i:=i+1;

Sp:=Sp+abs(t^.cenaroz);

if t^.cenaroz<0 then

Su:=Su+t^.cenaroz;

end;

t:=t^.r;

end;

if fl=0 then

begin

gotoxy(30,19);

writeln('Операций не было')

end

else

begin

gotoxy (25,22);

writeln('Доход : ',sp:5:2,' руб.');

gotoxy (25,23);

writeln('Убытки : ',Su:5:2,' руб.');

gotoxy (25,24);

writeln('Прибыль : ',sp+su:5:2,' руб.');

end;

end;

readln;

end;

begin {основная программа}

assign(ff,'firma.dat');

{$I-}reset(ff);{$I+}

if ioresult=0 then

createlist(ff,top) else

top:=nil;

textattr:=norm;

menu[1]:='Зарегистрировать';

menu[2]:='Просмотр ';

menu[3]:='Продажа ';

menu[4]:='Возврат ';

menu[5]:='Анализ ';

menu[6]:='Конец ';

punkt:=1;

x:=2;

y:=6;

textattr:=norm;

Menutoscr;

repeat

ch:=ReadKey;

if ch=chr(0) then

begin

ch:=ReadKey;

case ch of

chr(80): {стрелка вниз}

if punkt<m then

begin

gotoxy(x,y+punkt-1);

write(menu[punkt]);

punkt:=punkt+1;

help(punkt);

textattr:=sel;

gotoxy(x,y+punkt-1);

write(menu[punkt]);

textattr:=norm;

end;

chr(72):

if (punkt>1) and(punkt<=m) then

begin

gotoxy(x,y+punkt-1);

write(menu[punkt]);

punkt:=punkt-1;

help(punkt);

textattr:=sel;

gotoxy(x,y+punkt-1);

write(menu[punkt]);

textattr:= norm;

end;

end;

end

else

if ch=chr(13) then

begin

case punkt of

1: vvod_d(top);

2: vivod(top);

3: prodaza(top);

4: vozvrat(top);

5: Analiz(top);

6: ch:=chr(27) ;

end;

Menutoscr;

End;

until ch= chr(27) ;

savelist(top,ff);

close(ff);

end.

ПРИЛОЖЕНИЕ 2

Структура базы данных:

База firma:

Наименование товара: CD-ROM

Регистрационный номер: 3

Характеристики: LG 52x

Дата изготовления: 12.05.2003

Срок гарантии: 1 год

Цена оптовая: 400 руб.

Наименование товара: DVD-ROM

Регистрационный номер: 4

Характеристики: Sony 16x/48x

Дата изготовления: 26.02.2004

Срок гарантии: 1 год

Цена оптовая: 800 руб.

Наименование товара: Видеокарта

Регистрационный номер: 5

Характеристики: Radeon 9700 128 МБ

Дата изготовления: 29.01.2004

Срок гарантии: год

Цена оптовая: 6200 руб.

ПРИЛОЖЕНИЕ 3

Результаты работы программы:

После процедуры prodaza :

Продажа товара

Наименование товара: CD-ROM

Регистрационный номер: 3

Характеристики: LG 52x

Дата изготовления: 12.05.2003

Срок гарантии: 1 год

Цена оптовая: 400 руб.

База firma :

Наименование товара: DVD-ROM

Регистрационный номер: 4

Характеристики: Sony 16x/48x

Дата изготовления: 26.02.2004

Срок гарантии: 1 год

Цена оптовая: 800 руб.

Наименование товара: Видеокарта

Регистрационный номер: 5

Характеристики: Radeon 9700 128 МБ

Дата изготовления: 29.01.2004

Срок гарантии: 2 года

Цена оптовая: 6200 руб.

После процедуры vozvrat :

Возврат товара покупателем

Наименование товара: CD-ROM

Регистрационный номер: 3

Характеристики: LG 52x

Дата изготовления: 12.05.2003

Срок гарантии: 1 год

Цена оптовая: 400 руб.

База firma :

Наименование товара: CD-ROM

Регистрационный номер: 3

Характеристики: LG 52x

Дата изготовления: 12.05.2003

Срок гарантии: 1 год

Цена оптовая: 400 руб.

Наименование товара: DVD-ROM

Регистрационный номер: 4

Характеристики: Sony 16x/48x

Дата изготовления: 26.02.2004

Срок гарантии: 1 год

Цена оптовая: 800 руб.

Наименование товара: Видеокарта

Регистрационный номер: 5

Характеристики: Radeon 9700 128 МБ

Дата изготовления: 29.01.2004

Срок гарантии: 2 года

Цена оптовая: 6200 руб.

После процедуры analiz

Анализ деятельности фирмы

Наименование товара: CD-ROM

Регистрационный номер: 3

Характеристики: LG 52x

Дата изготовления: 12.05.2003

Срок гарантии: 1 год

Цена оптовая: - 400 руб.

Доход: 400 руб.

Убытки: -400 руб.

Прибыль: 0 руб.

База firma :

Наименование товара: CD-ROM

Регистрационный номер: 3

Характеристики: LG 52x

Дата изготовления: 12.05.2003

Срок гарантии: 1 год

Цена оптовая: 400 руб.

Наименование товара: DVD-ROM

Регистрационный номер: 4

Характеристики: Sony 16x/48x

Дата изготовления: 26.02.2004

Срок гарантии: 1 год

Цена оптовая: 800 руб.

Наименование товара: Видеокарта

Регистрационный номер: 5

Характеристики: Radeon 9700 128 МБ

Дата изготовления: 29.01.2004

Срок гарантии: 2 года

Цена оптовая: 6200 руб.