Написать программу, которая выводит на экран узор

@O4arova6ka90 · Регистрация: 13.05.2009

Написать программу, которая выводит на экран узор, изображенный ниже (использовать циклы):
Название: clip_image002.jpg
Просмотров: 221

Размер: 1.6 Кб

Название: clip_image002.jpg
Просмотров: 221

Размер: 1.6 Кб

@Puporev · 17.09.2009, 19:38

Это в графическом или текстовом режиме?

@O4arova6ka90 · 17.09.2009, 20:27 **[ТС]**

в графическом

@Puporev · 17.09.2009, 23:28

Если правильно оценил размер центрального квадрата, то так.

Pascal

uses graph;
var x0,y0,d,n,gd,gm,i,x,y:integer;
begin
d:=10;
gd:=0;
write('Kolichestvo kvadratov n=');
readln(n);
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
rectangle(x0-d div 2,y0-d div 2,x0+d div 2,y0+d div 2);
for i:=2 to n do
rectangle(x0-i*d,y0-i*d,x0+i*d,y0+i*d);
readln;
closegraph
end.

@O4arova6ka90 2 / 2 / 0 Регистрация: 13.05.2009 Сообщений: 60
		1
	Написать программу, которая выводит на экран узор 17.09.2009, 18:51. Показов 2460. Ответов 3 Метки нет (Все метки) Написать программу, которая выводит на экран узор, изображенный ниже (использовать циклы): 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	17.09.2009, 19:38	2
	Это в графическом или текстовом режиме? 0

@O4arova6ka90 2 / 2 / 0 Регистрация: 13.05.2009 Сообщений: 60
	17.09.2009, 20:27 [ТС]	3
	в графическом 0

Опции темы