Tartalomjegyzék

< Pascal

Pascal példák

Visszaadott tömb típus

  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.

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

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.
Program01.pas
program Program01;
var 
	szam : integer;
BEGIN
	Write('Szám: ');
	ReadLn(szam);
	WriteLn(BinStr(szam,32));
	ReadLn;
END.

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

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

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

Véletlen szám generátor

function vel(max: integer):integer;
var min: integer;
begin
	min := 0;
	vel := min + random(10000000) mod max;
end;

Dobókockadobás ezek után:

  Write(vel(6)+1);