Selasa, 28 April 2015

Logika IF dalam C++ dan Contoh Program C++ Menggunakan IF

Belajar C++ khususnya tentang perintah IF membutuhkan logika atau pemikiran yang teliti dari seorang programmer sebelum menuliskan baris per baris kode program untuk menyelesaikan masalah yang ada. Perintah IF biasanya merupakan perintah pertama yang dipelajari setelah mengenal syntax-syntax dasar bahasa pemrograman, mengenal tipe data, konstanta, variable, mengenal operator dan lain-lain.

Contoh program C++ tentang operator aritmatika bisa dilihat pada posting blog kang asep sule sebelumnya yaitu contoh program C++ menghitung luas segitiga, hitung luas bujur sangkar, dan hitung luas persegi panjang.

Kembali ke IF dalam C++. Perintah atau pernyataan IF mengandung arti :
Jika kondisi bernilai benar, maka perintah akan dikerjakan.
Jika kondisi bernilai salah, maka perintah tidak akan dilaksanakan

Dari arti IF tersebut bila digambarkan dalam diagram alir (flowchart) seperti berikut ini :
 Flowchart IF

Untuk lebih jelasnya mengenai perintah IF dalam C++, silahkan Googling aja bila memang belum mampu membeli buku panduan C++ yang lengkap. Untuk saat ini, kang asep sule langsung saja ingin memberikan contoh program c++ menggunakan perintah IF.

Contoh kasus :

  • Toko buku "kamseupay" mengadakan promosi.
  • Jika membeli buku dengan total pembelian lebih dari atau sama dengan Rp. 100.000, maka mendapat diskon potongan harga sebesar 10% dari total pembelian.
  • Jika membeli buku dengan total pembelian kurang dari Rp.100.000, maka tidak mendapat diskon.
  • Total bayar = Total pembelian - diskon.

Listing program :
#include<conio.h>
#include<stdio.h>
#include<iostream.h>

main()
{
float total_beli, diskon, total_bayar;

clrscr();

cout<<"Toko Buku Kamseupay"<<endl;
cout<<"==================="<<endl;
cout<<"Total Pembelian = Rp. ";cin>>total_beli;
cout<<endl;

if (total_beli>=100000)
    diskon = 0.1 * total_beli;
else
    diskon = 0;

cout<<"======================"<<endl;
cout<<"Diskon = Rp. "<<diskon<<endl;
total_bayar=total_beli-potongan;
cout<<"Total Bayar = Rp. "<<total_bayar;
getch();
}

Screenshot Program :
Semoga bermanfaat.

Program pascal (menghitung nilai semester mahasiswa)

Berikut merupakan contoh program pascal untuk menghitung  Nilai Akhir Mahasiswa dalam satu semester.

ini sintaksnya:
Program nilai_akhir_semester_mahasiswa_UPB;
uses wincrt;
var
   nabs,nt,uts,uas,nakhir:real;
   npm,nm,prostudi,mk,grd,ket:string[25];
   grade,smtr:char;
  
begin
writeln(' Nilai Akhir Semester Mahasisiwa UPB  ');
writeln('======================================');
write  ('Nama Mahasiswa         :');readln(nm);
write  ('NPM                    :');readln(npm);
write  ('Program Studi          :');readln(prostudi);
write  ('Semester               :');readln(smtr);
write  ('Mata Kuliah            :');readln(mk);
write  ('masukan Nilai absen    :');readln(nabs);
write  ('masukan Nilai Tugas    :');readln(nt);
write  ('masukan Nilai UTS      :');readln(uts);
write  ('masukan Nilai UAS      :');readln(uas);
nakhir:=(0.15*nabs)+(0.15*nt)+(0.35*uts)+(0.4*uas);

   if (nakhir >= 80 ) and (nakhir <= 99.99) then
   grade := 'A'

   else if (nakhir >= 70) and (nakhir <= 79.99) then
   grade := 'B'

   else if (nakhir >= 60) and (nakhir <= 69.99) then
   grade := 'C'

   else if (nakhir >= 50) and (nakhir <= 59.99) then
   grade := 'D'

   else if (nakhir >= 40) and (nakhir <= 49.99) then
   grade := 'E'

   else if (nakhir >= 30) and (nakhir <= 0) then
   grade := 'F';
 
case grade of
    'A' : ket := 'Lulus Sangat Memuaskan';
    'B' : ket := 'Lulus Dengan Baik';
    'C' : ket := 'Lulus Dengan Cukup';
    'D' : ket := 'Gagal';
    'E' : ket := 'Terkapar';            
    'F' : ket := 'Ke laut ajah';
    end;

writeln;
writeln('mahasiswa yang bernama :',nm);
writeln('dengan npm             :',npm);
writeln('mendapatkan nilai akhir:',nakhir:2:0);
writeln('dan gradenya adalah    :',grade);
writeln('keterangan             :',ket);
writeln;
writeln('*****Developed By: Asep Jaenudin*******');
readln;
donewincrt;
end.

Out Put Program:

Program Pascal, Menghitung Nilai Mahasiswa



Pascal merupakan suatu bahasa pemrograman tingkat tinggi yang dibuat sekitar tahun 1970 oleh Niklaus Wirth dan digunakan untuk Pendidikan Komputer. Nama Pascal diambil dari seorang ahli matematika yang bernama Blaise Pascal yang menemukan mesin hitung pertama. Bahasa Pascal dirancang untuk menyelesaikan masalah dari berbagai kalangan pemakai, mulai dari para mahasiswa, pendidik dan ilmuwan.


Berikut Script Program Entri Data Nilai Mahasiswa :

PROGRAM ENTRY_DATA_NILAI;
USES winCRT;
VAR
        NM :STRING;
        NBP:STRING;
                NTS, NAS, NA :REAL;
        NH :CHAR;
        KET:STRING[5];
        MAD:CHAR;

BEGIN
   MAD:='Y';
   WHILE MAD='Y' DO
        BEGIN
          WRITELN('      ENTRY DATA NILAI ');
          WRITELN('TUGAS II TEKNIK KOMPILASI PTIK03');
          WRITELN('-------------------------------');
          WRITE ('NAMA MAHASISWA : ');READLN(NM);
          WRITE ('NOMOR INDUK MAHASISWA : ');READLN(NBP);
          WRITE ('NILAI TENGAH SEMESTER : ');READLN(NTS);
          WRITE ('NILAI AKHIR SEMESTER : ');READLN(NAS);
          NA:=0.40*NTS+0.60*NAS;
          WRITELN(' NILAI AKHIR : ',NA:3:2);

          IF NA>80 THEN
                  BEGIN
                          NH:='A';
                          KET:='LULUS';
                  END
          ELSE IF NA>=65 THEN
                  BEGIN
                          NH:='B';
                          KET:='LULUS';
                  END
          ELSE IF NA>=55 THEN
                  BEGIN
                          NH:='C';
                          KET:='LULUS';
                  END
          ELSE IF NA>=40 THEN
                  BEGIN
                          NH:='D';
                          KET:='GAGAL';
                  END
          ELSE
                  BEGIN
                          NH:='E';
                          KET:='GAGAL';
                  END;

          WRITELN(' NILAI HURUF : ',NH);
          WRITELN(' KETERANGAN : ',KET);
          WRITE ('MASIH ADA DATA [Y/T] : ');READLN(MAD);

          END;

END

Contoh Program Menggunakan SWITCH CASE Pada Pemrograman C++

Berikut ini adalah program untuk menentukan nama hari menggunakan SWITCH CASE pada pemrograman C++.
Kode Program:
//program menentukan nama hari berdasarkan inputan"switch..cas..default"
#include "stdio.h"
#include "conio.h"
void main()
{
  clrscr();
  int hari;
  printf("\nmasukan kode hari (1-7)= ");
  scanf("%d",&hari);
  switch(hari)
  {  case 1 : puts("hari senin");
                        break;
     case 2: puts("hari selasa");
                        break;
     case 3: puts("hari rabu");
                        break;
     case 4 : puts("hari kamis");
                        break;
     case 5 : puts("hari jumat");
                        break;
     case 6 : puts("hari sabtu");
                        break;
     case 7 : puts("hari minggu");
                        break;
     default : puts("kode yang anda masukan salah !!!");
     }
     getch();
  }
Hasil Program:
Semoga artikel Contoh Program Menggunakan SWITCH CASE Pada Pemrograman C++ ini bermanfaat. Selamat Mencoba,, semoga berhasil... (^_^)

Contoh Program Perkalian Menggunakan FOR BERSARANG Pada Turbo Pascal

Berikut ini adalah program yang menghasilkan tabel perkalian dari angka 1 sampai angka 5. Program ini menggunakan for dalam for atau sering disebut juga dengan for bersarang.
Kode Program:
program buat_kolom_baris;   {for bersarang}
var
   a,b  : integer;
begin
     writeln('_____________________________________________________');
     writeln('-----------------------------------------------------');
     a := 0;
     for a := 1 to 10 do
           begin
              for b := 1 to 5 do
                    begin
                       write (a:5,'*',b,'=',(a*b):2);
                    end;
                    writeln;
           end;
     writeln('-----------------------------------------------------');
     writeln('_____________________________________________________');
     readln;
end.
Hasil Program:
Selamat Mencoba,, semoga berhasil... ^_^

Penggunaan Pernyataan IF THEN ELSE Pada Turbo Pascal

Pernyataan IF-THEN-ELSE digunakan jika terdapat lebih dari satu pernyataan, pernyataan pertama akan dieksekusi apabila kondisi bernilai true dan sebaliknya pernyataan kedua akan di eksekusi apabila kondisi bernilai false.
1.      Pernyataan IF sederhana
Bentuk umumnya adalah:
IF kondisi THEN
Pernyataan
            Pada bentuk ini, pernyataan hanya akan dikerjakan jika “kondisi” bernilai true, jika “kondisi” bernilai false pernyataan tidak akan di eksekusi atau dikerjakan.
Contoh programnya adalah:
a)      Algoritma:
Algoritma menentukan tipe angka
DEKLARASI
      Angka : integer
DESKRIPSI
      Read (angka)
      IF angka > 0 THEN
                  Write (‘angka positif’)
      ENDIF.
b)     Kode Program:
program menentukan_tipe_angka;
var
   angka        : integer;
begin
     write('Masukan sebuah angka: '); readln(angka);
     if angka > 0 then
        writeln ('Angka adalah Positif')
     readln;
end.
2.      Pernyataan IF ELSE
Bentuk umumnya adalah:
IF kondisi THEN
Pernyataan1
ELSE
                 Pernyataan2
           
            Pada bentuk ini, pernyataan1 hanya akan dikerjakan jika “kondisi” bernilai true. Dan pernyataan2 hanya akan dikerjakan jika “kondisi” bernilai false.
Contoh programnya adalah:
a)      Algoritma:
Algoritma menentukan tipe angka
DEKLARASI
      Angka : integer
DESKRIPSI
      Read (angka)
      IF angka > 0 THEN
                  Write (‘angka positif’)
      ELSE
                  Write (‘angka bukan positif’)
      ENDIF.
b)     Kode Program:
program menentukan_tipe_angka;
var
   angka        : integer;
begin
     write('Masukan sebuah angka: '); readln(angka);
     if angka > 0 then
        writeln ('Angka adalah Positif')
     else
            writeln ('Angka bukan Positif')
     readln;
end.
3.      Pernyatan IF bersarang
Bentuk umumnya adalah:
IF kondisi1 THEN
      Pernyataan1
ELSE
       IF kondisi2 THEN
             Pernyataan2
       ELSE
             Pernyataan3                        
           
            Pada bentuk ini, pernyataan1 hanya akan dikerjakan jika “kondisi1” bernilai true. Dan pernyataan2 hanya akan dikerjakan jika “kondisi2” bernilai true. Sedangkan pernyataan3 hanya akan dikerjakan jika tidak ada “kondisi” yang bernilai true.
Contoh programnya adalah:
a)      Algoritma:
Algoritma menentukan tipe angka
DEKLARASI
      Angka : integer
DESKRIPSI
      Read (angka)
      IF angka > 0 THEN
                  Write (‘angka positif’)
      ELSE
                  IF angka < 0 THEN
                              Write (‘angka negatif’)
                  ELSE
                              Write (‘angka nol’)
      ENDIF.
b)     Kode Program:
program menentukan_tipe_angka;
var
   angka        : integer;
begin
     write('Masukan sebuah angka: '); readln(angka);
     if angka > 0 then
        writeln ('Angka adalah Positif')
     else
         if angka < 0 then
            writeln ('Angka adalah Negatif')
         else
             writeln ('Angka adalah Nol');
     readln;
end.
            Hasil Program:
       
Selamat Mencoba,, semoga berhasil... ^_^

Membuat Kalkulator Sederhana dengan Turbo PASCAL

Project kalkulator sederhana
Codingnya :


uses crt;
var
a,c,d : integer;
operator, z:char;
begin
repeat
clrscr;
Writeln('PETUNJUK:');
Writeln('1. Masukkan angka pertama');
Writeln('2. Masukkan operator (+, -, /, *)');
Writeln('3. Masukkan Angka kedua');
Writeln (‘-------------------------------‘);
Writeln('PERHITUNGAN: ');
Writeln (‘------------------------------‘);
Write('Masukkan angka: '); readln(a);
write('Operator: '); readln(Operator);
write('Angka ke dua: '); readln(c);
case operator of
'+': d:=a + c;
'-': d:=a - c;
'/': d:=a div c;
'*': d:=a * c;
end;
writeln('Hasil: ',d);
writeln;
writeln (‘by: Teman Kita MI 1db01’);
writeln (‘A.Amjad Mujaddid Al.a’);
writeln (‘Ahmad Hidayat’);
writeln (‘Nency Susilowati’);
writeln (‘Rudi Setiawan’);
writeln (‘Sefri’);
writeln;
Write('Hitung lagi? (y/n) '); readln(z);
until Upcase(z) <> 'Y';
  end. 
  
~Selamat mencoba ~