IT 3 Sem. :: Przegląd tematu

Choinka · Wysłany: Wto 14:21, 05 Gru 2006 Temat postu: :)

program choinka;
uses crt;
var j,lw,i,lbw,lodst:integer;
Begin
clrscr;
write('podaj liczbe wierszy choinki:');
readln(lbw);
textcolor(green);
for lw:=0 to lbw do
Begin
lodst:=lbw-lw-1;
for j:=0 to lodst do write(' ');
for j:=0 to 2*lw+1 do write('*');
writeln;
end;
textcolor(brown);
for i:=1 to 4 do
begin
gotoxy(wherex+(76 div 2)-2,wherey);
for j:=1 to 5 do write('$');
writeln;
end;
repeat until keypressed;
end.