Z-видная спираль

@uvarovandrej · Регистрация: 26.11.2009

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

Получить изображение на всю высоту экрана. Ширина "полочки" каждого Z-образного витка больше предыдущей на единицу длины.
Название: untitled.JPG
Просмотров: 41

Размер: 4.3 Кб

Название: untitled.JPG
Просмотров: 41

Размер: 4.3 Кб

@Puporev · 06.02.2010, 18:36

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

@uvarovandrej · 06.02.2010, 19:01 **[ТС]**

не важно

@Puporev · 06.02.2010, 19:10

Тогда проще в графическом.

Pascal

uses graph;
var x0,x,y,d:integer;
procedure Z(x0,k,d:integer);
var i:integer;
begin
x:=x0;y:=0;
for i:=1 to k div 3 do
 begin
  line(x,y,x,y+d);
  line(x,y+d,x+d*(2*i-1),y+d);
  line(x+d*(2*i-1),y+d,x+d*(2*i-1),y+2*d);
  line(x+d*(2*i-1),y+2*d,x-d,y+2*d);
  x:=x-d;
  y:=y+2*d;
 end;
end;
begin
x:=0;
initgraph(x,y,'');
x0:=getmaxX div 2;
d:=20;
Z(x0,getmaxY,d);
readln
end.

@uvarovandrej · 06.02.2010, 20:13 **[ТС]**

Благодарствую!

@uvarovandrej · 17.02.2010, 19:19 **[ТС]**

Puporev, а, не надо в текстовом...

@Puporev · 17.02.2010, 20:38

Pascal

uses crt;
var x,y,i,j:byte;
begin
clrscr;
for i:=1 to 6 do
 begin
  y:=i+3*(i-1);
  x:=40-(2*i-2);
  gotoXY(x,y);
  write(#179);
  gotoXY(x,y+1);
  write(#192);
  for j:=1 to y do write(#196);
  write(#191);
  gotoXY(x+y+1,y+2);
  write(#179);
  gotoXY(x-2,y+3);
  write(#218);
  for j:=1 to y+2 do write(#196);
  write(#217);
 end;
readln
end.

@uvarovandrej · 17.02.2010, 20:47 **[ТС]**

Оказывается так просто - а я там такую гадость писать начал=))))))))))))))))

@Puporev · 17.02.2010, 20:49

uvarovandrej, Чтобы получилось просто, думать много нужно, алгоритм искать.
Можно ведь каждый символ отдельно выводить, а можно все циклами организовать.
Как вариант сделать массив строк из нужных символов.

@uvarovandrej 34 / 3 / 1 Регистрация: 26.11.2009 Сообщений: 129
		1
	Z-видная спираль 06.02.2010, 16:16. Показов 757. Ответов 8 Метки нет (Все метки) Получить изображение на всю высоту экрана. Ширина "полочки" каждого Z-образного витка больше предыдущей на единицу длины. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.02.2010, 18:36	2
	uvarovandrej, Это в графическом или текстовом режиме? 1

@uvarovandrej 34 / 3 / 1 Регистрация: 26.11.2009 Сообщений: 129
	06.02.2010, 19:01 [ТС]	3
	не важно 0

@uvarovandrej 34 / 3 / 1 Регистрация: 26.11.2009 Сообщений: 129
	06.02.2010, 20:13 [ТС]	5
	Благодарствую! 0

@uvarovandrej 34 / 3 / 1 Регистрация: 26.11.2009 Сообщений: 129
	17.02.2010, 19:19 [ТС]	6
	Puporev, а, не надо в текстовом... 0

@uvarovandrej 34 / 3 / 1 Регистрация: 26.11.2009 Сообщений: 129
	17.02.2010, 20:47 [ТС]	8
	Оказывается так просто - а я там такую гадость писать начал=)))))))))))))))) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.02.2010, 20:49	9
	uvarovandrej, Чтобы получилось просто, думать много нужно, алгоритм искать. Можно ведь каждый символ отдельно выводить, а можно все циклами организовать. Как вариант сделать массив строк из нужных символов. 0