joker
Moderator

Dołączył: 16 Lis 2005
Posty: 98
Przeczytał: 0 tematów
Ostrzeżeń: 1/5 Skąd: z kątowni
|
Wysłany: Pon 21:30, 16 Sty 2006 Temat postu: Choinka w Pascalu |
|
|
na dowód mojej zajebistości udostepniam wszystkim kod rysujący choinkę na ekranie monitora
czcijcie mnie, czcijcie
Kod: |
program choinka;
var a,i:integer;
procedure trojkat;
var b,c,d,x:integer;
begin
x:=1;
for b:=1 to a do
begin
for c:=1 to a-x do write(' ');
for d:=1 to 2*x do write('x');
writeln;
inc(x);
end;
end;
begin
Writeln('podaj wysokosc trojkata');
readln(a);
for i:=1 to 3 do trojkat;
readln;
end. |
Post został pochwalony 0 razy
|
|