Forum IT 3 Sem. Strona Główna IT 3 Sem.
Pierwsze forum tech. gier sieciowych
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

:)

 
Napisz nowy temat   Odpowiedz do tematu    Forum IT 3 Sem. Strona Główna -> At school
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Choinka
Gość






PostWysł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.
Powrót do góry
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum IT 3 Sem. Strona Główna -> At school Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin