Записывающие/считывающие устройства – CD–R, CD–RW, DVD–R, DVD–RW
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?.
47. Фридланд А.Я. Введение в информатику [Текст] : учеб. пособие для студ. вузов / А.Я. Фридланд. - Туда: изд. ТГПУ имени Л.Н. Толстого ч. 1: Информация - 2004. - 92с.
48. Черников Б.В. Информационные технологии в вопросах и ответах [Текст] : учеб. пособие / Б.В. Черников.- М.: Финансы и статистика, 2005. - 320с.
49. Щеглов Ю.А. Защита компьютерной информации от несанкционированного доступа [Текст] : учеб. пособие / Ю.А. Щеглов. - М.: Наука и техника, 2004. - 384с.
50. Ягелло Т.А. Основы информатики [Текст] : учеб. пособие / Т.А. Ягелло. - Минск: Изд-во БГУ, 2005. - 195 с.
Приложение А
lr5;crt,dos;InitModGraf;:Registers;.AH:=$00;.AL:=$13;;($10,r);;;InitModText;:Registers;.AH:=$00;.AL:=$03;;($10,r);;;SetPixel(x,y:word;color:byte);:Registers;.AH:=$0C;.AL:=color;.CX:=x;.DX:=y;;($10,r);;;SetPixelAsm(x,y:word;color:byte);;AH,0ch;AL,color;cx,x;dx,y;10h;;InitModGrafAsm;;AH,00h;AL,13h;10h;;InitModTextAsm;;AH,00h;AL,03h;10h;;FigureAsm;,a,b,i:integer;,M1,H2,M2,S1,S2,T1,T2,WorkS,WorkMS:word;,y:longint;:=0; y:=0;(H1,M1,S1,T1);;;i:=5 to 25 do:=0; y:=0;:=i;:=25;t:=0 to 720 do:=round(a*cos(t)+160);y:=round(b*sin(t)+100);SetPixelAsm(x,y,12);; end;(H2,M2,S2,T2);:=S2-S1;:=T2-T1;;;(H1,:,M1,:,S1,:,T1);(H2,:,M2,:,S2,:,T2);(Time: ,WorkS, s ,WorkMS, ms);;;FigureDos;,a,b:integer;,M1,H2,M2,S1,S2,T1,T2,WorkS,WorkMS,i:word;,y:longint;:=0; y:=0;(H1,M1,S1,T1);;;i:=25 downto 5 do:=i;:=25;t:=0 to 720 do:=trunc(a*cos(t)+160);y:=trunc(b*sin(t)+100);SetPixel(ord(x),ord(y),12);; end;(H2,M2,S2,T2);:=S2-S1;:=T2-T1;;;(H1,:,M1,:,S1,:,T1);(H2,:,M2,:,S2,:,T2);(Time: ,WorkS, s ,WorkMS, ms);;;:string;clrscr;(Chose graphic mode (Dos or Asm).);(Ans); if Ans=Dos then FigureDos else if Ans=Asm then FigureAsm; end.