Автор работы: Пользователь скрыл имя, 16 Сентября 2013 в 10:24, реферат
Основная цель данной работы - изучение основ языка программирования , cоздание компьютерных программ и графических изображений на языке Turbo Pascal.
Задачи:
Организация ввода и вывода данных.
Изучение основных правил использования чисел и строк, управляющих конструкциями и циклами, переменных, констант и комментариев.
Создание графических изображений, а также интерфейс пользователя и отладку работы программы.
Введение…………………………………………………….2
Рождение Паскаль………………………………………….3
Графические возможности языка Паскаль ……………….4
Работа в графическом видеорежиме. Общий обзор….......4
Инициализация графического режима……………………5
Управление экраном и окнами…………………………….6
Управление цветом и фоном……………………………….7
Построение простых графических изображений…………7
Реализация имитации движения графических объектов…10
Заключение………………………………………………….11
Литература…………………………………………………..12
Приложение ………………………………………………...13
if ( y[i] + dy > y1 ) and ( y[i] + dy < y2 ) then y[i] := y[i] + dy;
end;
for i := 1 to N do putpixel ( x[i], y[i], 1 );
delay (600);
until keypressed;
closegraph;
end.
МИШКА
program mixa;
uses graph;
var
grDriver:integer;
grMode:integer;
begin
grDriver:=Detect;
InitGraph(grDriver,grMode,'');
SetColor(5);
line(240,110,260,110);
SetColor(7); circle(250,180,60);
circle(200,235,15);
circle(300,235,15);
circle(250,90,30);
circle(180,150,15);
circle(320,150,15);
circle(230,55,10);
circle(270,55,10);
circle(235,85,5);
circle(265,85,5);
circle(250,100,3);
readln;
end.
ЛЕСЕНКА
Program Lecenka
Uses Graph,Crt;
Var grDriver : Integer;
grMode : Integer;
i,x1,x2,dy,y,d:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'c:\bp\bgi');
x1:=280;
x2:=360;
dy:=40;
y:=400;
d:=50;
for i:=1 to 10 do begin
line(x1,y,x1,y+dy);
delay(d);
line(x2,y,x2,y+dy);
delay(d);
line(x1,y+(dy div 2),x2,y+(dy div 2));
delay(d*2);
y:=y-dy;
end;
readkey;
closegraph;
End.
ЧЕРВЯК
Program SHERVIAK
uses crt, graph;
var Gd, Gm: Integer;
i,d,uu,n,u,x,y,dx,dy: integer;
vx,vy:array[1..1000] of integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'c:\bp\bgi');
{ SetFillStyle(1,8);
Bar(140,120,503,360);{}
Rectangle(140,120,503,360);
Line(320,140,220,140);
Line(320,140,320,220);
Line(460,220,460,350);
Line(200,330,320,330);
Line(170,220,170,266);{}
x:=320;
y:=240;
dx:=1;
dy:=1;
u:=50;
d:=0;
uu:=1;
for i:=1 to u do
begin
vx[i]:=0;
vy[i]:=0
end;
d:=1;
repeat
putpixel(x,y,11);
putpixel(320,240,0);
if d>10 then
begin
putpixel(vx[1],vy[1],0);
if (uu)mod(3)=0 then
begin
for i:=20 to 1 do
begin
putpixel(vx[n-2*i],vy[n-2*i],
end;
end;
end;
if (getpixel(x,y-1) = 15) or (getpixel(x,y+1) = 15) then dy:=-dy;
if (getpixel(x-1,y) = 15) or (getpixel(x+1,y) = 15) then dx:=-dx;
x:=x+dx;
y:=y+dy;
for i:=2 to u do
begin
vx[i-1]:=vx[i];
vy[i-1]:=vy[i];
end;
vx[u]:=x;
vy[u]:=y;
if d<=10 then d:=d+1;
delay(500);{}
uu:=uu+1;
until keypressed;
ReadKey;
CloseGraph; { Shut down graphics }
end.
ВЕЛОСИПЕД
program VELOSIPED;
uses graph;
var
grDriver:integer;
grMobe:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver,grMobe,'');
SetColor(12);
circle(200,150,30);
circle(200,150,23);
circle(330,150,30);
circle(330,150,23);
line(200,150,280,150);
line(280,150,320,110);
line(320,110,210,110);
line(210,110,250,150);
line(200,150,210,110);
circle(200,150,5);
circle(270,150,10);
line(270,150,270,170);
line(265,170,275,170);
line(200,145,270,140);
line(200,155,270,160);
line(330,150,320,110);
line(320,110,320,98);
line(320,98,310,98);
line(210,110,210,100);
circle(210,100,5);
line(210,100,220,100);
line(270,150,270,130);
line(265,130,275,130);
readln;
End.