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:
Posting Komentar