 С новым годом однако... Это третья версия новогодней елки за сегодняшнее замечательное утро 1 января 2017 года.... Это реплика на https://vk.com/cat_programming?w=wall-63708206_218850
Исходный код прилагается:
program n1;
uses crt;
var x:array[1..30] of integer;
y:array[1..30] of integer;
i:integer;
begin
TextBackGround(White);
clrscr;
TextColor(red);
gotoxy(40,1);
writeln('1');
TextColor(Green);
gotoxy(39,2); writeln('000');
gotoxy(38,3); writeln('00000');
gotoxy(37,4); writeln('0000000');
gotoxy(36,5); writeln('000000000');
gotoxy(38,6); writeln('00000');
gotoxy(37,7); writeln('0000000');
gotoxy(36,8); writeln('000000000');
gotoxy(35,9); writeln('00000000000');
gotoxy(34,10); writeln('0000000000000');
gotoxy(33,11); writeln('000000000000000');
gotoxy(37,12); writeln('0000000');
gotoxy(36,13); writeln('000000000');
gotoxy(35,14); writeln('00000000000');
gotoxy(34,15); writeln('0000000000000');
gotoxy(33,16); writeln('000000000000000');
gotoxy(32,17); writeln('00000000000000000');
gotoxy(31,18); writeln('0000000000000000000');
gotoxy(30,19); writeln('000000000000000000000');
gotoxy(29,20); writeln('00000000000000000000000');
gotoxy(39,21); writeln('000');
gotoxy(39,22); writeln('000');
repeat
for i:=1 to 30 do
begin
y[i]:=random(2,20);
if (y[i]=2) then x[i]:=random(39,41);
if (y[i]=3) then x[i]:=random(38,42);
if (y[i]=4) then x[i]:=random(37,43);
if (y[i]=5) then x[i]:=random(36,44);
if (y[i]=6) then x[i]:=random(38,42);
if (y[i]=7) then x[i]:=random(37,43);
if (y[i]=8) then x[i]:=random(36,44);
if (y[i]=9) then x[i]:=random(35,45);
if (y[i]=10) then x[i]:=random(34,46);
if (y[i]=11) then x[i]:=random(33,47);
if (y[i]=12) then x[i]:=random(37,43);
if (y[i]=13) then x[i]:=random(36,44);
if (y[i]=14) then x[i]:=random(35,45);
if (y[i]=15) then x[i]:=random(34,46);
if (y[i]=16) then x[i]:=random(33,47);
if (y[i]=17) then x[i]:=random(32,48);
if (y[i]=18) then x[i]:=random(31,49);
if (y[i]=19) then x[i]:=random(30,50);
if (y[i]=20) then x[i]:=random(29,51);
TextColor(random(1,15));
gotoxy(x[i],y[i]); writeln('X');
end;
delay(200);
for i:=1 to 30 do
begin
TextColor(Green);
gotoxy(x [i],y[i]); writeln('0');
end;
until keypressed;
end.
|
