Witam,
Czy jest jakaś możliwość, by ten kod, który napisałem, skrócić w którejś części?
program choina; uses crt; var wiersze:byte;
procedure choinka(z:integer);
var losowa:byte; // losowy kolor
i,j,k,l,m,n:byte; // petle sterujace
begin
for i:=1 to z do
begin
gotoxy(42-i,i+2);
for j:=1 to i*2 do
begin
losowa:=random(14)+1;
textcolor(losowa);
write('*');
end;
end;
for k:=1 to z do
begin
gotoxy(42-k,i+k);
for l:=1 to k*2 do
begin
losowa:=random(14)+1;
textcolor(losowa);
write('*');
end;
end;
for m:=1 to z do
begin
gotoxy(42-m,i+k+m);
for n:=1 to m*2 do
begin
losowa:=random(14)+1;
textcolor(losowa);
write('*');
end;
end;
end;
procedure lewo(n:byte);
var i:byte;
begin
for i:=1 to n*3 do
begin
gotoxy(1,i);
writeln('||');
end;
end;
procedure prawo(n:byte);
var i:byte;
begin
for i:=1 to n*3 do
begin
gotoxy(75,i);
writeln('||');
end;
end;
procedure dol(n:byte);
var i:byte;
begin
for i:=1 to 75 do
begin
gotoxy(i,n*3+1);
write('||');
end;
end;
procedure gora(n:byte);
var i:byte;
begin
for i:=1 to 75 do
begin
gotoxy(i,1);
write('||');
end;
end;
begin
clrscr;
writeln('Podaj ilosc wierszy do kazdej choinki - max 8');
readln(wiersze);
if(wiersze > 8) then wiersze:=8;
clrscr;
REPEAT
gora(wiersze);
lewo(wiersze);
prawo(wiersze);
dol(wiersze);
choinka(wiersze);
until keypressed;
end.
Dzięki wielkie i pozdrawiam