рисуем Graph

@илья1995 · Регистрация: 17.10.2011

Author24 — интернет-сервис помощи студентам

программно реализовать алгоритм создания движущегося графического объекта на экране с использованием стандартных процедур и функций модуля GRAPH

@Чувак · 05.01.2012, 23:23

два бала.

@КонецСвета · 06.01.2012, 00:25

так подойдет?

Pascal

uses crt,Graph;
var
x,j: integer;
grDriver: Integer; grMode: Integer;
ErrCode: Integer;
res: integer;
 
begin
grDriver := detect;
InitGraph(grDriver, grMode,'C:\Program Files\TP\BGI');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
SetBkColor(LightGray);
repeat
for x:=0 to 700 do
begin
setcolor(blue);
SetFillStyle(1,blue);
bar(x-100,300,x-10,400);
bar(x,350,x+50,400);
setcolor(white);
SetFillStyle(1,white);
bar(x+10,360,x+40,380);
setcolor(black);
SetFillStyle(1,blue);
circle(x+20,400,10);
circle(x-30,400,10);
circle(x-80,400,10);
FloodFill(x+21,400,black);
FloodFill(x-31,400,black);
FloodFill(x-81,400,black);
delay(1000);
setcolor(LightGray);
SetFillStyle(1,LightGray);
bar(x-100,300,x-10,400);
bar(x,350,x+50,400);
setcolor(LightGray);
SetFillStyle(1,LightGray);
bar(x+10,360,x+40,380);
setcolor(LightGray);
SetFillStyle(1,LightGray);
circle(x+20,400,10);
circle(x-30,400,10);
circle(x-80,400,10);
end;
until keypressed;
end;
CloseGraph;
end.

@илья1995 · 06.01.2012, 00:42 **[ТС]**

можеш сделать скриншот что она рисует а то уменя 7-ка не поддерживает

Добавлено через 14 минут
машинка ездит эт сложновато для меня мож че нить папроше можно совсем простое

@КонецСвета · 06.01.2012, 00:47

вот скриншот, он из скулпак, а сама программа сделана чисто в Турбо (в Турбо будет покрупнее и быстрее, и не такая приплюснутая, зато в скулпак глаже=)), едет слева направо =)
еще проще??? а куда уже проще? ладно, будет...

@КонецСвета · 06.01.2012, 00:55

вот синий круг ползет по экрану слева направо пока не нажмешь кнопку...

Pascal

uses crt,Graph;
var
x,j: integer;
grDriver: Integer; grMode: Integer;
ErrCode: Integer;
res: integer;
 
begin
grDriver := detect;
InitGraph(grDriver, grMode,'C:\Program Files\TP\BGI');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
SetBkColor(LightGray);
repeat
for x:=0 to 700 do
begin
setcolor(blue);
SetFillStyle(1,blue);
circle(x,300,50);
delay(1000);
setcolor(LightGray);
circle(x,300,50)
end;
until keypressed;
end;
CloseGraph;
end.

@илья1995 · 06.01.2012, 01:05 **[ТС]**

спасиб все работает

@GIGAbyte. · 07.01.2012, 17:50

Вот почитайте очень интересно Графика в Турбо Паскаль

@илья1995 4 / 4 / 3 Регистрация: 17.10.2011 Сообщений: 169
		1
	рисуем Graph 05.01.2012, 23:01. Показов 1311. Ответов 7 Метки нет (Все метки) программно реализовать алгоритм создания движущегося графического объекта на экране с использованием стандартных процедур и функций модуля GRAPH 0

@Чувак 1 / 1 / 1 Регистрация: 04.01.2012 Сообщений: 62
	05.01.2012, 23:23	2
	два бала. 0

@илья1995 4 / 4 / 3 Регистрация: 17.10.2011 Сообщений: 169
	06.01.2012, 00:42 [ТС]	4
	можеш сделать скриншот что она рисует а то уменя 7-ка не поддерживает Добавлено через 14 минут машинка ездит эт сложновато для меня мож че нить папроше можно совсем простое 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	06.01.2012, 00:47	5
	вот скриншот, он из скулпак, а сама программа сделана чисто в Турбо (в Турбо будет покрупнее и быстрее, и не такая приплюснутая, зато в скулпак глаже=)), едет слева направо =) еще проще??? а куда уже проще? ладно, будет... Миниатюры 1

@илья1995 4 / 4 / 3 Регистрация: 17.10.2011 Сообщений: 169
	06.01.2012, 01:05 [ТС]	7
	спасиб все работает 0

@GIGAbyte. 31 / 31 / 4 Регистрация: 27.08.2011 Сообщений: 148
	07.01.2012, 17:50	8
	Вот почитайте очень интересно Графика в Турбо Паскаль 0