ProgramováníPočítačInternetBlog

Pomocná Unita pro Pascal

Pomocná knihovna pro Pascal.

Napsal jsem unitu pro Pascal, která má zatím 3 funkce (jejich počet budu možná zvyšovat). inttostr a strtoint Jelikož pascal má na převedení číselné proměnné na string (a naopak) pouze procedury napsal jsem funkce, které tyto procedury využívají. Nevýhodá těchto funkcí je, že umí převádět jenom integer, ale tento problém se dá vyřešit. Skoro každý snad umí přepsat slovo "integer" třeba na "word" :-). Vymen Je to procedura. Občas se hodí, že potřebujete nějaké čísla prohodit. K tomuto slouží funkce vymen. Opět platí, že když vám nevyhovuje datavý typ, tak si ho přepište :-?.
unit pomocna;

interface (*Seznam procedur a funkcí*)
         function inttostr(int:integer):string; (*Převede integer na string*)
         function strtoint(str:string;var chyba:integer):integer; (*Převede string na integer*)
         procedure vymen(c1,c2:integer); (*Prohodí 2 proměnné typu integer*)

implementation

         function inttostr(int:integer):string;
                  var
                     s:string;
                  begin
                       str(int,s);
                       inttostr:=s;
                  end;

         function strtoint(str:string;var chyba:integer):integer;
                  var
                     int:integer;
                  begin
                       val(str,int,chyba);
                       strtoint:=int;
                  end;

         procedure vymen(c1,c2:integer);
                   begin
                        c1:=c1+c2;
                        c2:=c1-c2;
                        c1:=c1-c2;
                   end;
end.
Kdyby jste našli nějaké chyby v této unitě, tak se hlaste.
Tagy:
pascal
Podobné:
Simulace lávySimulace lávyMini učebnice PascaluMini učebnice Pascalu

Komentáře:

Jméno:
Vzkaz:
Jste člověk?Ano Ne