Program Dasar Struktur Percabangan C++ pemakaian SWITCH - CASE

Bismillahirrahmaanirrahiim :)

Saya akan sedikit men sharing hasil coding pembelajaran mengenai pemrograman dasar bahasa C++
berikut contoh program dasar pemakaian struktur percabangan dengan menggunakan metode switch - case

Berikut list coding programnya :


#include
#include
void main()
{
int pil;
   char pilihan;
   cobalagi:
   cout<<"==================="<   cout<<"1.HARI SENIN"<   cout<<"2.HARI SELASA"<   cout<<"2.HARI RABU"<   cout<<"2.HARI KAMIS"<   cout<<"2.HARI JUMAT"<   cout<<"2.HARI SABTU"<   cout<<"2.HARI MINGGU"<   cout<<"==================="<   cout<   cout<<"MASUKKAN PILIHAN ANDA (1..7) : ";
   cin>>pil;

   switch (pil)
   {
case 1 : cout<<"1. --> HARI SENIN"<   break;
   case 2 : cout<<"2. --> HARI SELASA"<   break;
   case 3 : cout<<"3. --> HARI RABU"<   break;
   case 4 : cout<<"4. --> HARI KAMIS"<   break;
   case 5 : cout<<"5. --> HARI JUMAT"<   break;
   case 6 : cout<<"6. --> HARI SABTU"<   break;
   case 7 : cout<<"7. --> HARI MINGGU"<   break;
   default : cout<<"MAAF,HARI YANG ANDA MASUKKAN SALAH"<   }
   cout<   cout<<" INGIN ULANGI LAGI [Y/T] ? ";
   cin>>pilihan;
   clrscr();
   if (pilihan=='Y'||pilihan=='y')
   goto cobalagi;
   else cout<<"TERIMA KASIH";
getch();
}


Semoga bermanfaat dan barokah dalam mencari ilmu aamiin

program pascal deklarasi data

program masing_masing_deklarasi_data;
uses wincrt;
var a,b,c:string;
    x,y,rumusnya:integer;
    r,s,t,hasilnya:real;
    senang:char;
begin
clrscr;
writeln ('identitas ku');
writeln ('nama saya:');readln (a);
writeln ('alamat saya:');readln (b);
c:=a+b ;
writeln ('jadi identitasqu adalah',c);
writeln;
writeln ('penjumlahan');
writeln ('masukkan angka= ');readln (x);
writeln ('ditambah dengan= ');readln (y);
rumusnya:=x+y;                                                               
writeln ('hasilnya adalah= ',rumusnya:0);
writeln;
writeln ('perkalian');
writeln ('masukkan angka=');readln (r);
writeln ('masukkan angka=');readln (s);
t:=r*s;
writeln ('hasilnya real=',t:0:2);

writeln;                                      
writeln ('perasaan');
writeln ('jika mendapat nilai A akan merasa=');readln (senang);
writeln ('aku merasa senang=');
writeln (',,,,,,,,,,,,,mator sakalangkong,,,,,,,,,,,,,,,');
write;
end.

program pascal mencari bilangan kelipatan 5

program kelipatan_5;
Uses wincrt;

var
x,y:longint;

begin
    clrscr;
    write('Berapa kelipatan 5 yang ingin ditampilkan = ');
    readln(x);
    writeln('============================================================================');
    write('Hasil dari ',x,' kelipatan 5  = ');
    for x:=1 to x do
        begin
             y :=5*x;
         write(y,' ');
        end;
end.