Minggu, 10 Februari 2013

Membuat Program Sederhana Pascal dan C++ (Array, Prosedure, Fungsi, String)


Membuat program sederhana menggunakan Bahasa Pascal dan Bahasa C++

1.     Program Sederhana Menggunakan  Bahasa Pascal
Listing Program
a.     Array
program Array2dimensi;
uses crt;
var
        n,i,j:integer;
        data:array[1..5,1..5] of integer;
begin
        clrscr;
        write('Masukkan jumlah kolom/baris (maks 5) : ');
        readln(n);
        {mengisi data ke array}
        writeln('memasukkan data ke array');
        for i:=1 to n do
                for j:=1 to n do
                        begin
                                write('data ke ',i,',',j,':');
                                readln(data[i][j]);
                        end;
        writeln;
        writeln('Menampilkan isi array');
        {menampilkan isi array}
        for i:=1 to n do
                begin
                        for j:=1 to n do
                                write(data[i][j]:4);
                                writeln;
                                writeln;
                end;
        readln;
end.
b.    String
program Penghitungan_gaji;
uses crt;
var gp,gb,pjk,js,tis,ta,tjb:real;
nik:string[10];
nk:string[27];
sts:string[9];
jb:string[15];
ja:byte;
begin
        clrscr;
        writeln('=======================');
        writeln('Status : ');
        writeln('menikah/belum menikah');
        writeln('=======================');
        writeln('Jabatan : ');
        writeln('manager/supervisor/mandor/karyawan');
        writeln('====================================');
        write('nomor induk karyawan:');
        readln(nik);
        write('nama karyawan:');
        readln(nk);
        write('status:');
        readln(sts);
        write('jumlah anak:');
        readln(ja);
        write('jabatan:');
        readln(jb);
        write('gaji pokok:');
        readln(gp);
        if sts='menikah' then
                begin
                tis:=0.1*gp;
                end
        else
                begin
                tis:=0;
                end;
        if ja<=3 then
                begin
                ta:=0.05*gp*ja;
                end
        else if ja>3 then
                begin
                ta:=0.05*gp*3;
                end
        else
                begin
                ta:=0;
                end;
        if jb='manager' then
                begin
                tjb:=2000000;
                end
        else if jb='supervisor' then
                begin
                tjb:=1500000;
                end
        else if jb='mandor' then
                begin
                tjb:=1000000;
                end
        else
                begin
                tjb:=0;
                end;
        pjk:=0.025*gp;
        js:=0.01*gp;
        gb:=(gp+tis+ta+tjb)-(pjk+js);
        writeln('tunjangan istri :',tis:3:2);
        writeln('tunjangan anak :',ta:3:2);
        writeln('tunjangan jabatan :',tjb:3:2);
        writeln('pajak :',pjk:3:2);
        writeln('jamsostek :',js:3:2);
        writeln('gaji bersih :',gb:3:2);
        readkey;
end.
c.      Prosedure / Procedure
program Praktikkum_Prosedure;
uses crt;
Procedure Persegi;
   var
                            sisi:integer;
                luas,keliling:real;
        begin
                write('masukkan sisi :');
                readln(sisi);
                luas:=sisi*sisi;
                keliling:=sisi*4;
                writeln('Luas Persegi adalah : ',luas:0:0);
                writeln('Keliling Persegi adalah :',keliling:0:0);
        end;
       begin
            clrscr;
            writeln('Program menghitung luas dan keliling Persegi');
            persegi;
            readln;
       end.
d.    Fungsi/Function
program fungsi;
uses crt;
var
hasil:integer;
a,b,c:integer;
function TotalPesananBarang(a:integer;b:integer;c:integer):integer;
var
hasil:integer;
begin
        clrscr;
        hasil:=a+b+c;
        TotalPesananBarang:=hasil;
end;
begin
a:= 20;
b:= 23;
c:= 34;
hasil:= TotalPesananBarang(a,b,c);
writeln('Total Pesanan Barang :',hasil);
writeln('===================================');
writeln('Terima Kasih Telah Memesan Barang');
writeln('===================================');
readkey;
end.

Output  Program
a.     Array 
   
b.    String 

c.      Procedure/Prosedure 

d.    Fungsi/Function



2.     Program Sederhana  Menggunakan  Bahasa C++
Listing Program
a.     Array
#include <iostream.h>
int a[5]={6,7,8,9,10},jumlah=5;
void input(int data,int i) {
a[i] = data;
}
void tampil(int nElemen) {
for(int i=0; i<nElemen; i++)
cout << a[i] << " ";
cout << endl;
}
void main() {
int data;
cout << "Belum ada perubahan data array" << endl;
tampil(jumlah);
for(int i=0; i<jumlah; i++){
cout << "a[" << i << "] = ";
cin >> data;
input(data,i);
}
cout << "Setelah ada perubahan data array" << endl;
tampil(jumlah);
}
b.    String
#include<stdio.h>
#define MAKS 256
main()
{
            int i, jumkar=0;
            char teks[MAKS];
            puts("Masukkan suatu kalimat (Maksimal 255 karakter).");
            puts("Saya Akan Menghitung Jumlah Karakternya. \n");
            fgets(teks, sizeof teks, stdin); //masukkan dari keyboard
            for (i=0; teks[i];i++)
                        jumkar++;
            printf("\nJumlah Karakter=%d\n",jumkar);
}
c.      Prosedure/Procedure
//Penjualan
#include<conio.h>
#include<iostream.h>
void
penjualan(float a,float b,float c)
{
clrscr();
float total,temp;
temp=b*c;
total=temp-(a*temp);
cout<<"Harga Kotor Barang :"<<temp<<endl;
cout<<"Harga Bersih Barang :"<<total<<endl;
}

// program utama
void main()
{
float diskon,harga,jumlah;
float total, temp;
cout<<"PROGRAM HITUNG HARGA BARANG"<<endl;
cout<<"=============================="<<endl<<endl;
cout<<"Masukkan harga barang :";
cin>>harga;
cout<<"Masukkan jumlah barang :";
cin>>jumlah;
cout<<"Masukkan Diskon barang :";
cin>>diskon;
cout<<"\n";
penjualan(diskon,harga,jumlah);
getch();
}
d.    Fungsi/Function
#include<stdio.h>
int hasilpenjumlahan(int a,int b, int c){
int hasil;
hasil=a+b+c;
return hasil;
}

int main()
{
int a;
int b;
int c;
int hasil;
a=4;
b=5;
c=6;

hasil=hasilpenjumlahan(a,b,c);
printf("@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\n");
printf("Hasil Penjumlahan adalah : %d\n",hasil);
printf("@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\n");
return 1;
}

Output Program
a.     Array

b.    String

c.      Prosedure/Procedure

d.    Fungsi/Function



Tidak ada komentar:

Poskan Komentar