Unit AritUnit;                                    { aritunit.pas; 91.07.01. }

                                          { nagypontoss gu eg‚sz-aritmetika }
  Interface
    Const        MaxPontossag=255;
    Var          Pontossag : Integer;
    Type        Szamjegy         = Byte;
       		PozSzam          = Array [0..MaxPontossag+1] of Szamjegy;
       		SzamrendszerTipus= 2..256;
        	PontossagTipus   = 0..MaxPontossag+1;
        	ElojelTipus      = (Poz,Neg);
        	EgeszSzam        = Record
                             		elojel      : ElojelTipus;
                             		hossz       : PontossagTipus;
                             		szamrendszer: SzamrendszerTipus;
                             		jegy        : PozSzam;
                           	   End;
    Var
       Nulla,Egy,
       Ketto       : EgeszSzam;
       Plusz,Szor  : Integer;
       Tulcsordult : Boolean;

    Procedure Beolvasas(var a: EgeszSzam; kerdes: String);
    Procedure Kiiras(a: EgeszSzam; szoveg: String);
    Function  Nulla_e(var x: EgeszSzam): Boolean;
    Procedure Novel(Var n: EgeszSzam);
    Procedure Osszead(var a,b,osszeg: EgeszSzam);
    Procedure Kivon(var a,b,kulonbseg: EgeszSzam);
    Procedure Szoroz(var a,b,szorzat: EgeszSzam);
    Procedure Oszt(var a,b,hanyados,maradek: EgeszSzam);
    Procedure AlapSzoroz(var a: EgeszSzam; kitevo: Integer; var szorzat: EgeszSzam);
?    Function  Nagyobb(var a,b: EgeszSzam): Boolean;

?    Function Min(x,y: Integer): Integer;
?    Function Max(x,y: Integer): Integer;

Unit Raciona5;

Interface
  Type      Tort    = Record
      		           szamlalo,
                 	   nevezo: EgeszSzam;
	              End;
    	    ValosSzam= Record
            		   egesz, tort: EgeszSzam
	               End;

  Var
      NullaTort,Fel,
      EgyTort,KettoTort : Tort;
      Kerekites         : Boolean;

  Procedure Lnko (Var a, b, oszto, a1, b1 : EgeszSzam);
  Procedure Tortosszead (Var a, b, osszeg : Tort);
  Procedure Tortkivon (Var a, b, kulonbseg : Tort);
  Procedure Tortszoroz (Var a, b, Szorzat : Tort);
  Procedure Tortoszt (Var a, b, Hanyados : Tort);
  Function  Egyenlo (Var a,b: EgeszSzam): Boolean;
  Procedure Egeszbol_Tort(Var szamlalo,nevezo: EgeszSzam; Var rac: Tort);
  Procedure Becsul(Var a : Tort; hossz : PontossagTipus);
  Procedure Konv_RacVal(Var valos: ValosSzam; {Var} racionalis: Tort);
  Procedure ValosKiir(valos: ValosSzam);