tugas Ganjil,Genap dan Discount

-
1. Ganjil
   Berikut ini Script Menghitung Nilai Akhir :


    
    berikut adalah hasil dari hasil script di atas :


2. Genap
   berikut adalah script dari mencari usia sekarang


 berikut adalah hasil dari script di atas :


 3. diskon
    berikut ini adalah script dari program diskon


  berikut adalah hasil dari script di atas :


Komentar

Posting Komentar

Postingan populer dari blog ini

latihan 2 Penjumlahan,Menghitung Luas Permukaan Bola,Mencari Luas Dan Keliling Lingkaran,Menghitung Volume Tabung,Menghitung luas Segitiga

-
Gambar
1.        Penjumlahan Oke jadi saya akan mencoba menjumlah dengan pascal,seperti menambah,mengurang,membagi dan mengkali bilangan,script yang akan saya gunakan yaitu: Program menghitung_bilangan; Uses crt; Var a,b,kali,tambah,kurang:integer;        Bagi:real; Begin Clrscr;                 write (‘Masukan Jumlah A:’);readln(A);                 write (‘Masukan Jumlah B:’);readln(B);                 kali:=A*B;                 tambah:=A+B;                 kurang:=A-B;        ...
Baca selengkapnya