Автор работы: Пользователь скрыл имя, 10 Декабря 2013 в 18:00, курсовая работа
Компьютеры являются неотъемлемой частью нашей жизни, так как мы каждый день используем их на работе, дома и во множестве других мест.
Возможности применения компьютера в учебном процессе, весьма многообразны. Он может служить для моделирования изучаемых явлений или систем, для реализации учебных игр, применяться для выполнения вычислений, для редактирования текстов, в качестве различного рода тренажеров, как инструмент автоматизации проектирования, программируемого управления экспериментами, как информационно-поисковая или экспертная система и, наконец, как средство практического обучения самой компьютерной технике и программированию.
mov AL,13
mov BH,0
int 10h
end;
asm
mov AH,2
mov BH,0
mov DL,40
mov DH,17
int 10h
end;
asm
mov AH,0
int 16h
mov a,AL
end;
until(a='0')or(a='1')or(a='2')
case a of
'1': schit;
'2': sort;
'3': Zapis;
'4': About;
'0': Vihod;
end;
asm
mov AH,0
int 16h
end;
end;
procedure MenuInf;
var c:char;
begin
repeat
asm
mov AH,0
mov AL,3
int 10h
end;
asm
mov AH,2
mov BH,0
mov DL,35
mov DH,9
int 10h
end;
s:='1 - Инфоpмация';
lng:=length (s);
for i:= 1 to lng do
begin
buf:=s[i];
asm
mov AH,0eh
mov AL,buf
mov BH,0
int 10h
end;
end;
asm
mov AH,0eh
mov AL,10
mov BH,0
int 10h
mov AH,0eh
mov AL,13
mov BH,0
int 10h
end;
asm
mov AH,2
mov BH,0
mov DL,37
mov DH,11
int 10h
end;
s:='0 - Hазад';
lng:=length (s);
for i:= 1 to lng do
begin
buf:=s[i];
asm
mov AH,0eh
mov AL,buf
mov BH,0
int 10h
end;
end;
asm
mov AH,0eh
mov AL,10
mov BH,0
int 10h
mov AH,0eh
mov AL,13
mov BH,0
int 10h
end;
asm
mov AH,2
mov BH,0
mov DL,40
mov DH,13
int 10h
mov AH,0
int 16h
mov c,AL
end;
until(c='0')or(c='1');
case c of
'1': Information;
'0': MenuSpr;
end;
asm
mov AH,0
int 16h
end;
end;
begin
mainmenu;
end.