Автоматизований облік надходження, зберігання і збуту продукції на товарній базі

Автоматизований облік надходження, зберігання і збуту продукції на товарній базі

Вступ

Обіг продукції – це дійова економіка. Для того щоб розвиватися економіка повинна рухатися, а як вона рухається завдяки обороту повару та грошей. Створити програму за допомогою якої можливо прослідкувати обіг на складі, за певний період

Я вибрав мову програмування Turbo Pascal, з метою закріплення своїх навиків з програмування, а також вважаю що ця мова є найбільш доцільною за даних обставин.

1. Основна частина

1.1 Неформальна постановка задачі

Розробити програму – «товарна база» для збереження та перегляду, а також автоматизованої обробки інформації що надає користувач.

- Введення і збереження інформації в файлі:

o Назва товарної бази

o ПІБ власника товарної бази

o Надходження товару;

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

o Зберігання товару.

- Автоматизований аналіз по всім видам товару

o Сума по всім видам товару з надходження

o Сума по всім видам товару з продажу

o Сума по всім видам товару з зберігання

- Можливість редагування даної бази

- Можливість перегляду всіх існуючих документів

o Перегляд скороченого варіанту бази

o Перегляд повного варіанту даних, які занесені до бази

- Можливість видалення всієї бази.

- Зручний інтерфейс для користувача

- Швидкість та простота роботи в даній програмі

1.2 Формальна постановка задачі

Вихідні дані:

Позначимо сукупність всіх даних, які будуть заноситись до бази даних через множину А, таким чином А={А_1, А_2, А₃ }, А_і – множина всієї продукції що стосується складу, А₁ – Надходження продукції на склад, А₂ – продах продукції зі складу, А₃ – продукція яка зберігається на складі

Таким чином козле А_і = {B₁ , B₂ , …, B_j }, де B_j – конкретний товар i=1..n

Результат:

Множина Р_i , яка формуються з вхідних даних а саме множини А_i

Математична модель:

Р₁ = ∑ B_1j Р₂ = ∑ B_2j Р₃ = ∑ B_3j

1.3 Структура зберігаючих даних:

Rec – запис для введення та зберігання даних

· FIO – ПІБ власника складу

· Name – Назва складу

· Import – масив для вводу кількості продукції яка ввозиться на склад

· export – масив для вводу кількості продукції яка продається зі складу

· sohr – масив для вводу кількості продукції яка зберігається на складі

sa – введення та збереження даних в файл

n4 – управляюча частина меню

tie – статична частина меню

a_z – процедура яка проводить аналіз всіх даних та сумує по кожному продукту за певний період.

2 . Вихідний код програми

uses CRT, dos;

type rec=record

FIO:string[80];

name:string[40];

import:array [1.. 5,1..10] of integer;

end;

var a:char; b, i:byte;

s, s1, s2, s3, s4, s5, s6, s7, s8, s9:string;

flag:boolean;

{s1, s2, s3, s4:string;}

l:byte;

h:char;

{–}

procedure analiz;

var qw, as, zx:rec;

f1: file of rec;

f2: file of rec;

f3: file of rec;

i:integer;

mas: array [1.. 3,1..10] of integer;

begin

assign (f1,'c:imp.zoo');

assign (f2,'c:eks.zoo');

assign (f3,'c:sra.zoo');

if (FSearch ('imp.zoo', 'c:')='') or (FSearch ('eks.zoo', 'c:')='') or (FSearch('sra.zoo', 'c:')='') then

begin

window (1,1,40,25);

textbackground(1);

clrscr;

gotoxy (2,10);

textcolor(4);

write ('Ne pravelnaya operaciya, ne vse dannie');

end

else

begin

reset(f1);

reset(f2);

reset(f3);

seek (f1,0);

seek (f2,0);

seek (f3,0);

read (f1, qw);

read (f2, as);

read (f3, zx);

window (1,1,40,25);

textbackground(1);

clrscr;

{gotoxy (5,2);}

write ('Import Eksport Sohraneno');

for i:=1 to 10 do

begin

mas [1, i]:=qw.import [1, i]+qw.import [2, i]+qw.import [3, i];

mas [2, i]:=as.import [1, i]+as.import [2, i]+as.import [3, i];

mas [3, i]:=zx.import [1, i]+zx.import [2, i]+zx.import [3, i];

end;

window (1,3,8,12);

for i:=1 to 10 do

writeln (mas[1, i]);

window (16,3,25,12);

for i:=1 to 10 do

writeln (mas[2, i]);

window (32,3,40,12);

for i:=1 to 10 do

writeln (mas[3, i]);

end;

close(f1); close(f2); close(f3);

end;

{================}

{–}

procedure Rama (x1, y1, x2, y2, a, b:byte);

var i:integer;

begin

textbackground(a);

textcolor(b);

window (x1, y1, x2, y2);

write('Ъ');

for i:=1 to (x2-x1) – 1 do

begin

write('Д');

end;

write('ї');

for i:=2 to (y2-y1) – 1 do

begin

gotoxy (1, i);

write('і');

gotoxy (x2-x1+1, i);

write('і');

end;

write('А');

for i:=1 to (x2-x1) – 1 do

begin

write('Д');

end;

wri

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать