IT 3 Sem.
Pierwsze forum tech. gier sieciowych
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum IT 3 Sem. Strona Główna
->
At school
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
Forum IT
----------------
At school
After school
Hydepark
----------------
FFA
Przegląd tematu
Autor
Wiadomość
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.
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin