Darmowe Forum
Grudzieñ 23, 2024, 03:26:46 *
Witamy, Go¶æ. Zaloguj siê lub zarejestruj.
Czy dotar³ do Ciebie email aktywacyjny?

Zaloguj siê podaj±c nazwê u¿ytkownika, has³o i d³ugo¶æ sesji
Aktualno¶ci: Forum zosta³o uruchomione!
 
   Strona g³ówna   Pomoc Zaloguj siê Rejestracja  
Strony: [1]
  Drukuj  
Autor W±tek: Zadania do rozwi±zania - pêtle, i inne  (Przeczytany 2703 razy)
admin
Administrator
Ekspert
*****
Wiadomo¶ci: 821


Email
« : Listopad 28, 2011, 08:15:27 »

Zadanie 1. Napisaæ program który wy¶wietli na ekranie kwadrat (przynajmniej o rozmiarze 5x5 znaków) wykonany ze znaków o kodzie ASCII nr 178 wy¶wietlany w losowym kolorze. Program zmienia kolory do czasu wci¶niêcia dowolnego klawisza. W zadaniu wykorzystaæ pêtle repeat until.


program storm;
uses crt,dos;
var x,y,z:integer;
begin
randomize;
repeat
clrscr; z:=random(6);textcolor(z);
x:=0;
repeat
y:=0; writeln;
repeat
gotoxy(40+x,2+y);write(chr(178));
y:=y+1;
until y=20;
x:=x+1;
until x=20;
delay(100);
until keypressed;
end.
« Ostatnia zmiana: Listopad 28, 2011, 10:06:05 wys³ane przez admin » Zapisane
Strony: [1]
  Drukuj  
 
Skocz do:  

Powered by SMF 1.1.11 | SMF © 2006-2008, Simple Machines LLC | Sitemap

Polityka cookies
Darmowe Fora | Darmowe Forum

moikrewni gang-nd zlotasiodemka blackmoon mylittlepony