Изображение с движущимися объектами
МИНОБРНАУКИ
РОССИИ
Федеральное
государственное бюджетное образовательное
учреждение
высшего профессионального образования
«Ижевский
государственный технический университет имени М.Т. Калашникова»
(ИжГТУ
имени М.Т. Калашникова)
Факультет
«Информатика и вычислительная техника»
Кафедра
«Вычислительная техника»
Отчет
по вычислительной практике
По
предмету: Программирование на языке высокого уровня
Выполнил: студен группы 461з
Макшанов И.А.
Проверил: Талашева В.С.
Ижевск
2012
Содержание
1. Задание
. Листинг программы
. Результат
1. Задание
При помощи графического режима Graph
в паскале создать изображение с тремя движущимися объектами. В тексте должно
присутствовать не меньше четырех ста строк, так же при создании движения
изображения необходимо воспользоваться динамической памятью.
2. Листинг
программы
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); {Bagazhnik}(450, 425,
10);(1,7);(450, 425, 7);(570, 425, 10);(1,7);(570, 425, 7);(15);
{Kabina}(476, 399, 500, 375);(500, 375, 515, 375);(515, 375, 515, 399);(476,
399, 515, 399);(1, 15);(500, 390, 15);(6);(558, 400, 362, 538, 42);(516, 399,
600, 399);(1,6);(520, 390,
6);;Solnce;(14);(50,150,30);(1,14);(50,150,14);(8);(35,140,5);(4,8);(35,140,8);(65,140,5);(5,8);(65,140,8);(50,160,580,330,10);;Dim;(15);
{Bol'shoe oblako}(1,15);(226,118,18);(226,110,15);(15); {Srednee
oblako}(1,15);(226,128,15);(215,135,15);(235,135,15);(15); {Malen'koe
oblako}(1,15);(226,139,10);(226,137,15);(226,146,15);;Vodoem;SetColor(1);(1,1);(100,330,0,360,90,20);(100,330,1);(10);
{Kyvshinka}(1,10);(50,330,0,360,35,10);(50,330,10);(15);
{Cvetok}(1,15);(35,325,0,360,2,5);(35,325,15);(35,335,0,360,2,5);(35,335,15);(30,330,0,360,5,2);(30,330,15);(40,330,0,360,5,2);(40,330,15);(14);(1,14);(35,330,4);(35,330,14);(6);
{Ytka}(1,6);(130,335,0,360,20,7); {Tulovishe}(130,335,6);(110,320,115,335);
{Sheya}(111,320,5); {Golova}(107,320,6);(14);
{Klyv}(1,14);(100,320);(106,318);(106,322);(100,320);(101,320,14);(8);
{Glaz}(1,8);(110,318,2);(110,318,8);(7);
{Per'ya}(130,334,10,165,10,3);(130,337,10,165,10,3);(7);
{Hvost}(1,7);(147,330);(155,325);(157,327);(149,333);(147,330);(148,330,7);;Veshalka;(7);
{Palka}(1,7);(70,200,72,300);(70,200,4); {Nakone4nik}(69,200,7);(15);
{Verevka}(135,200,180,360,65,10);(1);
{Shtani}(1,1);(96,209);(115,210);(115,250);(108,250);(107,220);(106,250);(98,250);(96,209);(110,215,1);(10);
{Rubaha}(1,10);(140,210);(180,208);(190,225);(180,229);(175,220);(175,250);(145,250);(145,220);(140,229);(130,225);(140,210);(150,230,10);;Dvizhenie;x,y,x1,y1,x2,y2:longint;,p1,p2:pointer;,Image1,Image2:Integer;:=ImageSize(19,115,80,181);(p1,Image1);(19,115,80,181,p1^);x1:=1
to 600
doy1:=round(115*sin(x1/-200)+115);(x1,y1,p1^,CopyPut);(1);;:=ImageSize(419,355,601,441);(p,Image);(419,355,601,441,p^);x:=419
downto 0
doy:=355;(x,y,p^,CopyPut);(1);;:=ImageSize(207,99,245,150);(p2,Image2);(207,99,245,150,p2^);y2:=99
downto 1
dox2:=208;(x2,y2,p2^,CopyPut);(1);;;:=detect;(gd,gm,'');(3);;;;;;;;;;;;;;
end.
3. Результат
изображение
графический программа память
По траектории движется солнце
Едет машина по дороге
В небо поднимается дым
