Kód: Vybrať všetko

program hojko;
uses crt;
var i,j,x,y:integer;
    menu:char;

 procedure stvorec;
 begin
      clrscr;
      write('Zadaj velkost strany stvorca: ');
      readln(x);
      for i:=1 to x do begin
          for j:=1 to x do write('*');
          writeln;
      end;
      readln;
 end;

 procedure obdlznik;
 begin
      clrscr;
      write('Zadaj rozmery obdlznika [x,y]: ');
      readln(x,y);

      for i:=1 to y do begin
          for j:=1 to x do begin
              if (y=i) or (x=j) or (i=1) or (j=1) then write('*')
              else write(' ');
          end;
          writeln;
      end;
      readln;
 end;

 procedure pravouhly;
 begin
      clrscr;
      write('Zadaj pocet vysku pravouhleho triangela: ');
      readln(x);

      for i:=1 to x do begin
          for j:=1 to i do write('*');
          writeln;
      end;
      readln;
 end;

 procedure rovnoram;
 var z:integer;
 begin
      clrscr;
      write('Zadaj vysku rovnoramenneho triangla: ');
      readln(x);

      for i:=1 to x do begin
          y:=x-i;
          while(y>0) do begin
               write(' ');
               dec(y);
          end;

          for j:=1 to i do write('*');

          if (i>1) then
             for z:=1 to (i-1) do write('*');
          writeln;
      end;
      readln;
 end;


 procedure hodiny;
 var a,m,n,k:integer;
 begin
      clrscr;
      write ('Pocet pocet riadkov (riadky = od vrchu do stredu): ');
      readln (x);

      a:=x-1;
      m:=1;


      for i:=1 to x-1 do begin
          m:=m+2;
          a:=a-1;
      end;



      for i:=1 to x do begin
          for k:=1 to a do write (' ');
          for n:=1 to m do write ('*');
          m:=m-2;
          a:=a+1;
          writeln;
      end;


      a:=x-1;
      m:=1;


      for i:=1 to x-1 do begin
          m:=m+2;
          a:=a-1;
          for k:=1 to a do write (' ');
          for n:=1 to m do write ('*');
          writeln;
      end;
      readln;
 end;

begin

repeat
clrscr;
writeln('[s]tvorec');
writeln('[o]bdlznik');
writeln('[r]ovnoramenny triangel');
writeln('[p]ravouhly triangel');
writeln('presypacie [h]odinky');
writeln('[k]oniec');
readln(menu);

case menu of
's':stvorec;
'o':obdlznik;
'r':rovnoram;
'p':pravouhly;
'h':hodiny;
end;
until (menu='k');
end.