Membuat Entri Nilai Sederhana Dengan C++

Membuat Entri Nilai Menggunakan C++  Cara Looping

Disini kita akan belajar bagaimana membuat entri nilai secara kontinu atau terus menerus.

Di C++ dikenal ada 3 cara looping yaitu :

1. For

    dengan  format :

    for (nilai awal;batasan;pengubah nilai awal)

   {aksi}

2. While

    dengan format :

    nilai awal

    while (batasan)

   {aksi;

    pengubah nilai awal;

    }   

3. Do while

    dengan format :

    nilai awal;

    do

    aksi;

    pengubah nilai awal;

    while (batasan);

Untuk membuat entri nilai secara kontinu disini saya menggunakan while.

Codingannya dapat saya buat sebagai berikut :

#include<iostream.h>
main()
{
int nilai;
char jawab = 'Y';
while (jawab == 'Y' || jawab == 'y')
{
cout<<"nilai =";cin>>nilai;
cout<<"entry lagi [Y|T] = ";cin>>jawab;
}
return 0;
}

Hasil output programnya :

Sekian posting dari saya.Silahkan dicoba.Semoga bermanfaat untuk anda.Terima kasih.

Menghitung Luas Dan Kelililing Persegi Panjang Dengan Pascal

Menghitung Luas dan Keliling Persegi Panjang Menggunakan Pascal

Untuk membuat program menghitung luas dan keliling persegi panjang dengan Pascal maka yang perlu kita perhatikan yakni pemberian nama variabel dan tipenya, rumus luas dan keliling persegi panjang.Disini kita belajar pemakaian perintah write dan writeln.Apa yang terjadi jika kita memakai write.Dan apa yang terjadi jika kita memakai writeln.Perlu disimak.

Codingan untuk program diatas dapat saya buat sebagai berikut :

uses crt;

var panjang,lebar,luas,keliling : integer;

begin

clrscr;

writeln ('Masukan panjang persegi panjang : ' );

readln;

writeln ('Masukan lebar persegi panjang  : ' );

readln;

luas := panjang*lebar;

keliling := 2*(panjang+lebar);

writeln ('Luas persegi panjang adalah : ' , luas);

writeln ('Keliling persegi panjang adalah : ' ,keliling);

readln;

end.

Out put dari program diatas yaitu : 

 

Demikianlah posting dari saya.Silakan dicoba.Semoga bermanfaat untuk anda.Terima kasih.

Membuat Pemesanan Kaos Online Dengan Pascal

Program Menghitung Pemesanan Kaos dengan Menggunakan Pascal

Jika diminta untuk membuat program pemesanan kaos secara online untuk ukuran S,M dan L dengan harga masing - masing ukuran berbeda, dan jika pemesanan lebih besar atau sama dengan 12 buah dikenakan diskon 10 % dari harga keseluruhan dan tidak ada biaya ongkos kirim.Sedangkan jika pemesanan dibawah 12 buah tidak dikenakan diskon dan dikenakan biaya ongkos kirim sebesar 20000.yang perlu kita input yakni ukuran dan jumlah kaos.Maka untuk menjawab pesoalan diatas kita perlu memperhatikan pemberian nama variabel dan tipenya,penggunaan case .... of dan pemakaian if.

Disini saya menggunakan free pascal.

Codingan program dari persoalan diatas dapat saya buat sebagai berikut :

uses crt;

var

ukuran,jk : integer;

harsa,harto,bayar,diskon,ongkir : real;

begin

clrscr;

write ('Masukan ukuran kaos yang akan dipilih : (1 (S) / 2 (M) / 3 (L) ) : ');

readln (ukuran);

write ('Masukan jumlah kaos yang akan di beli : ');

readln (jk);

case ukuran of

1 : harsa := 30000 ;

2 : harsa := 35000 ;

3 : harsa := 40000 ;

end;

write ('Harga Satuan = ' ,harsa:0:2);

readln;

harto := harsa * jk;

write ('Harga Total = ' ,harto:0:2);

readln;

if jk < 12 then 

begin

diskon :=0;

ongkir :=20000;

end;

if jk >= 12 then 

begin

diskon :=0.1*harto;

ongkir :=0;

end;

write ('Diskon : ' , diskon:0:2);

readln;

write ('Ongkos Kirim : ' , ongkir:0:2);

readln;

bayar :=harto-diskon+ongkir;

write ('Jumlah yang harus dibayar : ' , bayar:0:2);

readln;

write ('Terima Kasih');

readln;

end.

Hasil output program diatas :

Demikianlah posting dari saya.Silakan dicoba.Semoga bermanfaat untuk anda.Terima kasih.

Program Pascal Sederhana Untuk Menghitung Laba/Keuntungan

Menghitung Keuntungan dari Pendapatan dan Pengeluaran  Secara Sederhana 

Menggunakan Pascal

Disini yang saya menggunakan free pascal.

Yang perlu kita perhatikan disini yaitu :

• uses crt 
• pendapatan,pengeluaran,keuntungan kita defenisikan variabelnya real
• sebelum kita memulai pendiskripsian setelah begin  jangan lupa mengetik clscr; untuk membersihkan layar biar output yang kita hasilkan  biar kita masukan lagi  dan kita run lagi menghasilkan layar yang bersih.
•  nilai pendapatan dan pengeluaran kita input sendiri untuk itu pendeskripsian perlu kita deskripsikan untuk memasukan nilai pendapatan dan pengeluaran.
• keuntungan kita deskripsian sebagai hasil pengurangan pendapatan dengan pengeluaran (keuntungan = pendapatan - pengeluaran.
• setelah selesai pendeskripsian jangan lupa end. untuk mengakhiri pendeskripsian.

Berikut ini codingannya :
uses crt;
var pendapatan,pengeluaran,keuntungan : real;
begin;
clrscr;
write ('masukan pendapatan =  ');
readln (pendapatan);
write ('masukan pengeluaran = ' );
readln (pengeluaran);
keuntungan := pendapatan-pengeluaran;
writeln ('keuntungan =' , keuntungan 0:2);
end;

Output setelah program dijalankan :





















Demikianlah posting dari saya.Semoga posting ini bemanfaat untuk anda.Terima Kasih.