Из простейших геометрических фигур нарисовать рыбку

@Аина Собакина · Регистрация: 30.03.2012

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

1. Из простейших геометрических фигур нарисовать рыбку.
2. Изобразить на экране две окружности, движущиеся навстречу друг другу

@Puporev · 20.04.2012, 11:35

Рыбка, рыбка, где твоя улыбка... Это уж сами рисуйте.
2.

Pascal

uses crt, graph;
procedure Okr(x,y,c:integer);
begin
setcolor(c);
circle(x,y,10);
end;
 
var x1,x2,y,i:integer;
    way1, way2, x:integer;
begin
initgraph(x1,x2,'');
x1:=10; x2:=getmaxX-10;
y:=getmaxY div 2;
outtextxy(250,460,'Press any key...');
readkey;
Okr(x1,y,12);
Okr(x2,y,14);
repeat
delay(20);
Okr(x1,y,0);
Okr(x2,y,0);
x1:=x1+5;
x2:=x2-5;
Okr(x1,y,10);
Okr(x2,y,14);
until x2-x1<20;
readkey
end.

@Аина Собакина 0 / 0 / 0 Регистрация: 30.03.2012 Сообщений: 10
		1
	Из простейших геометрических фигур нарисовать рыбку 20.04.2012, 07:14. Показов 5552. Ответов 1 Метки нет (Все метки) 1. Из простейших геометрических фигур нарисовать рыбку. 2. Изобразить на экране две окружности, движущиеся навстречу друг другу 0

	20.04.2012, 11:35

Из простейших геометрических фигур нарисовать рыбку

Решение