안녕 하십니까 어서 오세요 ~ Annyeong Eoseo Oseyo in My Blog ~ Apakabar? Selamat Datang Di Blogku

Kamis, 20 November 2008

Contoh Menu algoritma

Ada contoh Menu Algoritma sederhana yaitu seperti dibawah ini :

Algoritma Menu Sederhana


-Judul
program_membuat_menu

-Kamus
pilihan : int
Lsegitiga,Lbujursangkar,Lpersegipanjang,Llingkaran : real
a, t, s, p, l, r, phi : real

-Alogoritma
output ("1. Menghitung Luas Segitiga")
output ("2. Menghitung Luas Bujursangkar")
output ("3. Menghitung Luas Persegipanjang")
output ("4. Menghitung Luas Lingkaran")
output ("5. Exit")

case (pilihan) of
1 :
output ("Menghitung Luas Segitiga")
input (a)
input (t)
Lsegitiga <- 0.5*a*t
output (Lsegitiga)

2 :
output ("Menghitung Luas Bujursangkar")
input (s)
Lbujursangkar <- s*s
output ()

3 :
output ("Menghitung Luas Persegipanjang")
input (p)
input (l)
Lpersegipanjang <- p*l;
output (Lpersegipanjang)

4 :
output ("Menghitung Luas Lingkaran")
input (r)
phi = 3.14;
Llingkaran <- phi*r*r;
output (Llingkaran)

5 :
output ("Exit...")

Algoritma Persamaan Kuadrat


- Judul
program_persamaan_kuadrat
{menghitung akar-akar sebuah persamaan kuadrat}

- Kamus
a, b, c, D, x1, x2, x1x2: int

- Algoritma
Input (a)
Input (b)
Input (c)

D <- (b*b) - (4*a*c)

if (D < 0) then
Output (“kedua akarnya tidak real/imajiner")
else if (D = 0)
x1x2 <- -b/(2* a);
output ("
terdapat akar kembar, yaitu x1 = x2 = ", x1x2);
else
x1 <- ((-b) + sqrt(D)) / (2*a);
x2 <- ((-b) - sqrt(D)) / (2*a);
output ("
terdapat dua akar yang berbeda : ”)
output (“x1 = ", x1)
output (“x2 = "
, x2)

Algoritma Nilai Mutlak


-Judul
program_nilai_mutlak
{menentukan nilai mutlak sebuah bilangan}

-Kamus Data
x, x_mutlak : int

-ALgoritma
input (x)
if (x < 0) then
output ("angka bernilai negatif")
x_mutlak <- x*-1
output ("nilai mutlaknya adalah : ", x_mutlak)
else
output ("angka bernilai positif")
output ("nilai mutlaknya adalah : ", x)

Algoritma Cek Password


-Judul
program_cek_password
{cek password}

-Kamus Data
pass_asli, pass : string

-Algoritma
pass_asli <- "algoritma123"
input (pass)
if (pass == pass_asli) then
output ("password diterima.")
else
output ("password ditolak. silakan ulangi")

Algoritma Berat Badan Ideal


-Judul
program_berat_badan_idel
{Menghitung berat badan ideal}

-Kamus Data
BBI, TB : real

-Algoritma
input (TB)
BBI <- (TB-100)*0.9 {0.9 = 90%}
output (BBI)

0 komentar: