[[oktatas:programozás:pascal|< Pascal]]


====== Pascal példák ======

===== Visszaadott tömb típus =====
<code pascal>
  program tombos;
  
  type Ttomb = array [1..50] of integer;
  
  var
    tomb : Ttomb;
  
  function vi(a : integer): Ttomb;
  begin
    vi[1] := a * 2;
    vi[2] := a * 3;
  end;
  
  begin
    tomb := vi(3);
    WriteLn('Eredmény', tomb[1]);
    WriteLn('Eredmény', tomb[2]);
  
  end.
</code>



===== 10 számrendszerből 2-be váltás =====

<code pascal Program01.pas>
program Program01;

var 
	szam, i, j : integer;
	tomb : array[1..100] of integer;	
BEGIN
	Write('Szám: ');
	ReadLn(szam);
	
	i := 0;
	repeat
		i := i + 1;
		tomb[i] := szam mod 2;
		szam := szam div 2;		
	until szam = 0;
	for j := i downto 1 do
		Write(tomb[j]);
	WriteLn;
	ReadLn;
END.

</code>


<code pascal Program01.pas>
program Program01;
var 
	szam : integer;
BEGIN
	Write('Szám: ');
	ReadLn(szam);
	WriteLn(BinStr(szam,32));
	ReadLn;
END.
</code>

===== 10 számrendszerből 16-ba váltás =====

A HexStr függvényt a System unitban találjuk.

<code pascal Program01.pas>
program Program01;
var 
	szam : integer;
BEGIN
        szam := 5;
	WriteLn(HexStr(szam,32));
	ReadLn;
END.
</code>


===== Véletlen szám generátor =====

<code pascal>
function vel(max: integer):integer;
var min: integer;
begin
	min := 0;
	vel := min + random(10000000) mod max;
end;
</code>


Dobókockadobás ezek után:
<code pascal>
  Write(vel(6)+1);
</code>