Міносвіти Росії
Федеральне державне бюджетне освітня
установа вищої професійної освіти
«Іжевський державний технічний університет імені М.Т. Калашникова »
(ІжГТУ імені М.Т. Калашникова)
Факультет «Інформатика та обчислювальна техніка»
Кафедра «Обчислювальна техніка»
Звіт по обчислювальній практиці
По предмету: Програмування на мові високого рівня
Виконав: студен групи 461з
Макшанов І.А.
Перевірив: Талашева В.С.
Іжевськ 2012
Зміст
1. Завдання
. Лістинг програми
. Результат
1. Завдання
За допомогою графічного режиму Graph в паскале створити зображення з трьома рухомими об'єктами. У тексті повинно бути присутні не менше чотирьох ста рядків, так само при створенні руху зображення необхідно скористатися динамічною пам'яттю.
2. Лістинг програми
uses crt, graph;
var gd, gm: integer; Dom; (2,6); {Steni doma} (200, 200, 400, 300); (3,6); {Dver } (320, 220, 370, 300); (8); {Risyem ruchky ot dveri} (0,0,3); (325,255,2); (4,6); {Okno v dome} (220, 220, 260, 260); (15); (220, 240, 260, 240); (240, 220, 240,260); (0,0,0); (7); {Krisha} (5,7); (200,200); (300,120); (400,200); (200,200); (300,199,7); (7); {Okoshko na krishe} (0,0,3); (300, 160, 20); (15); (300, 140, 300, 180); (280, 160, 320, 160); (0,0, 0); (4); {Risuem tryby}(6,4);(215,155);(215,187);(240,167);(240,155);(215,155);(225,170,4);;Zabor;Metka1,Metka2:integer;_R_x1,Zabor_R_y1,Zabor_R_x2,Zabor_R_y2:integer;_R_T1_1,Zalivka_R_T1_2,Zalivka_R_T2_1,Zalivka_R_T2_2,Zalivka_R_T3_1,Zalivka_R_T3_2,Zalivka_L_1,Zalivka_L_2:integer;_L1_x1,Zabor_L1_y1,Zabor_L1_x2,Zabor_L1_y2:integer;_L2_x1,Zabor_L2_y1,Zabor_L2_x2,Zabor_L2_y2:integer;_R_x1:=1;_R_x2:=10;_R_y1:=260;_R_y2:=300;_R_T1_1:=2;_R_T1_2:=261;_R_T2_1:=2;_R_T2_2:=275;_R_T3_1:=2;_R_T3_2:=299;_L1_x1:=1;_L1_x2:=5;_L1_y1:=260;_L1_y2:=250;_L2_x1:=5;_L2_x2:=10;_L2_y1:=250;_L2_y2:=260;_L_1:=2;_L_2:=259;(0, 265, 199, 270); (1,266,15); (0, 285, 199, 290); (1,286,15); Metka1:=1 to 13 doSetColor(15);(Zabor_R_x1,Zabor_R_y1,Zabor_R_x2,Zabor_R_y2);_R_x1:=Zabor_R_x1+15;_R_x2:=Zabor_R_x2+15;(Zalivka_R_T1_1,Zalivka_R_T1_2,15);(Zalivka_R_T2_1,Zalivka_R_T2_2,15);(Zalivka_R_T3_1,Zalivka_R_T3_2,15);_R_T1_1:=Zalivka_R_T1_1+15;_R_T2_1:=Zalivka_R_T2_1+15;_R_T3_1:=Zalivka_R_T3_1+15;(Zabor_L1_x1,Zabor_L1_y1,Zabor_L1_x2,Zabor_L1_y2);(Zabor_L2_x1,Zabor_L2_y1,Zabor_L2_x2,Zabor_L2_y2);_L1_x1:=Zabor_L1_x1+15;_L1_x2:=Zabor_L1_x2+15;_L2_x1:=Zabor_L1_x1+5;_L2_x2:=Zabor_L1_x2+5;(Zalivka_L_1,Zalivka_L_2,15);_L_1:=Zalivka_L_1+15;;_R_x1:=410;_R_x2:=420;_R_T1_1:=411;_R_T2_1:=411;_R_T3_1:=411;_L1_x1:=410;_L1_x2:=415;_L2_x1:=415;_L2_x2:=420;_L_1:=411;(401, 265, 650, 270); (402,266,15); (401, 285, 650, 290); (402,286,15); Metka2:=1 to 16 doSetColor(15);(Zabor_R_x1,Zabor_R_y1,Zabor_R_x2,Zabor_R_y2);_R_x1:=Zabor_R_x1+15;_R_x2:=Zabor_R_x2+15;(Zalivka_R_T1_1,Zalivka_R_T1_2,15);(Zalivka_R_T2_1,Zalivka_R_T2_2,15);(Zalivka_R_T3_1,Zalivka_R_T3_2,15);_R_T1_1:=Zalivka_R_T1_1+15;_R_T2_1:=Zalivka_R_T2_1+15;_R_T3_1:=Zalivka_R_T3_1+15;(Zabor_L1_x1,Zabor_L1_y1,Zabor_L1_x2,Zabor_L1_y2);(Zabor_L2_x1,Zabor_L2_y1,Zabor_L2_x2,Zabor_L2_y2);_L1_x1:=Zabor_L1_x1+15;_L1_x2:=Zabor_L1_x2+15;_L2_x1:=Zabor_L1_x1+5;_L2_x2:=Zabor_L1_x2+5;(Zalivka_L_1,Zalivka_L_2,15);_L_1:=Zalivka_L_1+15;;;Derevo;i,x0,y0:integer;(6);(495,250,515,299);(1,6);(496,251,6);(1,2);(500,200,80,65);:=0;(1,12);(i);:=random(160)+420;:=random(130)+130;Getpixel(x0,y0)=2 then fillellipse (x0, y0,5,5); i=50 ;; Luzhaika; (2); (1,2); (0, 300, 650, 410); (2,301, 2); (15); {Grip} (1,15); (485,310,0,360,2,5); (486,311,15); (6); (1,6); (485,305,0,360,6,2); (485,305,6) ; (15); {Grip} (1,15); (510,301,0,360,2,5); (511,302,15); (7); (1,7); (510,296,0,360,6,2); (510,296,7) ; (15); {Grip} (1,15); (515,305,0,360,2,5); (515,305,15); (6); (1,6); (515,300,0,360,6,2); (515,300,6) ; (15); {Grip}(1,15);(495,300,0,360,2,5);(495,300,15);(4);(1,4);(495,295,0,360,6,2);(495,295,4);;Doroga;Metka:integer;_x1,Tochka_x2,Tochka_y1,Tochka_y2:integer;_x,Zakraska_y:integer;(8);(1,8);(0, 410, 650, 500); (1,450,8); (15); (7,15); _ x1:=1; _x2:=40; _y1:=445; _y2:=448; _x:=2; _y: =446; Metka:=1 to 13 doRectangle(Tochka_x1,Tochka_y1,Tochka_x2,Tochka_y2);_x1:=Tochka_x1+50;_x2:=Tochka_x2+50;(Zakraska_x,Zakraska_y,15);_x:=Zakraska_x+50;;;Mashina;(4); {Kuzov} (420, 400, 600, 420); (1,4); (599, 401, 4); (7)...
