Wersja 1.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
program figury; uses crt; var w, k: integer; {wiersze i kolumny} f: char; {wybrana figura} i, j: integer; {iteracje} begin clrscr; repeat begin WriteLn('Wybierz figure: '); WriteLn('P: prostokat'); WriteLn('T: trojkat'); Write('C: choinka '); f:=readkey; WriteLn; end until (f='P') or (f='T') or (f='C'); Write('Podaj liczbe wierszy: '); ReadLn(w); clrscr; if(f='P') then begin Write('Podaj liczbe kolumn: '); ReadLn(k); clrscr; for i:=1 to w do begin for j:=1 to k do Write('*'); WriteLn; end; end; if(f='T') then begin for i:=1 to w do begin for j:=1 to i do Write('*'); WriteLn; end; end; if(f='C') then begin for i:=1 to w do begin for j:=w-i downto 1 do Write(' '); for j:=1 to 2*i-1 do write('*'); writeln; end; end; delay(2000); end. |