Автор: Пользователь скрыл имя, 21 Декабря 2012 в 11:37, курсовая работа
Вычислительная техника в 19 и в начале 20 вв. связано главным образом с постройкой аналоговых машин, в частности первой машины для решения дифференциальных уравнений академика А. Н. Крылова (1904). В 1944 в США была построена ЦВМ с программным управлением «МАРК-1» на электромагнитных реле; её изготовление стало возможным благодаря накопленному опыту эксплуатации телефонной аппаратуры, счётно-аналитических и счётно-перфорационных машин. Резкий скачок в развитии Вычислительная техника — создание в середине 40-х гг. 20 в. электронных цифровых вычислительных машин (ЭЦВМ) с программным управлением.
Введение…………………………………………………………………………..5
1. Общая часть.
1.1. Описание программного обеспечения………………………………...7
1.2. Описание языка программирования…………………………………...9
2. Специальная часть.
2.1 Постановка задачи…………………………………………………….15
2.2 Описание программы………………………………………………….15
2.3 Таблица идентификаторов комплекса………………………………..17
2.4 Таблица набора данных………………………………………………17
3. Организация производства.
3.1 Комплекс технических средств, необходимых
для выполнения программы………………………………………………18
3.2. Инструкция пользователю…………………………………………...18
4. Заключение………………………………………………………………………….19
Приложения………………………………………………………………...…..20-39
Библиография…………………………………………………………………….40
WriteLN('[v]-Posmotret vse zapisi' , 15,14,0);
IF DataBaseModified Then WriteLN('[w]-zapisat izmeneniya v fail', 15,13,0)
Else WriteLN('[w]-zapisat izmeneniya v fail', 15,14,0);
WriteLN('[q]-Vihod'
Repeat
GotoXY(2,ActiveLine);
C:=ReadKey;
IF (C='q') or (C='©') or (Ord(c)=27) Then SelectedLine:=255;
IF (C='a') or (C='д') Then SelectedLine:=1;
IF (C='s') or (C='л') Then SelectedLine:=2;
IF (C='v') or (C='¬') Then SelectedLine:=3;
IF (C='w') or (C='ж') Then SelectedLine:=4;
IF Ord(C)=72 Then Dec(ActiveLine);
IF Ord(C)=80 Then Inc(ActiveLine);
IF Ord(C)=13 Then SelectedLine:=ActiveLine;
IF SelectedLine=5 Then SelectedLine:=255;
IF ActiveLine=0 Then ActiveLine:=5;
IF ActiveLine=6 Then ActiveLine:=1;
Until (SelectedLine>0);
Menu:=SelectedLine;
End;
Var M: Byte;
BEGIN
ClrScr;
DataBaseFileName:='DataBase.
ReadInformationFromDataBaseFil
Repeat
M:=Menu;
Case M Of
1: AddInformation;
2: SearchInformation;
3: ShowAllRecords;
4: WriteInformationToDataBaseFile
End;
Until M=255;
ClrScr;
IF DataBaseModified=True Then Begin
WriteLN('Baza dannih bila izmenena!', 15,14,0);
IF Yes_Or_No('sohranit izmeneniya v fail?')=True Then
WriteInformationToDataBaseFile
ClrScr;
End;
END.
Список используемой литературы:
Байкенов. Ш. А. «Вычислительная техника и история ее развития.»;
Идрисова И. П. Куандыков К. З. «Основы Turbo Pascal и программирование на нем.»;
Бигарин И. В. Карабалинов А. С. «Основы типизации и структурного (процедурного) программирования.».