Hexadecimalis szamok:
oxaf1c
=
$af1c
=12+1*16+15*256+10*16^3

inc(i)=i+1
dec(i)=i-1

SZAMOLASOS ISM. VEZ.

-Novekvo:
i:=A -> B es minden egesz ertekre hajtsuk vegre M-et.

for i:=A to B do M
-Csokkeno:
i:A <- B es minden egesz ertekre hajtsuk vegre M-et.

for i:=A downto B do M
Problema: egy adott szamrol dontsuk el hogy prim-e?
/home/hpke/6gyak/prim.pas
/haromszo.pas
Feladat: program gyok;
procedure gyokke(szam:real);
Begin
writeln('A szam gyoke' sqrt(szam));
End;
begin
gyokke(7.3);
end.
Feladat: irjunk eljarast, amely a haromszog teruletet kiszamolja a 3
oldalbol. Heron: T=sqrt(s(s-a)(s-b)(s-c)); s=(a+b+c)/2

HF.:-Primteszt függvénnyel 1-1000
kiiratni a primeket;
haromszog terulet primekkel
Haromszog eljaras: kerulet, fajta.


A haromszog teruletenek kiszamitasa Heron-keplettel}
Program Haromszog;

Procedure Terulet(a, b, c:Real);
Var
   s: Real;
   perim: Real;
Begin
     s:=(a+b+c)/2;
     perim:=sqrt(s*(s-a)*(s-b)*(s-c));
     writeln('A haromszog terulete: ', perim);
End;

Begin
     Terulet(10.0,10.0,14.142);
     Terulet(3.0,4.0,5.0);
End.