-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...")
- 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)
-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)
-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")
-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:
Posting Komentar