Паскаль АВС

Nasty) · 15.05.2011, 00:45

Помогите оочень нада. Задали по инф енаписать програму в паскале. Чтоб закрашеный кружок летал туда и обратно.

uses GraphABC;

var i,a: integer;
begin
for a:=1 to 500 do
begin
LockDrawing;
for i:=1 to 500 do
begin
ClearWindow;
SetBrushColor(clYellow);
Ellipse(i,100,i+100,200);
Redraw;
Sleep(1);
end;
end;
end.

вот в одну сторону он летит а надо чтоб ещё и обратно. Как это сдлеать?

Предупреждение:

Уважаемый пользователь. В соответствии с пунктом 2.1 правил форума, Ваша тема перемещена в соответствующий раздел. Модератор

AlexZir · 16.05.2011, 06:43

Код:

uses GraphABC;

var i,a: integer;
begin
for a:=1 to 500 do
    begin
       LockDrawing;
       for i:=1 to 500 do
        begin
         ClearWindow;
         SetBrushColor(clYellow);
         Ellipse(i,100,i+100,200);
         Redraw;
         Sleep(1);
         end;
         for i:=500 downto 1 do
        begin
         ClearWindow;
         SetBrushColor(clYellow);
         Ellipse(i,100,i+100,200);
         Redraw;
         Sleep(1);
         end;
    end;
 end.

примерно так

16.05.2011, 06:43	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Код: uses GraphABC; var i,a: integer; begin for a:=1 to 500 do begin LockDrawing; for i:=1 to 500 do begin ClearWindow; SetBrushColor(clYellow); Ellipse(i,100,i+100,200); Redraw; Sleep(1); end; for i:=500 downto 1 do begin ClearWindow; SetBrushColor(clYellow); Ellipse(i,100,i+100,200); Redraw; Sleep(1); end; end; end. примерно так __________________ Убить всех человеков!

15.05.2011, 00:45
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Напомню вам, что на форуме есть похожие топики Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Паскаль Паскаль Паскаль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070