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
Mathew 11. 05. 2019 03:40 cs
How would you like to Upload A SINGLE Video And RANK for 100 LANGUAGES !!! FACT #1 ONLY 25% of the searches made online are in ENGLISH! And yet everybody focuses on trying to rank in ENGLISH! FACT #2 YouTube is the 2nd BIGGEST website in the world… And still you focus all your efforts trying to rank and get traffic ONLY from Google! http://bit.ly/2PVgtFh DO THE MATH: With Over 3 Billion Searches A Month… All the visitors that you will ever need ARE ALREADY ON YOUTUBE! 3 billion searches a month. 75% are not in English… Do the math… 2.2 billion searches each month in foreign languages! Are you getting an idea on how much money you are leaving on the TABLE? http://bit.ly/2PVgtFh
Aly 20. 04. 2019 07:16 cs
Hello there, My name is Aly. Would you have any interest to have your website here at adamh.cz promoted as a resource on our blog alychidesign.com ? We are in the currently updating our do-follow broken link resources to include current and up to date resources for our readers. If you may be interested please in being included as a resource on our blog, please let me know. Thanks, Aly