Lihat Jam

Wahyu Efendi. Diberdayakan oleh Blogger.

My Link

Detik News

Goal.com News - Indonesian

Radar Cirebon Online

Translate

English French German Spain Italian Dutch

Russian Portuguese Japanese Korean Arabic Chinese Simplified
by : BTF

Cari Blog Ini

Memuat...

Contoh-contoh sederhana program pascal

Minggu, 13 Maret 2011
1. Program pengulangan menggunakan while do

Program cetak_kelipatan5;
Uses wincrt;
Var
K:integer;
Begin
K:=5;
While K<50 do
Begin
Writeln(K);
K:=K+5;
End;
End.



Program cetak_genap;
Uses wincrt;
Var
K:integer;
Begin
K:=0;
While K<20 do
Begin
Writeln(K);
K:=K+2;
End;
End.




Program cetak_ganjil;
Uses wincrt;
Var
K:integer;
Begin
K:=1;
While K<10 do
Begin
Writeln(K);
K:=K+2;
End;
End.




Program cetak_angka;
Uses wincrt;
Var
K:integer;
Begin
K:=1;
While K<= 100 do
Begin
Writeln(K);
K:=K+1;
End;
End.


2. Menghitung Rumus Fungsi Matematika

program menghitung_fungsi;
uses wincrt;
const
g=10;
var
fx:real;
x:integer;
Begin
writeln('Program Menghitung Rumus Fungsi');
writeln('===============================');writeln('Masukan Niloai x');readln(x);
fx:=3*x-(1/3*g)+1;
writeln(' jadi nilai f(x) untuk nilai x= ',x);
writeln('adalah = ',fx);
end.




3. menghitung gaji atau upah karyawan

program total_gaji;
uses wincrt;
const
persenTsekolah= 0.15;
persenTkesehatan= 0.1;
gapok= 3000000;
var
tunjangansekolah:real;
tunjangankesehatan:real;
totalgaji:real;
begin
tunjangansekolah:=persenTsekolah*2*gapok;
tunjangankesehatan:=persenTkesehatan*gapok;
totalgaji:=gapok+tunjangansekolah+tunjangankesehatan;
writeln('========================================');
writeln('| Slip Gaji Karyawan PT.Dana Efendi |');
writeln('========================================');
writeln(' Nama Karyawan : Wahyu Efendi ');
writeln(' NIP : 32100453 ');
writeln(' Jabatan : Administrasi ');
writeln(' Gaji Pokok : Rp.3000000 ');
writeln(' Tunjangan Sekolah : Rp.',tunjangansekolah:7:0);
writeln(' Tunjangan Kesehatan : Rp.',tunjangankesehatan:7:0);
writeln(' Total Gaji : Rp.',totalgaji:1:0);
writeln('----------------------------------------');
end.



program upah_yang_diterima_karyawan;
uses wincrt;
const
UN=4000;
UL=5000;
Var
Nama_karyawan : string;
Jmlh_jam_kerja : integer;
upah, lembur : real;
Begin
write('Nama Karyawan = ');readln(Nama_karyawan);
write('Jumlah Jam Kerja = ');readln(Jmlh_jam_kerja);
If Jmlh_jam_kerja = 48 then
upah:=UN * 48
else
lembur:=jmlh_jam_kerja-48;
upah:=(UL * lembur) + (UN * 48);
writeln('Upah Yang Diterima = Rp',upah:7:0);
end.


4. program pemilihan menggunakan if

program Bilangan_terbesar;
uses wincrt;
var
bilangan1,bilangan2:integer;
begin
write('Masukan Bilangan Yang Pertama = ');readln(bilangan1);
write('Masukan Bilangan Yang Kedua = ');readln(bilangan2);
If bilangan1 > bilangan2 then
writeln(bilangan1,' Terbesar')
else
writeln(bilangan2,' Terbesar');
end.


program Bilangan_genap_dan_ganjil;
uses wincrt;
var
bilangan:integer;
begin
write('Masukan Bilangan Yang Anda Pilih = ');readln(bilangan);
If bilangan mod 2 = 0 then
write('Bilangan Genap')
else
write('Bilangan Ganjil');
end.


program Bilangan_besar_dari_sepuluh;
uses wincrt;
var
bilangan:integer;
Begin
write('Masukan Bilangan Yang Anda Pilih = ');readln(bilangan);
if bilangan > 10 Then
write(bilangan);
end.


5. program menghitung suhu

program suhu;
uses wincrt;
var
F : integer;
C, R : Real;
begin
writeln('Masukan Suhu Dalam Fahrenhit');
writeln('============================');
write('Fahrenhit = ');readln(F);
writeln;
C:= (F-32)*5/9;
R:= (F-32)*4/9;
writeln('Hasil Konversi');
writeln('==============');
writeln('Celcius = ',C:2:0);
writeln('Reamur = ',R:2:0);
end.








6. program pengulangan menggunakan repeat until

program cetak_hallo;
uses wincrt;
var
N : integer;
begin
write('Masukan Nilai = ');readln(N);
N := 1;
repeat
writeln('Hallo');
N := N+1;
until
N > 100;
end.




Program cetak_kelipatan5;
Uses wincrt;
Var
K : Integer;
Begin
K :=5;
Repeat
writeln(k);
K:= K+5;
Until k>45;
End.





Program cetak_genap;
Uses wincrt;
Var
K : Integer;
Begin
K :=0;
Repeat
writeln(k);
K:= K+2;
Until k>19;
End.




Program cetak_ganjil;
Uses wincrt;
Var
K : Integer;
Begin
K :=1;
Repeat
writeln(k);
K:= K+2;
Until k>10;
End.




program cetak_angka;
uses wincrt;
var
K : integer;
begin
k := 1;
repeat
writeln(k);
k := k+1;
until
k > 100;
writeln('stop !');
end.




program cetak_angka;
var
K : integer;
begin
k := 1;
repeat
writeln(k);
k := k+1;
until
k > 100;
writeln('stop !');
end.








0 komentar:

Poskan Komentar

banner125125 d'famous_125x125 ads_box ads_box ads_box
 
Ada kesalahan di dalam gadget ini

Indowebster

Indowebster
Download Software

Entri Populer

Followers

Mengenai Saya

Foto Saya
cirebon, jawa barat, Indonesia
saya awalnya orang yg sangat pendiam setelah kehidupan keras yg saya alami saya berangsur menjadi orang yg humoris dgn tujuan menghibur diri sendiri. saya gak peduli dgn omongan orang alias cuek karna bagi saya yg mengetahui saya hanya saya dan TUHAN dan ini hidup saya, ini dunia saya. saya memang orang yg keras kepala yg selalu berbuat menurut apa yg saya rasakan dan ada dalam hati saya tp itu menjadikan satu ciri khat saya.

Gudang Lagu

Gudang Lagu
Download Lagu