notasi mencari nilai maximum

{judul fungsi mencari nilai max}
function CariMax(nilai : integer, banyakdata : integer)

kamus
i : integer
max : integer

deskripsi
max=-9999
i←0
while(i‹banyakdata)do
if(nilai[i]›max)then
max←nilai[i]
i←i+1
end while

return max

notasi konversi index nilai

‹›{judul fungsi konversi nilai ke dalam index}
function konvnilai(nilai : integer)

kamus
index : char

deskripsi
if(nilai›=85)then
index ←’A’
else if(nilai‹85 and nilai›=70)then
index ←’B’
if(nilai‹70 and nilai›)=60then
index ←’C’
if(nilai‹60 and nilai ›=50)then
index ←’D’
if(nilai ‹50)then
index ←’E’
return index

notasi kartoint

{judul fungsi mengubah karakter menjadi int}
function kartoint(x:char)

kamus
deskripsi
if(x=’1′) then x←1
if(x=’2′) then x←2
if(x=’3′) then x←3
if(x=’4′) then x←4
if(x=’5′) then x←5
if(x=’6′) then x←6
if(x=’7′) then x←7
if(x=’8′) then x←8
if(x=’9′) then x←9
return x

notasi cek status segitiga

{judul cek status segitiga}
procedure CekStatSegitiga()

kamus
sisi1,sisi2,sisi3 : integer
max : integer

deskripsi
max ← 0
if (sisi1 › max)then
max ← sisi1
else if (sisi2 › max)then
max ← sisi2
else if (sisi3 › max)then
max ← sisi3
end if

if(sisi1=sisi2 and sisi2=sisi3)then
output (Segitiga sama sisi)
esle if (sisi1=sisi2 or sisi3)then
output (segitiga sama kaki)
else if (sisi2 = sisi 3 or sisi1)then
output (segitiga sama kaki)
elsi if (max*max=sisi1*sisi1+sisi2*sisi2 or sisi2*sisi2+sisi3*sisi3 or sisi1*sisi1 + sisi3*sisi3)
output (segitiga pitagoras)
else
output (segitiga sembarang)