Algoritma

=================================================================================================

buat algoritma mencari nilai tertinggi dan terendah dari nilai yang dimasukan melalui keyboard
berapa jumlah nilai?
nilai -1 :
      -2 :
      -3 :
      -4 :
tertinggi....
terendah.....

variabel : n, nilai, besar, kecil,x
jawab :
Algoritma besar_kecil
Deklarasi
N,nilai,besar,kecil,x : integer
Deskripsi
Write ("berapa jumlah nilai?")
Besar = nilai
kecil = nilai
forx = 2 to n do
    write ("nilai-",x,":")read (nilai)
    if nilai> besar then besar = nilai
    if nilai<kecil then kecil = nilai
end for
write("tertinggi:",besar)
write("terendah:",kecil)

==============================================================================================

Buat Algoritma untuk mencari rata2 bilangan dari n bilangan.
Algoritma rata-ratal)
Deklarasi
bil,n,x : integer
rata2 : real
Deskripsi
Write("jumlah bilangan?")
read(n)
rata2 = 0
forx = 1 to n do
write ("bilanganke ",x":")
read(bil)
Rata2=rata2+bil
Endfor
rata2 = (rata2/n)
write ("rata-rata:",rata2)

============================================================================================
Buat algoritm untuk mebalik sebuah kata yang dimasukan melalui keyboard.
contoh:
amir ==rima
contoh:
kata?amir
balik=""
balik=balik+baca huruf demi huruf dari belakang
R
R+I=RI
RI+M=RIM
RIM+A=RIMA
Deklarasi
x: integer
kata,balik :string
Deskripsi
Write("masukan sebuah kata?")
Read(kata)
balik=""
forx=len(kata) down to 1 do
     balik=balik+mid(kata,x,1)
endfor
write("kataterbaik:",balik)
=============================================================================================