Selasa, 30 April 2013

Program Switch Case (Pilihan Menu Makanan) dengan Bahasa C / C++

#include<stdio.h>
main()
{
 int a;
 printf("pilihan menu :\n");
 printf("1. Baso\n");
 printf("2. Mie Ayam\n");
 printf("3. Teh Botol\n");
 printf("pilih menu :\n");
 scanf("%i",&a);

 switch(a){
     case 1:
        puts ("Anda pilih Baso");
        break;
    case 2:
        puts ("Anda pilih Mie Ayam");
        break;
    case 3:
        puts ("Anda pilih Teh Botol");
        break;
    default:
    puts("anda memilih diluar pilihan");
    break;
    }
}

Senin, 29 April 2013

Program Biaya Panggilan dengan Java

#include <stdlib.h>
#include <stdio.h>

int main()
{
    int jamA, menitA, jamB, menitB, detikA, detikB, detik, waktuA, waktuB, biaya;
    printf("WAKTU PANGGILAN AWAL \n ");
    printf("masukan waktu memulai panggilan(jam) :",jamA);
    scanf("%i",&jamA);
    printf("masukan waktu memulai panggilan(menit) :",menitA);
    scanf("%i",&menitA);
    printf("masukan waktu memulai panggilan(detik) :",detikA);
    scanf("%i",&detikA);
    printf("\n");
    
    printf("WAKTU PANGGILAN AKHIR \n ");
    printf("masukan waktu mengakhiri panggilan(jam) :",jamB);
    scanf("%i",&jamB);
    printf("masukan waktu mengakhiri panggilan(menit) :",menitB);
    scanf("%i",&menitB);
    printf("masukan waktu mengakhiri panggilan(detik) :",detikB);
    scanf("%i",&detikB);
    printf("\n");
    
    waktuA= (jamA*3600)+(menitA*60)+ detikA;
    waktuB= (jamB*3600)+(menitB*60)+ detikB;
    
    detik = waktuB-waktuA;
    biaya = (detik/30)*700;
    printf("Lama waktu bicara anda adalah %d jam %d menit %d detik \n",(jamB-jamA),(menitB-menitA),(detikB-detikA));
    printf("jadi biaya yang harus dikeluarkan adalah :%i  \n",biaya);
    
    system("pause");
    return 0;
    
}

Program Kalkulator dengan Java

#include<stdio.h>
#include<string.h>
int main(){

char menu [3];
int pertama, kedua, hasil;

printf("=========================================\n");
printf("Selamat Datang di Program Kalkulator Saya\n");
printf("=========================================\n\n");
printf("=============================\n");
printf("Nama \t: Raka Dwi Aprian\n");
printf("NIM \t: 1205990\n");
printf("=============================\n\n");
printf("Mulai Menjalankan Kalkulator\n");

menu:
 printf("====================\n");
 printf(" +. Pertambahan\n");
 printf(" -. Pengurangan\n");
 printf(" *. Perkalian\n");
 printf(" /. Pembagian\n");
 printf(" ^. Pemangkatan\n");
 printf(" #. Exit \n");
 printf("====================\n");
 printf("-------------->>> Silakan input pilihan anda \t ?");
 scanf("%s",menu);
  
            
  if (strcmp(menu,"+")==0)
     {
      system("cls");
      printf("Pertambahan ( + ) \n");
      printf ("Input angka Pertama\t:");
      scanf ("%d",&pertama);
      printf ("\n");
      printf ("Input angka kedua\t:");
      scanf ("%d",&kedua);
      printf("   . . Loading . .\n");
      hasil=pertama+kedua;
      system ("pause");
      printf ("\n");
      printf ("Jadi Hasil Penghitunganya adalah : %d+%d= %d\n", pertama, kedua, hasil);
     }
  if (strcmp(menu,"-")==0)
     {
      system("cls");
      printf("Pengurangan ( - ) \n");
      printf ("Input angka Pertama\t:");
      scanf ("%d",&pertama);
      printf ("\n");
      printf ("Input angka kedua\t:");
      scanf ("%d",&kedua);
      printf("   . . Loading . .\n");
      hasil=pertama-kedua;
      system ("pause");
      printf ("\n");
      printf ("Jadi Hasil Penghitunganya adalah : %d-%d= %d\n", pertama, kedua, hasil);  
     }
  
   if (strcmp(menu,"*")==0)
     {
      system("cls");
      printf("Perkalian ( * ) \n");
      printf ("Input angka Pertama\t:");
      scanf ("%d",&pertama);
      printf ("\n");
      printf ("Input angka kedua\t:");
      scanf ("%d",&kedua);
      printf("   . . Loading . .\n");
      hasil=pertama*kedua;
      system ("pause");
      printf ("\n");
      printf ("Jadi Hasil Penghitunganya adalah : %d*%d= %d\n", pertama, kedua, hasil);
     }
  
   if (strcmp(menu,"/")==0)
     {
       system("cls");
      printf("Pembagian ( / ) \n");
      printf ("Input angka Pertama\t:");
      scanf ("%d",&pertama);
      printf ("\n");
      printf ("Input angka kedua\t:");
      scanf ("%d",&kedua);
      printf("   . . Loading . .\n");
      hasil=pertama/kedua;
      system ("pause");
      printf ("\n");
      printf ("Jadi Hasil Penghitunganya adalah : %d/%d= %d\n", pertama, kedua, hasil); 
     } 
   if (strcmp(menu,"^")==0)
     {
      system("cls");
      printf("Pemangkatan ( ^ ) \n");
      printf ("Input angka Pertama\t:");
      scanf ("%d",&pertama);
      printf ("\n");
      printf ("Input angka kedua\t:");
      scanf ("%d",&kedua);
      printf("   . . Loading . .\n");
      hasil= pow(pertama,kedua);
      system ("pause");
      printf ("\n");
      printf ("Jadi Hasil Penghitunganya adalah : (%d^%d)= %d\n", pertama, kedua,                 hasil); 
     } 
    if (strcmp(menu,"#")==0)
     {
      return 0;
     }
    system("pause");
    system("cls");
    goto menu;
}

Sabtu, 27 April 2013

Syntax dari Statement Perulangan

·         STATEMENT
ini digunakan untuk menjalankan satu atau beberapa statement sebanyak beberapa kali. Dengan kata lain, perulangan memungkinkan  untuk menjalankan beberapa statement hanya dengan menuliskan statement tersebut satu kali. Pada bahasa Pascal dikenal 3 jenis repetitive statement,yaitu:
a.    for statement
digunakan untuk mengulang dengan ketentuan yan telah diketahui/ditentukan.
syntax:
            For var:=nilai_awal  to nilai_akhir  do statement;
atau
            For var:=nilai_awal to nilai_akhir do statement;
contoh:
For a:= 1 to 10 do
writeln(‘turbo pascal 7.0’);

b.    while statement
digunakan untuk mengulang suatu statement yang belum diketahui secara pasit berapa banyak pengulangannya dan berakhir pada suatu kondisi yang telah ditentukan.
syntax:
            while kondisi  do
            statement;
contoh:
            while (x>0) do
            begin
            x:=x-1;
            y:=y-1;
end;

c.    Repeat until statement
Statement ini hampir sama dengan statement while, perbedaannya terletak pada pengecekan kondisi.Jika pada statement while, kondisi dicek pada awal kalang, sedangkan statement repeat until,kondisi  dicek pada akhir kalang.
syntax:
            repeat;
            statement;
            until kondisi;
contoh:
            repeat
            x:=x-1;
            y:=y-1;
            until(x<=0);
contoh program:
Program Repeat_Until;
uses crt:
Begin
Repeat
Writeln(‘Press Any Key to Stop’)
Until KeyPressed;
end.    

Program Menghitung Hasil Perkalian Matrik dengan Bahasa Pascal


program perkalian_matrix;
var
a,n: integer;
a: array [1..2,1..3] of integer;
b: array [1..3,1..2] of integer;
begin
writeln('program menghitungperkalianmatrik');
writeln();
for a:=1 to 3 do
for n:=1 to 2 do
begin
write('masukkannilaimatrik a[',a,',',n,']=');
readln(a[a,n]);
end;
writeln('matriks a');
for a:=1 to 3 do
begin
write('|');
for n:=1 to 2 do
write(a[a,n]:5);
write('|');
writeln;
end;
for a:=1 to 2 do
for n:=1 to 3 do
begin
write('masukkannilaimatrik b[',a,',',n,']=');
readln(b[a,n]);
end;
writeln;
writeln('matriks b');
for a:=1 to 2 do
begin
write('|');
for n:=1 to 3 do
write(b[a,n]:5);
write('|');
writeln;
end;
writeln('makahasildarimatrik a*b=');
for a:=1 to 3 do
begin
write('|');
for n:=1 to 3 do
write(a[a,n]+b[a,n]:5);
write('|');
writeln;
end;
      end.

Program Menghitung Bilangan Fibonacci dengan Bahasa Pascal

program bilangan;
var
a:integer;
begin
n:=1;
while a<23 do
begin
writeln(a);
a:=a+a;
end;
end.

Program Menghitung Luas Persegi Panjang Bahasa Pascal

procedure luas (p,l:integer);
var
Luas:integer;
begin
Luas:= p*l;
writeln('Luaspersegipanjang = ',luas)
end;
var
a,n:integer;
begin
write('masukannilaipanjang = ');readln(a);
write('masukannilailebar = ');readln(n);
luas(a,n);
end.

Program Menghitung Luas Lingkaran dengan Bahasa Pascal

procedure luas (r:integer);
var
Luas:integer;
begin
Luas:= 3.14*r*r;
writeln('Luaslingkaran = ',luas)
end;
var
jari:integer;
begin
write('masukanjari-jarilingkaran = ');readln(jari);
luas(jari);
end.

Program Menghitung Luas Persegi dengan Bahasa Pascal

Studi Kasus :
Menghitung Luas Persegi

Jawaban :
procedure luas (sisi:integer);

var
Luas:integer;
begin
Luas:= sisi*sisi;
writeln('Luaspersegi = ',luas)
end;
var
a:integer;
begin
write('masukannilaisisi= ');readln(a);
luas(a);
end.

Rabu, 24 April 2013

Program Paket Nasi dengan Java

#include <stdlib.h>
#include <stdio.h>

int main ()
{
    int menu, nasi=3000, ayam_bakar=7000, tahu=1000, tempe=1000, lalap=2000,
    air_mineral=3000, sayur_asem=2000, gepuk=5000, air_hangat=1000,jumlah_pesanan,total,pajak,total_akhir;
 
    printf("=========Selamat datang di Raka's Resto========== \n\n");
    printf("PAKET MAKANAN \n");
    printf("=============\n");
    printf("Paket 1 \n");
    printf("Paket 2 \n");
    printf("Paket 3 \n");
    printf("Silakan pilih paket menu yang ada :");
    scanf("%d",&menu);
    printf("Banyaknya pesanan :");
    scanf("%d",&jumlah_pesanan);
    printf("\n");
 
    switch (menu){
           case 1 :
                printf("Paket 1 \n");
                printf("Nasi :%d",nasi);
                printf("\nAyam Bakar :%d",ayam_bakar);
                printf("\nTahu  :%d",tahu);
                printf("\nTempe :%d",tempe);
                printf("\nLalapan :%d",lalap);
                printf("\nAir Mineral :%d",air_mineral);
                printf("\nJumlah pesanan :%d paket",jumlah_pesanan);
                total=(nasi+ayam_bakar+tahu+tempe+lalap+air_mineral)*jumlah_pesanan;
                pajak=(total)*10/100;
                total_akhir=total+pajak;
                printf("\n");
                printf("\nTotal, paket 1 * %d :%d",jumlah_pesanan,total);
                printf("\nPajak 10 persen : %d",pajak);
                printf("\nJadi, total yang harus anda bayar :%d",total_akhir);
                printf("\n");
           break;
            case 2 :
                printf("Paket 2 \n");
                printf("Nasi :%d",nasi);
                printf("\nAyam Bakar :%d",ayam_bakar);
                printf("\nSayur Asem :%d",sayur_asem);
                printf("\nTahu :%d",tahu);
                printf("\nTempe :%d",tempe);
                printf("\nLalapan :%d",lalap);
                printf("\nAir Mineral :%d",air_mineral);
                printf("\nJumlah pesanan :%d paket",jumlah_pesanan);
                total=(nasi+ayam_bakar+sayur_asem+tahu+tempe+lalap+air_mineral)*jumlah_pesanan;
                pajak=(total)*10/100;
                total_akhir=total+pajak;
                printf("\n");
                printf("\nTotal, paket 2 * %d :%d",jumlah_pesanan,total);
                printf("\nPajak 10 persen : %d",pajak);
                printf("\nJadi, total yang harus anda bayar :%d",total_akhir);
                printf("\n");
           break;
            case 3 :
                printf("Paket 1 \n");
                printf("Nasi :%d",nasi);
                printf("\nGepuk :%d",gepuk);
                printf("\nTahu :%d",tahu);
                printf("\nTempe :%d",tempe);
                printf("\nLalapan :%d",lalap);
                printf("\nAir Hangat :%d",air_hangat);
                printf("\nJumlah pesanan :%d paket",jumlah_pesanan);
                total=(nasi+gepuk+tahu+tempe+lalap+air_hangat)*jumlah_pesanan;
                pajak=(total)*10/100;
                total_akhir=total+pajak;
                printf("\n");
                printf("\nTotal, paket 2 * %d :%d",jumlah_pesanan,total);
                printf("\nPajak 10 persen : %d",pajak);
                printf("\nJadi, total yang harus anda bayar :%d",total_akhir);
                printf("\n");
           break;
           default:
                   printf("Maaf, Paket yang anda pilih tidak ada didalam menu..!! Silahkan Coba lagi :)\n");
                   }
           system("pause");
           return 0;
}

ACCESS INFORMATION



Buka Semua | Tutup Semua

Sedang Perbaikan
Sedang Perbaikan
Silakan kirim pesan dan saran Anda,

Ahmad Sachowi Amin

Selamat Datang di Blog Saya, cybermatika.net.
Hobi saya adalah Belajar dan Belajar, entah yang penting bermanfaat untuk orang lain.Sharing adalah jalan saya, sharing dengan siapa saja yang penting memberi manfaat bagi saya.Ilmu adalah Cara saya, cara saya untuk belajar dan sharing tentang banyak hal.