Написать программу выводящую на экран снежинку из символа "*"

@JaisonMill · Регистрация: 25.02.2016

- Написать программу выводящую на экран снежинку из символа "*" (Через: Procedure/Function)

@Puporev · 25.02.2016, 21:38

Нарисуйте снежинку как Вы ее хотите видеть, их существует тысячи вариантов.

Добавлено через 22 минуты
Ну например так.

Pascal

uses crt;
procedure sneg(x,y:byte);
var i:byte;
begin
for i:=1 to 9 do
 begin
  gotoXY(x+i,y+5);
  write('*');
  gotoXY(x+5,y+i);
  write('*');
 end;
for i:=2 to 8 do
 begin
  gotoXY(x+i,y+i);
  write('*');
  gotoXY(x+10-i,y+i);
  write('*');
 end;
end;
var i:byte;
begin
clrscr;
for i:=1 to 7 do
if odd(i) then sneg((2*i-1)*5,5)
else sneg((2*i-1)*5,10);
gotoXY(80,25);
readln
end.

@Пытливый · 25.02.2016, 21:48

Нарисуйте снежинку как Вы ее хотите видеть, их существует тысячи вариантов.

Вообще-то никто не знает сколько их вообще может быть, но все снежинки отличаются друг от друга. Не существует двух абсолютно одинаковых снежинок.

@JaisonMill 0 / 0 / 0 Регистрация: 25.02.2016 Сообщений: 3
		1
	Написать программу выводящую на экран снежинку из символа "" 25.02.2016, 19:50. Показов* 2647. Ответов 2 Метки нет (Все метки) - Написать программу выводящую на экран снежинку из символа "*" (Через: Procedure/Function) 0

@Пытливый 3367 / 2025 / 647 Регистрация: 29.05.2013 Сообщений: 8,735
	25.02.2016, 21:48	3
	Нарисуйте снежинку как Вы ее хотите видеть, их существует тысячи вариантов. Вообще-то никто не знает сколько их вообще может быть, но все снежинки отличаются друг от друга. Не существует двух абсолютно одинаковых снежинок. 0

Опции темы

Написать программу выводящую на экран снежинку из символа "*"

Решение