Langsung ke konten utama

MEMPREDIKSI TANGGAL PERKIRAAN KELAHIRAN BAYI

KALIMAT DESKRIPTIF

mulai
input tanggal, bulan, tahun (HPHT)
bulan HPHT dikurang 3
tahun HPHT ditambah 1
tampilkan perkiraan lahir bayi
selesai

PSEUDO-CODE

algoritma : perkiraan (lahir bayi)
deklarasi ;
  tanggal HPHT
  bulan HPHT
  tahun HPHT
  perkiraan kelahiran

deskripsi;
  read tanggal HPHT
  read bulan HPHT
  read tahun HPHT
  perkiraan lahir<-(tgl+7), (bulan-3), (tahun+1)
  write (perkiraan lahir)
end

Komentar

Postingan populer dari blog ini

sajian data dalam bentuk histogram, poligon, pie chart, ogive dan diagram

selesaikan data dibawah ini dengan sajian dalam bentuk histogram, poligon, pie chart, ogive, dan diagram nilai f 41 - 50 3 51 – 60 11 61 – 70 21 71 – 80 33 81 – 90 15 91 – 100 3 1. Histogram Untuk membuat histogram tepi bawah dikurang dengan 0.5 dan batas atas kelas paling bawah di tambah dengan 0.5 2. Poligon Poligon merupakan garis yang melalui titik tengah dari bagian sisi atas tiap persegi panjang dari histogram   3. Ogive Untuk menentukan ogive terlebih dahulu mencari nilai frekuensi komulatif  Nilai Frekuensi FK 41-50 3 3 51-60 11 14 61-70 21 35 71-80 33 68 81-90 15 83 91-100 3 86 4. diagram    ...

PENJUALAN BARANG MENGGUNAKAN PSEUDO-CODE

PSEUDO-CODE Algoritma: Penjualan_Barang Deklarasi    Kd, Nm: String    JJ, Hrg, TH : Numeric Deskripsi    Read (Kd);    IF Kd='SBN01' Then                Nm-'Sabum LUX'                Hrg- 1500    ELSE IF Kd='RNS02' Then                Nm-'Rinso'                Hrg-11500    ELSE IF Kd='SMP03' Then                Nm-'Sunsilk'                Hrg-150           ELSE             Nm-" "           END IF Read (JJ) TH- Hrg*JJ Write(TH)

PSEUDOCODE MENCARI KETERANGAN LULUS/GAGAL DENGAN MENGGUNAKAN WHILE END WHILE

Algoritma Cek_Keterangan Deklarasi    N  : Byte    Lg, Ket : String Deskripsi    Lg- 'Y'    While Lg = 'Y'        Write ('Nilai Anda :')        Read (N)        If N>=60 Then              Ket- 'LULUS'        else              Ket- 'GAGAL'        End If        Write ('Anda : ', Ket)        Write ('Menghitung Lagi [Y/T] : ')        Read (Lg) End While