Darmowe Forum

Zadanie 1. NapisaĂŚ program ktĂłry wyÂświetli choinkĂŞ z "czubkiem " skierowanym do gĂłry.

Zadanie2. NapisaĂŚ program ktĂłry wyÂświetla na ekranie cztery kwadraty 5x5 umieszczone w rogach ekranu.
Zadanie 3. NapisaĂŚ program ktĂłry prosi o podanie imienia i wyÂświetla podane imiĂŞ losowo na ekranie 10 razy.

Zadanie 4_sprawdzian

program spraw_1;
uses crt, dos;
var x,y,a,b:integer;
begin clrscr;

randomize; a:=random(66); b:=random(15); textcolor(red);
for x:=1 to 5 do begin
for y:=1 to 5 do begin gotoxy(a+x,b+y);write('*');end;end;

a:=random(66); b:=random(15); x:=0; y:=0; textcolor(yellow);

repeat x:=x+1;y:=0;
repeat y:=y+1; gotoxy(a+x,b+y);write('*');
until y=5;
until x=5;

readkey;
end.