www.TrSek.com
 English
English 		Slovensky
Slovensky 		Česky
Česky 		Šarišsky
Šarišsky
 
Programy
Programy zos Pascalu (54)
Zadaňa zos Pascalu (212)
Vydumaňec Zadani
Programy zos Pascalu (KMP) (157)
Programy zos C, C++ (8)
Nahodny program
Pascal - po kusoch
Hraňe (20)
Zadaňa (212)
Uchaľe (27)
Krešľeňe (35)
Matematika (112)
Geometrija (23)
Slova (43)
Projekty (23)
Pridaňa (35)
Papíre
Papíre zos Pascalu (na ľehko)
Papire zos programovaňa (18)
Linky na interňetu
FAQ – takoj tipy (4)
Hutoreňa
Scahňi
Dodaj daľši program
Numera staršich HDD
Kontakty
Tvoja Reklama
Pošľi meil
Daco o mňe - Muj popis
Knižka nafštef
ICQ 207919468 ICQ
Status

Kategorija: Programy zos Pascalu (KMP)

Zrobil: Rop
Program: Matematika.pas
Subor exe: Matematika.exe
Komplexný program ktorý preskúša z matematických vzorcov.
Kuklo še: 453x

{ MATEMATIKA.PAS                                  Copyright (c) Rop }
{ Komplexny program ktory preskusa z matematickych vzorcov.         }
{                                                                   }
{ Datum:26.04.2007                             http://www.trsek.com }
 
program rop;
uses crt;
var hodnota,hodnota2:integer;
    spravne,zle:real;
 
 
procedure menu1(var hodnota2:integer);
var key:char;
    i:integer;
    stlac:boolean;
begin
  clrscr;
  textcolor(green);
  writeln('Pytagorova veta');
  textcolor(white);
  writeln('Kruh a kruznica');
  writeln('Telesa');
  writeln('....................');
  writeln('Koniec');
      i:=1;
  repeat;
  key:=readkey;
  case ord(key) of
  0: begin
	key:=readkey;
	case ord(key) of
		75,72:
		 begin
		   clrscr;
		    if i>1 then dec(i);
			case i of
			1:
                         begin
                          textcolor(green);
                        writeln('Pytagorova veta');
                        textcolor(white);
                        writeln('Kruh a kruznica');
                        writeln('Telesa');
                        writeln('....................');
                        writeln('Koniec');
                           end;
                        2:
                         begin
                        writeln('Pytagorova veta');
                        textcolor(green);
                        writeln('Kruh a kruznica');
                        textcolor(white);
                        writeln('Telesa');
                        writeln('....................');
                        writeln('Koniec');
                           end;
                        3:
                         begin
                        writeln('Pytagorova veta');
                        writeln('Kruh a kruznica');
                        textcolor(green);
                        writeln('Telesa');
                        textcolor(white);
                        writeln('....................');
                        writeln('Koniec');
                           end;
                        4:
                        begin
                        writeln('Pytagorova veta');
                        writeln('Kruh a kruznica');
                        writeln('Telesa');
                        writeln('....................');
                        textcolor(green);
                        writeln('Koniec');
                        textcolor(white);
                        end;
                        end;
				end; {Sipka hore}
 
			77,80:
			     begin
			      clrscr;
				if i<4 then inc(i);
                                 case i of
			1:
                         begin
                          textcolor(green);
                        writeln('Pytagorova veta');
                        textcolor(white);
                        writeln('Kruh a kruznica');
                        writeln('Telesa');
                        writeln('....................');
                        writeln('Koniec');
                           end;
                        2:
                         begin
                        writeln('Pytagorova veta');
                        textcolor(green);
                        writeln('Kruh a kruznica');
                        textcolor(white);
                        writeln('Telesa');
                        writeln('....................');
                        writeln('Koniec');
                           end;
                        3:
                         begin
                        writeln('Pytagorova veta');
                        writeln('Kruh a kruznica');
                        textcolor(green);
                        writeln('Telesa');
                        textcolor(white);
                        writeln('....................');
                        writeln('Koniec');
                           end;
                        4:
                        begin
                        writeln('Pytagorova veta');
                        writeln('Kruh a kruznica');
                        writeln('Telesa');
                        writeln('....................');
                        textcolor(green);
                        writeln('Koniec');
                        textcolor(white);
                        end;
                        end;
				end; {Sipka dole}
				end;
         	end;
      		13: stlac:= TRUE; {Stlaceny ENTER}
    		end;
 
	until(stlac=true);
	  hodnota2:=i;
end;
 
 
procedure menu2(hodnota:integer; var hodnota2:integer);
var key:char;
    i:integer;
    stlac:boolean;
begin
  clrscr;
  textcolor(green);
  writeln('Vypocet prepony');
  textcolor(white);
  writeln('Vypocet odvesny');
  writeln('Vypocet odvesny a prepony');
  writeln('Spat');
  writeln('....................');
  writeln('Koniec');
  i:=1;
  repeat;
  key:=readkey;
  case ord(key) of
  0: begin
	key:=readkey;
	case ord(key) of
		75,72:
		 begin
		   clrscr;
		    if i>1 then dec(i);
			case i of
			1:
                         begin
                          clrscr;
                          textcolor(green);
                          writeln('Vypocet prepony');
                          textcolor(white);
                          writeln('Vypocet odvesny');
                          writeln('Vypocet odvesny a prepony');
                          writeln('Spat');
                          writeln('....................');
                          writeln('Koniec');;
                           end;
                          2:
                          begin
                           clrscr;
                           writeln('Vypocet prepony');
                           textcolor(green);
                           writeln('Vypocet odvesny');
                           textcolor(white);
                           writeln('Vypocet odvesny a prepony');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                          end;
                          3:
                          begin
                           clrscr;
                           writeln('Vypocet prepony');
                           writeln('Vypocet odvesny');
                           textcolor(green);
                           writeln('Vypocet odvesny a prepony');
                           textcolor(white);
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                          end;
 
                          4:
                          begin
                            clrscr;
                           writeln('Vypocet prepony');
                           writeln('Vypocet odvesny');
                           writeln('Vypocet odvesny a prepony');
                           textcolor(green);
                           writeln('Spat');
                           textcolor(white);
                           writeln('....................');
                           writeln('Koniec');
                          end;
                          5:
                          begin
                            clrscr;
                           writeln('Vypocet prepony');
                           writeln('Vypocet odvesny');
                           writeln('Vypocet odvesny a prepony');
                           writeln('Spat');
                           writeln('....................');
                           textcolor(green);
                           writeln('Koniec');
                           textcolor(white);
                          end;
                          end;
				end; {Sipka hore}
 
                          77,80:
			     begin
			      clrscr;
				if i<5 then inc(i);
                                 case i of
                                    1:
                         begin
                          clrscr;
                          textcolor(green);
                          writeln('Vypocet prepony');
                          textcolor(white);
                          writeln('Vypocet odvesny');
                          writeln('Vypocet odvesny a prepony');
                          writeln('Spat');
                          writeln('....................');
                          writeln('Koniec');;
                           end;
                          2:
                          begin
                           clrscr;
                           writeln('Vypocet prepony');
                           textcolor(green);
                           writeln('Vypocet odvesny');
                           textcolor(white);
                           writeln('Vypocet odvesny a prepony');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                          end;
                          3:
                          begin
                           clrscr;
                           writeln('Vypocet prepony');
                           writeln('Vypocet odvesny');
                           textcolor(green);
                           writeln('Vypocet odvesny a prepony');
                           textcolor(white);
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                          end;
 
                          4:
                          begin
                            clrscr;
                           writeln('Vypocet prepony');
                           writeln('Vypocet odvesny');
                           writeln('Vypocet odvesny a prepony');
                           textcolor(green);
                           writeln('Spat');
                           textcolor(white);
                           writeln('....................');
                           writeln('Koniec');
                          end;
                          5:
                          begin
                            clrscr;
                           writeln('Vypocet prepony');
                           writeln('Vypocet odvesny');
                           writeln('Vypocet odvesny a prepony');
                           writeln('Spat');
                           writeln('....................');
                           textcolor(green);
                           writeln('Koniec');
                           textcolor(white);
                          end;
                           end;
				end; {Sipka dole}
				end;
         	end;
      		13: stlac:= TRUE; {Stlaceny ENTER}
    		end;
 
	until(stlac=true);
	case i of
	1: hodnota2:=5;
	2: hodnota2:=6;
	3: hodnota2:=7;
	4: hodnota2:=9;
	5: hodnota2:=4;
 
         end;
 
end;
 
procedure menu3(hodnota:integer; var hodnota2:integer);
var key:char;
    i:integer;
    stlac:boolean;
begin
  clrscr;
  textcolor(green);
  writeln('Vypocet dlzky kruznice a obvodu kruhu');
  textcolor(white);
  writeln('Vypocet obluku kruznice');
  writeln('Vypocet kruhoveho vyseku');
  writeln('Vypocet obsahu kruhu');
  writeln('Spat');
  writeln('....................');
  writeln('Koniec');
  i:=1;
  repeat;
  key:=readkey;
  case ord(key) of
  0: begin
	key:=readkey;
	case ord(key) of
		75,72:
		 begin
		   clrscr;
		    if i>1 then dec(i);
			case i of
                         1:
                          begin
                           clrscr;
                           textcolor(green);
                           writeln('Vypocet dlzky kruznice a obvodu kruhu');
                           textcolor(white);
                           writeln('Vypocet obluku kruznice');
                           writeln('Vypocet kruhoveho vyseku');
                           writeln('Vypocet obsahu kruhu');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                          end;
                         2:
                          begin
                            clrscr;
                            writeln('Vypocet dlzky kruznice a obvodu kruhu');
                            textcolor(green);
                            writeln('Vypocet obluku kruznice');
                            textcolor(white);
                            writeln('Vypocet kruhoveho vyseku');
                            writeln('Vypocet obsahu kruhu');
                            writeln('Spat');
                            writeln('....................');
                            writeln('Koniec');
                          end;
                         3:
                          begin
                            clrscr;
                            writeln('Vypocet dlzky kruznice a obvodu kruhu');
                            writeln('Vypocet obluku kruznice');
                            textcolor(green);
                            writeln('Vypocet kruhoveho vyseku');
                            textcolor(white);
                            writeln('Vypocet obsahu kruhu');
                            writeln('Spat');
                            writeln('....................');
                            writeln('Koniec');
                          end;
                         4:
                          begin
                            clrscr;
                            writeln('Vypocet dlzky kruznice a obvodu kruhu');
                            writeln('Vypocet obluku kruznice');
                            writeln('Vypocet kruhoveho vyseku');
                            textcolor(green);
                            writeln('Vypocet obsahu kruhu');
                            textcolor(white);
                            writeln('Spat');
                            writeln('....................');
                            writeln('Koniec');
                          end;
 
                         5:
                          begin
                            clrscr;
                            writeln('Vypocet dlzky kruznice a obvodu kruhu');
                            writeln('Vypocet obluku kruznice');
                            writeln('Vypocet kruhoveho vyseku');
                            writeln('Vypocet obsahu kruhu');
                            textcolor(green);
                            writeln('Spat');
                            textcolor(white);
                            writeln('....................');
                            writeln('Koniec');
                           end;
                          6:
                          begin
                            clrscr;
                            writeln('Vypocet dlzky kruznice a obvodu kruhu');
                            writeln('Vypocet obluku kruznice');
                            writeln('Vypocet kruhoveho vyseku');
                            writeln('Vypocet obsahu kruhu');
                            writeln('Spat');
                            writeln('....................');
                            textcolor(green);
                            writeln('Koniec');
                            textcolor(white);
                           end;
                          end;
				end; {Sipka hore}
 
                          77,80:
			     begin
			      clrscr;
				if i<6 then inc(i);
                                 case i of
                                 1:
                          begin
                           clrscr;
                           textcolor(green);
                           writeln('Vypocet dlzky kruznice a obvodu kruhu');
                           textcolor(white);
                           writeln('Vypocet obluku kruznice');
                           writeln('Vypocet kruhoveho vyseku');
                           writeln('Vypocet obsahu kruhu');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                          end;
                         2:
                          begin
                            clrscr;
                            writeln('Vypocet dlzky kruznice a obvodu kruhu');
                            textcolor(green);
                            writeln('Vypocet obluku kruznice');
                            textcolor(white);
                            writeln('Vypocet kruhoveho vyseku');
                            writeln('Vypocet obsahu kruhu');
                            writeln('Spat');
                            writeln('....................');
                            writeln('Koniec');
                          end;
                         3:
                          begin
                            clrscr;
                            writeln('Vypocet dlzky kruznice a obvodu kruhu');
                            writeln('Vypocet obluku kruznice');
                            textcolor(green);
                            writeln('Vypocet kruhoveho vyseku');
                            textcolor(white);
                            writeln('Vypocet obsahu kruhu');
                            writeln('Spat');
                            writeln('....................');
                            writeln('Koniec');
                          end;
 
                         4:
                          begin
                            clrscr;
                            writeln('Vypocet dlzky kruznice a obvodu kruhu');
                            writeln('Vypocet obluku kruznice');
                            writeln('Vypocet kruhoveho vyseku');
                            textcolor(green);
                            writeln('Vypocet obsahu kruhu');
                            textcolor(white);
                            writeln('Spat');
                            writeln('....................');
                            writeln('Koniec');
                          end;
 
                         5:
                          begin
                            clrscr;
                            writeln('Vypocet dlzky kruznice a obvodu kruhu');
                            writeln('Vypocet obluku kruznice');
                            writeln('Vypocet kruhoveho vyseku');
                            writeln('Vypocet obsahu kruhu');
                            textcolor(green);
                            writeln('Spat');
                            textcolor(white);
                            writeln('....................');
                            writeln('Koniec');
                           end;
                         6:
                          begin
                            clrscr;
                            writeln('Vypocet dlzky kruznice a obvodu kruhu');
                            writeln('Vypocet obluku kruznice');
                            writeln('Vypocet kruhoveho vyseku');
                            writeln('Vypocet obsahu kruhu');
                            writeln('Spat');
                            writeln('....................');
                            textcolor(green);
                            writeln('Koniec');
                            textcolor(white);
                          end;
                          end;
				end; {Sipka dole}
				end;
         	end;
      		13: stlac:= TRUE; {Stlaceny ENTER}
    		end;
 
	until(stlac=true);
	case i of
	1: hodnota2:=10;
	2: hodnota2:=11;
	3: hodnota2:=12;
	4: hodnota2:=14;
	5: hodnota2:=9;
	6: hodnota2:=4;
	end;
	end;
 
 
 
procedure menu4(hodnota:integer; var hodnota2:integer);
var key:char;
    i:integer;
    stlac:boolean;
begin
  clrscr;
  textcolor(green);
  writeln('Vypocet objemu kocky');
  textcolor(white);
  writeln('Vypocet povrchu kocky');
  writeln('Vypocet objemu kvadra');
  writeln('Vypocet povrch kvadra');
  writeln('Vypocet objemu valca');
  writeln('Vypocet povrchu valca');
  writeln('Vypocet obejemu kuzela');
  writeln('Vypocet povrchu kuzela');
  writeln('Vypocet objemu gule');
  writeln('Vypocet gulovej plochy');
  writeln('Spat');
  writeln('....................');
  writeln('Koniec');
  i:=1;
  repeat;
  key:=readkey;
  case ord(key) of
  0: begin
	key:=readkey;
	case ord(key) of
		75,72:
		 begin
		   clrscr;
		    if i>1 then dec(i);
			case i of
			1:
			begin
                           clrscr;
                           textcolor(green);
                           writeln('Vypocet objemu kocky');
                           textcolor(white);
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         2:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           textcolor(green);
                           writeln('Vypocet povrchu kocky');
                           textcolor(white);
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         3:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           textcolor(green);
                           writeln('Vypocet objemu kvadra');
                           textcolor(white);
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         4:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           textcolor(green);
                           writeln('Vypocet povrch kvadra');
                           textcolor(white);
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         5:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           textcolor(green);
                           writeln('Vypocet objemu valca');
                           textcolor(white);
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         6:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           textcolor(green);
                           writeln('Vypocet povrchu valca');
                           textcolor(white);
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
 
                        7:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           textcolor(green);
                           writeln('Vypocet obejemu kuzela');
                           textcolor(white);
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         8:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           textcolor(green);
                           writeln('Vypocet povrchu kuzela');
                           textcolor(white);
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         9:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           textcolor(green);
                           writeln('Vypocet objemu gule');
                           textcolor(white);
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         10:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           textcolor(green);
                           writeln('Vypocet gulovej plochy');
                           textcolor(white);
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
 
                        11:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Vypocet povrchu a objemu telies');
                           textcolor(green);
                           writeln('Spat');
                           textcolor(white);
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         12:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           textcolor(green);
                           writeln('Koniec');
                           textcolor(white);
                         end;
                         end;
				end; {Sipka hore}
 
                          77,80:
			     begin
			      clrscr;
				if i<12 then inc(i);
                                 case i of
                                 1:
			begin
                           clrscr;
                           textcolor(green);
                           writeln('Vypocet objemu kocky');
                           textcolor(white);
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         2:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           textcolor(green);
                           writeln('Vypocet povrchu kocky');
                           textcolor(white);
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         3:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           textcolor(green);
                           writeln('Vypocet objemu kvadra');
                           textcolor(white);
                           writeln('Vypocet povrch kvadra');
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         4:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           textcolor(green);
                           writeln('Vypocet povrch kvadra');
                           textcolor(white);
                           writeln('Vypocet objemu valca');
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         5:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky');
                           writeln('Vypocet objemu kvadra');
                           writeln('Vypocet povrch kvadra');
                           textcolor(green);
                           writeln('Vypocet objemu valca');
                           textcolor(white);
                           writeln('Vypocet povrchu valca');
                           writeln('Vypocet obejemu kuzela');
                           writeln('Vypocet povrchu kuzela');
                           writeln('Vypocet objemu gule');
                           writeln('Vypocet gulovej plochy');
                           writeln('Spat');
                           writeln('....................');
                           writeln('Koniec');
                         end;
                         6:
                         begin
                           clrscr;
                           writeln('Vypocet objemu kocky');
                           writeln('Vypocet povrchu kocky'