Contoh Program Pascal Menu Restoran

Hallo Coding Maniak, Sudahkah Anda Ngoding Hari Ini ??
Contoh Program Pascal Menu Makanan Restoran | Hari ini saya membagikan contoh program pascal menu makanan restoran sederhana, diprogram ini kita menggunakan algoritma pemilihan  case of dan if dalamnya ada daftar menu, harga juga disesuaikan dengan jenis porsi dan makan ditempat atau dibawa pulang. Oke tanpa banyak basa-basi berikut ini adalah gambarannya.

Dan dibawah ini adalah source code nya, seperti biasa saya lebih menyarankan anda mengetik manual code nya, supaya lebih terbiasa.
Tapi kembali lagi itu terserah anda.

Program Menu_pilihan;
uses crt;
var harga, tambah, menu, total, jumLah, plus, i :longint;
var  porsi, porsi2, jenis, nama, najen :string;
begin
clrscr;
  GotoXY(40,7);writeln('       WARUNG MAKAN MAD ARIEF   ');
  GotoXY(36,8);writeln('     ____________________________________ ');
  GotoXY(36,9);writeln('    |NO. |     Daftar Menu Makanan       |');
  GotoXY(36,10);writeln('    |____|_______________________________|');
  GotoXY(36,11);writeln('    | 1. |   Nasi Goreng Spesial         |');
  GotoXY(36,12);writeln('    | 2. |   Mie Goreng Komplit          |');
  GotoXY(36,13);writeln('    | 3. |   Sop Iga Sapi                |');
  GotoXY(36,14);writeln('    | 4. |   Seblak Ceker Setan          |');
  GotoXY(36,15);writeln('    | 5. |   Soto Ayam                   |');
  GotoXY(36,16);writeln('    |____|_______________________________|');
  GotoXY(36,17);write('    Masukan Menu Pilihan Anda : ');readln(menu);
          case menu of
          1: begin
              harga:=20000;
              nama:='Nasi Goreng Spesial';
              GotoXY(40,18);write('Porsi (kecil/sedang/besar): ');readln(porsi);
              Gotoxy(40,19);write('Jenis (D/H): ');readln(jenis);
              end;
          2: begin
              harga:=15000;
              nama:='Mie Goreng Komplit';
              GotoXY(40,18);write('Porsi (kecil/sedang/besar): ');readln(porsi);
              GotoXY(40,19);write('Jenis (D/H): ');readln(jenis);
              end;
          3: begin
              harga:=25000;
              nama:='Sop Iga Sapi';
              GotoXY(40,18);write('Porsi (kecil/sedang/besar): ');readln(porsi);
              GotoXY(40,19);write('Jenis (D/H): ');readln(jenis);
              end;
          4: begin
              harga:=10000;
              nama:='Seblak Ceker Setan';
              GotoXY(40,18);write('Porsi (kecil/sedang/besar): ');readln(porsi);
              GotoXY(40,19);write('Jenis (D/H): ');readln(jenis);
              end;
          5: begin
              harga:=15000;
              nama:='Soto Ayam';
              GotoXY(40,18);write('Porsi (kecil/sedang/besar): ');readln(porsi);
              GotoXY(40,19);write('Jenis (D/H): ');readln(jenis);
              end;
          end;
              if porsi='besar' then
              begin
                tambah:=5000;
                porsi2:='Besar';
              end;
              if porsi='sedang' then
              begin
                tambah:=3000;
                porsi2:='Sedang';
               end;
              if porsi='kecil' then
              begin
                tambah:=0;
                porsi2:='Kecil';
              end;
                 if jenis='D' then
                 begin
                   plus:=0;
                   najen:='Makan Di Tempat';
                 end;
                  if jenis='H' then
                 begin
                   plus:=2000;
                   najen:='Dibawa Pulang';
                 end;
                    jumLah:=harga+tambah;
                    total:=jumLah+plus;
                     if menu<=5 then
                     begin

GotoXY(25,22);writeln('   <>><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>');
  GotoXY(25,24);writeln('    ___________________________________________________________ ');
  GotoXY(25,25);writeln('   |                      PESANAN ANDA                         |');
  GotoXY(25,26);writeln('   |___________________________________________________________|');
  GotoXY(25,27);writeln('     ',nama,' ');
  Gotoxy(65,27);writeln('Rp.',jumlah,',-');
  GotoXY(25,28);writeln('     Porsi ');
  GotoXY(65,28);writeln('',porsi2,'');
  GotoXY(25,29);writeln('     Jenis ');
  GotoXY(65,29);writeln('',najen,'');
  GotoXY(25,30);writeln('     Total ');
  GotoXY(65,29);writeln('Rp.',total,',-');
   readln;
  end;
end.

Ini Screenshot ketika program dijalankan

Untuk inputnya
Menu : menggunakan angka 1 sd 5 (seperti yang tertera di daftar)
Porsi : Tulis langsung saja kecil/sedang/besar
Jenis (apakah mau makan ditempat atau dibawa pulang), masukan D : Ditempat atau H : Dibawa pulang

Semoga penjelasan diatas bermanfaat, silahkan tuliskan komentarnya jika dirasa ada yang salah, kurang jelas atau sebagainya.
Kita disini sama-sama belajar
Seperti salah satu moto di blog ini “Dari newbie, oleh newbie, untuk newbie”

Baca Juga
Program Permainan Sulap Angka
Program Reservasi Hotel
Konsep Aplikasi Untuk Smart City

Read More

Contoh Program Pascal Reservasi Hotel

Hallo Coding Maniak, Sudahkan Anda Ngoding Hari Ini ??

Hari Ini saya akan membagikan contoh program pascal reservasi hotel, algoritma pemilihan if sangat dominan disini jadi buat kalian yang kebetulan ada tugas membuat program pascal dengan algoritma pemilihan ini bisa dijadikan referensi, di dalam program ini ada daftar menu yang terdiri dari jenis-jenis ruangan hotel, harga serta fasilitas yang tersedia.

Ini adalah gambaran lengkapnya.

Dan ini adalah source codenya, seperti biasa saya lebih menuyarankan anda mengetik manual codingnya, supaya lebih terbiasa

program Hotel_Arief;

 uses

 crt;

 label awal,akhir;

 var

 no:integer;

 total,cash,harga,hsewa,kembalian:longint;

 lm_nginap:integer;

 jns_penginapan:string;

 nama: string;

 noroom: string;

 kalimat, kata1, kata2 :string;

 yesno: char;

 begin

akhir: clrscr;

textcolor(110);

 gotoxy(50,2);

writeln('Penginapan Mad Arief');

 textcolor(white);

 gotoxy(27,3); writeln(' ===================================================================='); textcolor(10);

 gotoxy(2,4);

gotoxy(27,5);writeln(' Fasilitas Penginapan:');

textcolor(15);

gotoxy(27,6);writeln(' 1. Full AC');

gotoxy(27,7);writeln(' 2. Jaringan WIFI');

gotoxy(27,8);writeln(' 3. Pelayanan Penginapan 24 jam');

textcolor(14); writeln(' ');

gotoxy(27,10);writeln('  ___________________________________________________________________');

gotoxy(27,11);writeln(' | NO | Jenis Penginapan  | Harga Sewa |    Fasilitas Tambahan       |');

gotoxy(27,12);writeln(' |____|___________________|____________|_____________________________|');

gotoxy(27,13);writeln(' | 1  |  Executive Room   | 1.000.000  |  1. TV LCD Satelite         |');

gotoxy(27,14);writeln(' |    |                   |            |  2. King Size Bed           |');

gotoxy(27,15);writeln(' |    |                   |            |  3. Shower Hot & Cool       |');

gotoxy(27,16);writeln(' |    |                   |            |  4. Mini Bar                |');

gotoxy(27,17);writeln(' |____|___________________|____________|_____________________________|');

gotoxy(27,18);writeln(' | 2  |  Deluxe Room      |   650.000  |  1. TV LCD 24 in            |');

gotoxy(27,19);writeln(' |    |                   |            |  2. Queen Size Bed          |');

gotoxy(27,20);writeln(' |____|___________________|____________|_____________________________|');

gotoxy(27,21);writeln(' | 3  |  Standard Room    |   300.000  |  1. TV 17 in                |');

gotoxy(27,22);writeln(' |    |                   |            |  2. Single Bad              |');

gotoxy(27,23);writeln(' |____|___________________|____________|_____________________________|');

writeln; readln;

begin

clrscr;

writeln;

textcolor(15);

write(' Nama Pengunjung  = ');

readln (nama);

write(' Jenis Penginapan = ');

readln (no);

if no= 1 then harga:=1000000;

if no= 2 then harga:=650000;

if no= 3 then harga:=300000;

writeln(' Harga            = ');

gotoxy(21,4);

writeln(harga);

write(' Nomor Kamar      = ');

readln(noroom);

write(' Lama Menginap    = ');

readln(lm_nginap);

writeln;

writeln('                        STRUK PENGINAPAN                           ');

writeln(' ==================================================================');

writeln('  Nama Pengunjung = ');

gotoxy(21,10);

writeln(nama);

writeln('  Nomor Kamar     = ');

gotoxy(21,11);

writeln(noroom);

writeln('  _________________________________________________________________');

writeln(' | NO | Jenis Penginapan | Harga Sewa | Lama Sewa |     Total      |');

writeln(' |____|__________________|____________|___________|________________|');

writeln(' |    |                  |            |           |                |');

writeln(' |____|__________________|____________|___________|________________|');

gotoxy(4,15);

writeln(no);

if no= 1 then jns_penginapan:=' Executive Room';

if no= 2 then jns_penginapan:=' Deluxe Room';

if no= 3 then jns_penginapan:=' Standrad Room';

gotoxy(8,15);

writeln(jns_penginapan);

if no= 1 then harga:=1000000;

if no= 2 then harga:=650000;

if no= 3 then harga:=300000;

gotoxy(28,15);writeln(harga);

gotoxy(44,15);writeln(lm_nginap);

total:= harga*lm_nginap;

gotoxy(56,15);

writeln(total);

writeln('');

writeln; write(' Cash      = ') ;

 readln (cash);

kembalian:= cash-total;

writeln(' Kembalian =');

gotoxy(14,19);

writeln(kembalian);

writeln; textcolor(15);

writeln;

writeln;

write(' Jika setuju klik ( Y ), jika tidak ( N ) = '); readln(yesno);

 if yesno='Y'  then goto awal;

 if yesno= 'y' then goto awal;

if yesno='N' then goto akhir;

if yesno='n' then goto akhir;

readln;

end;

begin awal:

clrscr;

TEXTCOLOR(10);

kalimat := ' TERIMAKASIH ATAS KUNJUNGAN ANDA ';

 REPEAT kata1 := COPY(kalimat,2,LENGTH(kalimat));

 kata2 := COPY(kalimat,1,1);

 kalimat:= CONCAT(kata1,kata2);

 GOTOXY(40,10);

WRITE(kalimat);

 DELAY(100);

 UNTIL KEYPRESSED;

 readln;

end;

end.

Dibawah ini adalah gambaran ketika program dijalankan.

Dan untuk inputannya bisa dilihat dibawah ini ada nama, jenis penginapan/ruangan yang diinginkan, harga, nomer kamar dan lama menginap. Setelah semua diisi dan menekan enter akan muncul seperti struk dibawah dan inputan cash/total biaya

Selamat Ngoding

"Dari newbie, untuk newbie dan oleh newbie"

Baca Juga
Program Permainan Sulap Angka
Program Menu Restoran

Read More

Contoh Program Pascal Permainan Sulap Angka

Hallo Coding Maniak, Sudahkan anda ngoding hari ini ?

Kali ini saya akan membagikan salah satu program bisa dibilang game sih, yaitu Permainan Sulap Angka. Pasti tahu kan permainan sulap angka ?? itu loh permainan tebak angka yang orang lain akan memikirkan salah satu angka lalu kita akan menebaknya. Kali ini permainan ini bisa direalisasikan di pc kita dengan menggunakan pemrograman pascal.

Jadi di program ini akan memunculkan daftar angka 1 sampai dengan 50 yang lalu akan kita pilih salah satu, pikirkan saja salah satu lalu tekan y program yang akan melakukan seleksi.

Dibawah ini adalah gambarannya.

Dan dibawah ini adalah gambaran ketika program ini dijalankan

Oke ayo kita coba, kali ini saya akan memilih angka 9 lalu tekan Y

 

Kalau angka yang kita pilih ada dalam daftar tekan Y lagi, btw angka 9 saya ada.

Jika tidak ada di dalam daftar  tekan T

Hore tebakan program kita tepat......

Penasaran ??

Tertarik mau coba juga ??

Oke dibawah ini ada script code nya, seperti biasa saya pribadi lebih menyarankan anda mengetik manual script code nya, supaya terbiasa.

Tapi kembali lagi itu terserah anda.

PROGRAM SULAPANGKA;

USES CRT;

VAR I, J, K, L: INTEGER;

YT: CHAR;

NILAI:INTEGER;

FUNCTION CSTR(I: INTEGER): STRING;

VAR S: STRING[11];

BEGIN

GOTOXY(30,1); WRITE('WELCOME IN MAGIC NUMBER'); STR(I, S); CSTR := S; END;

PROCEDURE TULIS(POSISI:INTEGER; TEKS:STRING);

VAR A, B, C: INTEGER;

BEGIN

A := POSISI; B := POSISI MOD 10; C := 1;

IF B = 0 THEN BEGIN B := 10;C := 0;

END;

GOTOXY(B * 8 - 5, (A DIV 10 + C) * 3 + 1); WRITE(TEKS);

END;

PROCEDURE BIKIN_KOTAK(KOLOM, BARIS: INTEGER);

BEGIN

CLRSCR;

FOR I:= 1 TO KOLOM DO BEGIN FOR J := 1 TO BARIS DO BEGIN

GOTOXY (J * 8 - 7, (I * 3)); WRITE('____');

GOTOXY (J * 8 - 7, (I * 3 + 1)); WRITE('|        |');

GOTOXY (J * 8 - 7, (I * 3 + 2)); WRITE('____');

END;

END;

END;

PROCEDURE WIZARD7;

BEGIN

CLRSCR;

WRITELN('ANGKA YANG ANDA PILIH = ', NILAI);

WRITELN;

WRITE('INGIN MENGULANG (Y/ESC.)? ');READKEY; YT := READKEY;

END;

PROCEDURE WIZARD6;

BEGIN

BIKIN_KOTAK(2, 10);

FOR I := 1 TO 19 DO TULIS(I, CSTR(I + 31));

GOTOXY (5, 15); WRITE('APAKAH ANGKA YANG ANDA PILIH', ' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT YT := READKEY; UNTIL YT IN ['y', 'Y', 't', 'T', #27];

IF UPCASE(YT) = 'Y' THEN NILAI := NILAI + 32; WIZARD7; {===============================}

END;

PROCEDURE WIZARD5;

BEGIN

BIKIN_KOTAK(2, 10);

FOR I := 1 TO 16 DO TULIS(I, CSTR(I + 15));

  FOR J := 17 TO 19 DO TULIS (J, CSTR(J + 31));

  GOTOXY (5, 15); WRITE('APAKAH ANGKA YANG ANDA PILIH', ' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT YT := READKEY; UNTIL YT IN ['y', 'Y', 't', 'T', #27]; {===============================}

IF UPCASE(YT) = 'Y' THEN NILAI := NILAI + 16; WIZARD6;

END;

PROCEDURE WIZARD4;

BEGIN BIKIN_KOTAK(3, 10);

FOR J := 0 TO 2 DO FOR I := 1 TO 8 DO TULIS(J * 8 + I, CSTR(J * 16 + I + 7));

GOTOXY (5, 15); WRITE('APAKAH ANGKA YANG ANDA PILIH', ' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT YT := READKEY; UNTIL YT IN ['y', 'Y', 't', 'T', #27];

IF UPCASE(YT) = 'Y' THEN NILAI := NILAI + 8; WIZARD5;  {===============================}

END;

PROCEDURE WIZARD3;

BEGIN

BIKIN_KOTAK(3, 10);

FOR J := 0 TO 5 DO FOR I := 1 TO 4 DO TULIS(J * 4 + I, CSTR(J * 8 + I + 3));

GOTOXY (5, 15); WRITE('APAKAH ANGKA YANG ANDA PILIH', ' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT YT := READKEY; UNTIL YT IN ['y', 'Y', 't', 'T'];

IF UPCASE(YT) = 'Y' THEN NILAI := NILAI + 4; WIZARD4; {===============================} END;

PROCEDURE WIZARD2;

BEGIN

BIKIN_KOTAK(3, 10); J:=0;

FOR J := 0 TO 12 DO FOR I := 1 TO 2 DO TULIS(J * 2 + I, CSTR(J * 4 + I + 1));

GOTOXY (5, 15); WRITE('APAKAH ANGKA YANG ANDA PILIH', ' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT YT := READKEY; UNTIL YT IN ['y', 'Y', 't', 'T', #27];

IF UPCASE(YT) = 'Y' THEN NILAI := NILAI + 2; WIZARD3; {===============================} END;

PROCEDURE WIZARD1;

BEGIN

BIKIN_KOTAK(3, 10); L:= 1;

REPEAT TULIS ((L + 1) DIV 2,CSTR(L)); L:= L + 2; UNTIL L > 50;

GOTOXY (5, 15); WRITE('APAKAH ANGKA YANG ANDA PILIH', ' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT YT := READKEY; UNTIL YT IN ['y', 'Y', 't', 'T', #27];

IF UPCASE(YT) = 'Y' THEN NILAI := 1; WIZARD2; {===============================}

END;

PROCEDURE TULIS_NOMOR;

BEGIN BIKIN_KOTAK(5, 10);

FOR K:= 1 TO 50 DO TULIS(K, CSTR(K));

GOTOXY(1, 20); WRITE ('PILIH SEBUAH ANGKA, ', 'TEKAN: Y, KALO MAU TERUS! '); WRITE ('TEKAN ESC UNTUK KELUAR ');

REPEAT YT := READKEY; IF UPCASE(YT) = 'Y' THEN

BEGIN

NILAI := 0; WIZARD1;

END;

UNTIL YT IN ['y', 'Y', 't', 'T', #27]; {===============================}

END;

(* Program Utama *)

BEGIN

CLRSCR;

TEXTATTR := $1F; REPEAT TULIS_NOMOR; UNTIL YT = #27;

END.

Semoga penjelasan diatas bermanfaat, silahkan tuliskan komentarnya jika dirasa ada yang salah, kurang jelas atau sebagainya.

Kita disini sama-sama belajar

Seperti salah satu moto di blog ini “Dari newbie, oleh newbie, untuk newbie”

Baca Juga
Program Reservasi Hotel
Program Menu Makanan

Read More

Contoh Program C++ ATM Bank

Contoh Program C++ ATM Bank

Selamat datang Coding Maniak, sudah kah anda ngoding hari ini ??

Kali ini saya akan membagikan tutorial contoh program C++ ATM bank, dalam program ini kita akan menggunakan algoritma pemilihan switch case dan if, program ini memiliki beberapa fitur seperti :

- Mendaftar sebagai nasabah

- Menabung

- Penarikan

- Cek saldo

Berikut ini adalah gambarannya

Seperti yang terlihat diatas yang pertama adalah file librarynya seperti iostream, conio dan kawan-kawan, lalu dibawahnya ada nama variabel beserta tipe datanya (nama variabelnya bisa diganti kalau mau) lalu ada tampilan ala-ala main menu (bagian ini juga bisa di kreasikan sesuka hati)

Lanjut untuk fitur yang pertama yaitu mendaftar nasabah, dalam fitur ini kita akan memasukan nama, alamat dan jumlah nominal saldo yang akan disimpan, disini saya mengatur minimal saldo 100.000. jika saldo yang dimasukan kurang dari 100.000 maka akan muncul tampilan

“Maaf Nominal Yang Anda Inputkan Tidak Memenuhi Syarat’

“Transaksi Lainnya (Y/T)”

fitur yang kedua yaitu menabung, jika user belum melakukan pendaftaran di fungsi pertama maka secara otomatis ditolak, tapi jika sudah maka tinggal masukan saldo yang akan disimpan.

Fitur yang ketiga yaitu penarikan, kurang lebih sama dengan fitur menabung diatas jadi tidak perlu dijelaskan lagi.

Dan fitur yang terakhir Cek saldo

Untuk yang belum tahu

System(“cls”)  = berfungsi untuk membersihkan layar

Goto awal/akhir = berfungsi untuk “melompat” ke perintah yang telah ditandai  awal : / akhir :

Dibawah ini adalah source code lengkapnya, saya pribadi sih lebih menyarankan menulis manual codingnya, supaya lebih terbiasa.

Tapi kembali  lagi itu terserah anda.

#include <iostream>

#include <conio.h>

#include <stdlib.h>

#include <ctype.h>

#include <stdio.h>

using namespace std;

main()

{

                int saldo;

                long int nom_tabung, nom_ambil, pin, pilih_menu;

                string nama, alamat;

                char iya;

               

                awal:

                system("cls");

                cout<<"============================================================="<<endl;

                cout<<"|            Selamat Datang Di Bank Mad Arief               |"<<endl;

                cout<<"|===========================================================|"<<endl;

                cout<<"|Silahkan Pilih Menu Di Bawah Ini Untuk Melakukan Transaksi |"<<endl;

                cout<<"|===========================================================|"<<endl;

                cout<<"|1. Tekan (1) Mendaftarkan Diri Sebagai Nasabah             |"<<endl;

                cout<<"|2. Tekan (2) Menabung                                      |"<<endl;

                cout<<"|3. Tekan (3) Melakukan Penarikan                           |"<<endl;

                cout<<"|4. Tekan (4) Cek Saldo                                     |"<<endl;

                cout<<"============================================================="<<endl;

                cout<<" Masukan Pilihan Anda : "; cin>>pilih_menu;

                switch(pilih_menu)

                {

 case 1:

                {

                                 system("cls");                                   cout<<"============================================================="<<endl;

                cout<<"|      Mendaftarkan Diri Sebagai Nasabah Bank Mad Arief     |"<<endl;

                cout<<"============================================================="<<endl;

                cout<<" Saldo Awal Minimal Rp.100.000,00"<<endl;

                cout<<" Masukan Nama Anda   : "; cin>>nama;

                cout<<" Masukan Alamat Anda : "; cin>>alamat;

                cout<<" Input Nominal       : "; cin>>saldo;

                                if (saldo>100000)

                                {                                                              cout<<"============================================================="<<endl;

                cout<<"|                     Bank Mad Arief                        |"<<endl;

                cout<<"============================================================="<<endl;

                cout<<"  "<<nama<<endl;

                cout<<"  "<<alamat<<endl;

                cout<<"  Saldo Rekening Anda Rp."<<saldo<<endl;;

                cout<<"============================================================="<<endl;

                cout<<endl;

                cout<<"Transaksi Lainnya (Y/T)"; cin>>iya;

                                                if(iya=='Y'||'y')

                                                {

                                                 goto awal;

                                                }

                                                else if(iya=='T'||'t')

                                                {

                                                 goto akhir;

                                                }             

                                                }

                                else

                                {

                                cout<<" Maaf Nominal Yang Anda Inputkan Tidak Memenuhi Syarat"<<endl;

                                cout<<" Transaksi Lainnya (Y/T)"; cin>>iya;

                                                if(iya=='Y'||'y')

                                                {

                                                goto awal;

                                                }

                                                else if(iya=='T'||'t')

                                                {

                                                goto akhir;

                                                }

                                }

                                break;

                }

                case 2:

                 {

                system("cls");                                                    cout<<"============================================================="<<endl;

                cout<<"                         Menabung                            "<<endl;

                cout<<"============================================================="<<endl;

                                if(saldo<100000)

                                {

                                cout<<" Maaf Anda Belum Terdaftar Di Bank Mad Arief"<<endl;

                                cout<<endl;

                                cout<<" Transaksi Lainnya (Y/T)"; cin>>iya;

                                                if(iya=='Y'||'y')

                                                {

                                                goto awal;

                                                }

                                                else if(iya=='T'||'t')

                                                {

                                                goto akhir;

                                                }

                                }

                                else

                                {

                                cout<<" Masukan Nominal Yang Akan Anda Simpan : Rp."; cin>>nom_tabung;

                                saldo=saldo+nom_tabung;

                                cout<<endl;

                                cout<<" Saldo Rekening Anda Sekarang Adalah   : Rp."<<saldo<<endl;;

                                cout<<" Transaksi Lainnya (Y/T)"; cin>>iya;

                                                if(iya=='Y'||'y')

                                                {

                                                goto awal;

                                                }

                                                else if(iya=='T'|'t')

                                                {

                                                goto akhir;

                                                }

                                }

                                break;

                }

                case 3:

                {

                system("cls");

                cout<<"============================================================="<<endl;

                cout<<"                         Penarikan                           "<<endl;

                cout<<"============================================================="<<endl;

                                if(saldo<100000)

                                {

                                cout<<" Maaf Anda Belum Terdaftar Di Bank Mad Arief"<<endl;

                                cout<<endl;

                                cout<<" Transaksi Lainnya (Y/T)"; cin>>iya;

                                                if(iya=='Y' || 'y')

                                                {

                                                goto awal;

                                                }

                                                else if(iya=='T'||'t')

                                                {

                                                goto akhir;

                                                }

                                }

                                else

                                {

                                cout<<" Masukan Nominal Yang Akan Anda Ambil   : Rp."; cin>>nom_ambil;

                                saldo=saldo-nom_ambil;

                                cout<<" Saldo Rekening Anda Sekarang Adalah    : Rp."<<saldo<<endl;

                                cout<<" Transaksi Lainnya (Y/T)"; cin>>iya;

                                                if(iya=='Y'||'y')

                                                {

                                                goto awal;

                                                }

                                                else if(iya=='T'||'t')

                                                {

                                                goto akhir;

                                                }

                                }

                                break;

                }

                case 4:

                {

                system("cls");                    cout<<"============================================================="<<endl;

                cout<<"                         Cek Saldo                           "<<endl;

                cout<<"============================================================="<<endl;

                cout<<" Saldo Rekening Anda Saat Ini Adalah : Rp."<<saldo<<endl;

                cout<<endl;

                                cout<<" Transaksi Lainnya (Y/T)"; cin>>iya;

                                                if(iya=='Y' || 'y')

                                                {

                                                goto awal;

                                                }

                                                else if(iya=='T'||'t')

                                                {

                                                goto awal;

                                                }

                                break;

                  }

                   default: cout<<" Exit"<<endl;

}

akhir: cout<<" Keluar"<<endl;

return 0;

}

Dan ini adalah screenshot ketika program dijalankan.

    

Semoga penjelasan diatas bermanfaat, silahkan tuliskan komentarnya jika dirasa ada yang salah, kurang jelas atau sebagainya.

Kita disini sama-sama belajar

Seperti salah satu moto di blog ini “Dari newbie, oleh newbie, untuk newbie”

Read More