48569 (Разработка информационно-справочной системы "Устройство персонального компьютера"), страница 4
Описание файла
Документ из архива "Разработка информационно-справочной системы "Устройство персонального компьютера"", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48569"
Текст 4 страницы из документа "48569"
outtextxy (230, i+80, ' КУРСОВАЯ РАБОТА');
delay (200);
outtextxy (170,210,' ПО ДИСЦИПЛИНЕ: "АЛГОРИТМИЧЕСКИЕ ЯЗЫКИ И ПРОГРАММИРОВАНИЕ"');
delay (200);
outtextxy (120,260,'ТЕМА: "РАЗРОБОТКА ИНФОРМАЦИОННО-СПРАВОЧНОЙ СИСТЕМЫ"');
delay (200);
outtextxy (160,280,'"УСТРОЙСТВО ПЕРСОНАЛЬНОГО КОМПЬЮТЕРА"');
delay (200);
outtextxy (480,300,'ВЫПОЛНИЛ: ');
delay (200);
outtextxy (460,320,'СТ. ГР. СУА-05: ');
delay (200);
outtextxy(460,340,'БУЛАВИН АЛЕКСАНДР');
readkey;
end;
procedure WorSpece;
begin
setcolor(15);
setfillstyle(1,9);
bar3d(0,0,getmaxX,getmaxY,0,true);
setfillstyle(1,7);
setcolor(0);
bar3d(15,15,getmaxX-15,getmaxY-15,0,true);
setcolor(4);
setfillStyle(1,8);
bar3d(16,16,getmaxX-16,30,0,true);
setcolor(0);
line(17,32,17,getmaxY-17);
line(17,32,getmaxX-17,32);
line(getMaxX-17,32,getmaxX-17,getmaxY-17);
line(17,getmaxY-17,getmaxX-17,getmaxY-17);
setcolor (2);
settextstyle(9,0,15);
bar3D (0,460,210,477,0,FALSE);
outtextxy (40,465,'F2-ВЫХОД');
bar3D (400,460,638,477,0,FALSE);
outtextxy (400,465,'ВВЕРХ-возврат в основное меню');
end;
procedure colo;
var
m: integer;
n: fillpatterntype;
begin
setcolor (red);
settextstyle(3,0,1);
outtextxy (240,50,'Приготовьте мне, пожалуйста, на завтра');
outtextxy (240,57,'компьютер, но я не знаю, какой ');
outtextxy (240,64,'конфигурации... ');
setcolor (14);
outtextxy (280,71,'Звонок клиента в компьютерную фирму');
setcolor (13);
for m: =1 to 60 do
ellipse (300,240,180-4*m,0+4*m,100+6*m,30+2*m);
setfillstyle(1,7);
bar (190,150,410,350);
setfillstyle(1,11);
bar (205,160,395,340);
setcolor (0);
setfillpattern(fillpatterntype(n),7);
fillellipse (300,370,40, 20);
setfillstyle(10,10);
bar (110, 200,140,340);
bar (440, 200,470,340);
SETCOLOR (RED);
outtextxy (205,170,'К О М П Ь Ю Т Е Р-ЭТО... ');
outtextxy (230, 190,' ХОТИТЕ В ЭТОМ ');
outtextxy (250,210,'РАЗОБРАТЬСЯ... ');
outtextxy (255,230,'ЖМИТЕ ENTER!!! ');
SETCOLOR (0);
outtextxy (205,260,'ЧТОБЫ ВЫЙТИ ИЗ ПРОГРАММЫ');
outtextxy (270,280,'ЖМИТЕ F2');
readkey;
end;
procedure read(name: string);
var fname: text;
s: string;
y: Integer;
pos: longint;
begin
assign(fname,name);
reset(fname);
while not eof(fname) do
begin
y: =30; setcolor(0);
for pos: =1 to 40 do
begin
y: =y+10;
readln(fname,s);
outtextXY(30,y,s);
end;
com: =readkey;
readkey;
if com=#60 then break
else mainmenu(90);
end;
end;
Procedure fajl;
PROCEDURE proff(i: integer);
var
k: integer;
begin
CLEARDEVICE; {O4ISTKA EKRANA}
setBkcolor(12);
setcolor (2);
setfillstyle(1,14);
bar3D (0,460, 200,477,0,FALSE);
outtextxy (40,465,'ENTER-ВЫБРАТЬ');
bar3D (210,460,400,477,0,FALSE);
outtextxy (240,465,'ВВЕРХ-ДВИЖЕНИЕ ВВЕРХ');
bar3D (420,460,638,477,0,FALSE);
outtextxy (460,465,'ВНИЗ-ДВИЖЕНИЕ ВНИЗ');
SETLINESTYLE(SOLIDLN,0,3); {risuet liniu}
setcolor(12);
setfillstyle(9,9); {wablon zapolnenij i cvet}
bar3d(220, i,500, i+40,0,false); {risuem paralelepiped 1,2,3,4-koordinati; 0-glubina,fals-otobragenie grani}
setcolor(15); {cvet wrifta}
settextstyle(6,0,3); {vivod texsta; 4-kod wrifta; 0-kod napravlenij; 3-kod razmera}
outtextxy (260,50, '1. ЖЕСТКИЙ ДИСК');
outtextxy (260,90,'2. МАТЕРИНСКАЯ ПЛАТА');
outtextxy (260,140,'3. ПРОЦЕССОР');
outtextxy (260, 190,'4. ВИДЕОКАРТА');
outtextxy (260,240,'5. ЗВУКОВАЯ КАРТА');
outtextxy (260,290,'6. БЛОК ПИТАНИЯ');
outtextxy (260,340,'7. СЛОТЫ ПАМЯТИ');
outtextxy (260,390,'8. CD-ROM');
outtextxy (265,440,'9. ВЫХОД');
end;
BEGIN
INIT;
k: =35;
proff(35);
repeat
repeat
ch: =readkey;
until (ch=#13) or (ch=#80) or (ch=#72) or (ch=#60);
begin
if ch=#60 then
begin
CLOSEGRAPH;
break; {ostanovka proceduru}
end;
if (ch=#80) and (k>=35) and (k<435) then
begin
k: =k+50;
proff(k);
end;
if (ch=#72) and (k>35) and (k<=435) then
begin
k: =k-50;
proff(k);
end;
if ch=#13 then
begin
if k=435 then
begin
CLOSEGRAPH;
break;
end;
if k=35 then
begin
CLRSCR;
WorSpece;
read('c: \infa\GEST. txt');
end;
if k=85 then
begin
CLRSCR;
WorSpece;
read('c: \infa\mat. txt');
end;
if k=135 then
begin
CLRSCR;
WorSpece;
read('c: \infa\proc. txt');
end;
if k=185 then
begin
CLRSCR;
WorSpece;
read('c: \infa\video. txt');
end;
if k=235 then
begin
CLRSCR;
WorSpece;
read('c: \infa\zvuk. txt');
end;
if k=285 then
begin
CLRSCR;
WorSpece;
read('c: \infa\blok. txt');
end;
if k=335 then
begin
CLRSCR;
WorSpece;
read('c: \infa\slot. txt');
end;
if k=385 then
begin
CLRSCR;
WorSpece;
read('c: \infa\cd. txt');
end;
end
else
proff (k);
end;
until ch=#60;
end;
BEGIN
INIT;
colo;
k: =90;
MAINMENU(90);
repeat
repeat
ch: =readkey;
until (ch=#13) or (ch=#80) or (ch=#72) or (ch=#60);
begin
if ch=#60 then
begin
CLOSEGRAPH;
break; {ostanovka proceduru}
end;
if (ch=#80) and (k>=90) and (k<290) then
begin
k: =k+50;
MAINMENU(k);
end;
if (ch=#72) and (k>90) and (k<=290) then
begin
k: =k-50;
MAINMENU(k);
end;
if ch=#13 then
begin
if k=290 then
begin
CLOSEGRAPH;
break;
end;
if k=90 then
begin
titl;
end;
if k=140 then
begin
comp;
end;
if k=240 then
begin
CLRSCR;
WorSpece;
read('c: \infa\help. txt');
end;
if k=190 then
begin
fajl;
end
else
mainmenu (k);
end;
end;
until ch=#60;
END.
Приложение Г
ЭКРАННЫЕ ФОРМЫ
Рисунок Б.1 Экран приветствия
Рисунок Б.2 Вид главного меню
Рисунок Б.3 Вид окна о программе
Рисунок Б.4 Вид окна наглядного представления персонального компьютера
Рисунок Б.5 Вид окна информационно-справочного материала
Рисунок Б.6 Вид окна в режиме открытого файла
