НЕТ 

                                                                                          
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

2.3 СПЕЦИФИКАЦИЯ ПРОГРАММНО-ТЕХНИЧЕСКОГО КОМПЛЕКСА

Таблица 2

      2.4 ИНСТРУКЦИЯ ОПЕРАТОРУ

Назначение  программы

      Данная программа предназначена для сортировки и вывода на экран информации о состоянии товара на предприятии. Её использование может быть применено на складе для учёта товара.

Подготовка  к работе

      Для того, что бы запустить данную программу  необходимо зайти на съемный диск в папку ЭВМ – Программа. В данной папке Вы найдете файл с названием исходник.txt, нажмите на нем правой кнопкой мыши и в высветившемся меню найдите - Открыть с помощью, после чего в списке программ найдите Turbo Pascal и нажмите клавишу Ок. В итоге у Вас должна открыться программа Turbo Pascal с исходным кодом, и теперь чтоб начать работать вы должны нажать клавишу F9. 
 

Выполнение программы

      После того, как Вы все сделаете, перед  вами должно открыться такое меню:

 
 

1 - otkrit fail – открывает файл с базой данных товаров;

2 - soxranit dannie v fail – сохраняет новые записи в файл;

3 - dobavit zapis – добавляет запись;

4 - ves spisok – выводит на экран весь список товара;

5 - est v nalichii – выводит на экран список товара, который есть в наличии;

6 - net v nalichii – выводит на экран товар, которого нет в наличии;

7 - na sklade - выводит на экран товар, который есть тока на складе;

8 - novoe postuplenie - выводит на экран товар, который тока что поступил (новый);

9 – vixod – выход из программы.

Рисунок 9. Общее меню программы 

Рисунок 10. Список всех устройств

ЗАКЛЮЧЕНИЕ

     В результате проделанных теоретических  исследований и работы над поставленной задачей была разработана структурная, функциональная и принципиальная схема устройства ввода речевой информации на английском языке. Спроектированное устройство обладает следующими достоинствами: высокая надежность самого устройства в следствии отсутствия движущихся механических деталей; звуковое сопровождение «нажатий» клавиш; удобство работы с устройством.

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

СПИСОК  ЛИТЕРАТУРЫ

      1. Евреинов Э.В., Бутыльский Ю.Т., Мамзелев И. А. Цифровая и вычислительная техника. – М.: Вильямс ,2005г.- С.576.

      2. Леонтьев В.П. Новейшая энциклопедия персонального компьютера. -  М.: ОЛМА-ПРЕСС, 2006.- С.  957.

      3. Столлингс У. Структурная организация и архитектура компьютерных систем. М.: Вильямс, 2005. – С. 896.

      4. Цилькер Б. Я., Орлов С.А. Организация ЭВМ и систем: Учебник для вузов. – СПб.: Питер, 2004. – С. 668. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение 1 

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

uses crt;

type

tip_data=record         

          st:string[60];  

          n:char;                         

         end;

var

data:array[1..40]of tip_data;       

f:file of tip_data;                 

max_d:integer;                      

i:integer;      

                   

procedure Save_file;

begin

assign(f,'data.dat');

rewrite(f);

for i:=1 to max_d do write(f,data[i]);

close(f);

writeln;

writeln('dannie soxraneni v faile');

readln;

end; 

procedure Open_file;

begin

assign(f,'data.dat');

reset(f);

i:=0;

while eof(f)=false do

begin

inc(i);

read(f,data[i]);

end;

max_d:=i;

writeln;

writeln('dannie iz faila zagrugeni');

readln;

end; 

procedure Add;

begin

inc(max_d);

writeln;

write('nazvanie firmi: ');

readln(data[max_d].st);

writeln('ustroistvo naxoditsya: ');

writeln(' 0 - est v nalichii');

writeln(' 1 - net v nalichii');

writeln(' 2 - naxoditsya na sklade');

writeln(' 3 - naxoditsya v magazine');

readln(data[max_d].n);

writeln;

writeln('zapis dobavlenna');

readln;

end; 

procedure Spisok_4;

begin

writeln;

writeln('=== spisok vsex ustroistv ===');

for i:=1 to max_d do writeln(data[i].st);

readln;

end; 

procedure Spisok_5;

begin

writeln;

writeln('=== spisok ustroistv kotorie est v nalichii ===');

for i:=1 to max_d do if data[i].n='1' then writeln(data[i].st);

readln;

end; 

procedure Spisok_6;

begin

writeln;

writeln('=== spisok ustroistv sdannix na prokat ===');

for i:=1 to max_d do if data[i].n='2' then writeln(data[i].st);

readln;

end; 

procedure Spisok_7;

begin

writeln;

writeln('=== spisok polomannix ustroistv ===');

for i:=1 to max_d do if data[i].n='3' then writeln(data[i].st);

readln;

end;

procedure Spisok_8;

begin

writeln;

writeln('=== spisok dobavlennix ustroistv ===');

for i:=1 to max_d do if data[i].n='4' then writeln(data[i].st);

readln;

end;

procedure Menu;

var

flag_Exit:boolean;

s:char;

begin

Exit:=false;

repeat

clrscr;

writeln;

writeln('---------- MENU -----------');

writeln(' 1 - otkrit fail');

writeln(' 2 - soxranit dannie v fail');

writeln(' 3 - dobavit zapis');

writeln(' 4 - ves spisok');

writeln(' 5 - est v nalichii');

writeln(' 6 - net v nalichii');

writeln(' 7 - na sklade');

writeln(' 8 - novoe postuplenie');

writeln(' 9 - vixod');

readln(s);

case s of

'1': Open_file;

'2': Save_file;

'3': Add;

'4': Spisok_4;

'5': Spisok_5;

'6': Spisok_6;

'7': Spisok_7;

'8': Spisok_8;

'9': Exit;

end;

until Exit;

end;

begin

max_d:=0;

menu;

end.