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.