Program Menghitung_Gaji_Karyawan;
Uses Wincrt;
Var
Nama_Karyawan:string;
Gaji_Pokok:real;
Jumlah_Anak:longint;
Tunjangan_Istri,Tunjangan_anak,Gaji_Keseluruhan,Pajak,Gaji_Akhir:real;
Begin
Write ('Masukkan Nama Karyawan: ');readln (Nama_Karyawan);
Write ('Masukkan Gaji Pokok=Rp ');readln (Gaji_Pokok);
Write ('Masukkan Jumlah anak= ');readln (Jumlah_Anak);
Tunjangan_Istri:=0.15*Gaji_Pokok;
Tunjangan_Anak:=Jumlah_Anak*0.20*Gaji_Pokok;
Gaji_Keseluruhan:=Gaji_Pokok+Tunjangan_Istri+Tunjangan_Anak;
Pajak:=0.15*Gaji_Keseluruhan;
Gaji_Akhir:=Gaji_Keseluruhan-Pajak;
Writeln ('Tunjangan Istri =Rp ',(Tunjangan_Istri):15:2);
Writeln ('Tunjangan anak =Rp ',(Tunjangan_Anak):15:2);
Writeln ('Gaji Keseluruhan =Rp ',(Gaji_Keseluruhan):15:2);
Writeln ('Pajak =Rp ',(Pajak):15:2);
Writeln ('Gaji Akhir =Rp ',(Gaji_Akhir):15:2);
End.
Selasa, 22 Desember 2009
Program Konversi Suhu
program Konversi_Suhu;
uses
WinCrt;
var a,b : integer;
c:real;
Begin
Write('masukkan suhu dalam celsius '); readln(a);
b:=a+273;
Writeln('suhu dalam kelvin adalah ',b);
c:=(9/5*a)+32;
writeln('suhu dalam fahrenhait adalah ',c:5:3);
end.
uses
WinCrt;
var a,b : integer;
c:real;
Begin
Write('masukkan suhu dalam celsius '); readln(a);
b:=a+273;
Writeln('suhu dalam kelvin adalah ',b);
c:=(9/5*a)+32;
writeln('suhu dalam fahrenhait adalah ',c:5:3);
end.
Program Menghitung Biaya Telp
Program Menghitung_Biaya_Telepon;
Uses Wincrt;
Var
hh1,mm1,ss1,hh2,mm2,ss2,Total_Detik,Biaya_Telepon:longint;
Begin
Writeln ('Waktu mulai telepon:');
Write ('Jam =');read (hh1);
Write ('Menit=');read (mm1);
Write ('Detik=');read (ss1);
Writeln ('Waktu selesai telepon:');
Write ('Jam =');read (hh2);
Write ('Menit=');read (mm2);
Write ('Detik=');read (ss2);
Total_Detik:=(hh2-hh1)*3600+(mm2-mm1)*60+(ss2-ss1);
Biaya_Telepon:=(Total_Detik div 5)*200;
Writeln ('Lama Waktu Telepon dalam Detik adalah ',(Total_Detik), (' detik.'));
Writeln ('Biaya Telepon adalah Rp ',Biaya_Telepon);
End.
Uses Wincrt;
Var
hh1,mm1,ss1,hh2,mm2,ss2,Total_Detik,Biaya_Telepon:longint;
Begin
Writeln ('Waktu mulai telepon:');
Write ('Jam =');read (hh1);
Write ('Menit=');read (mm1);
Write ('Detik=');read (ss1);
Writeln ('Waktu selesai telepon:');
Write ('Jam =');read (hh2);
Write ('Menit=');read (mm2);
Write ('Detik=');read (ss2);
Total_Detik:=(hh2-hh1)*3600+(mm2-mm1)*60+(ss2-ss1);
Biaya_Telepon:=(Total_Detik div 5)*200;
Writeln ('Lama Waktu Telepon dalam Detik adalah ',(Total_Detik), (' detik.'));
Writeln ('Biaya Telepon adalah Rp ',Biaya_Telepon);
End.
Program Koordinat Titik Tengah
Program Menghitung_Koordinat_Titik_Tengah_Dua_Titik;
Uses Wincrt;
Var
x1,y1,x2,y2,x,y:real;
Begin
Write ('Masukkan nilai x1: ');readln (x1);
Write ('Masukkan nilai y1: ');readln (y1);
Write ('Masukkan nilai x2: ');readln (x2);
Write ('Masukkan nilai y2: ');readln (y2);
x:=(1/2)*(x1+x2);
y:=(1/2)*(y1+y2);
Writeln ('Koordinat titik tengah=(x,y)= ',('('),(x):5:2,(','),(y):5:2,(')'));
End.
Uses Wincrt;
Var
x1,y1,x2,y2,x,y:real;
Begin
Write ('Masukkan nilai x1: ');readln (x1);
Write ('Masukkan nilai y1: ');readln (y1);
Write ('Masukkan nilai x2: ');readln (x2);
Write ('Masukkan nilai y2: ');readln (y2);
x:=(1/2)*(x1+x2);
y:=(1/2)*(y1+y2);
Writeln ('Koordinat titik tengah=(x,y)= ',('('),(x):5:2,(','),(y):5:2,(')'));
End.
Program Ukuran Meter
program meter;
uses wincrt;
var a,b,c:real;
begin
write('masukkan dalam milimeter= ');readln(a);
b:=a/10;
c:=a/1000;
write(b:5:2,' centimeter');
write(c:5:2,' meter');
end.
uses wincrt;
var a,b,c:real;
begin
write('masukkan dalam milimeter= ');readln(a);
b:=a/10;
c:=a/1000;
write(b:5:2,' centimeter');
write(c:5:2,' meter');
end.
Program Hari dalam Case_of
program hari;
uses wincrt;
var x:integer;
begin
writeln('1. minggu');
writeln('2. senin');
writeln('3. selasa');
writeln('4. rabu');
writeln('5. kamis');
writeln('6. jumat');
writeln('7. sabtu');
readln(x);
clrscr;
case x of
1: begin
clrscr;
write ('1. minggu');
end;
2: begin
clrscr;
write ('2. senin');
end;
3: begin
write ('3. selasa');
end;
4: begin
write ('4. rabu');
end;
5: begin
write ('5. kamis');
end;
6: begin
write ('6. jumat');
end;
7: begin
write ('7. sabtu');
end;
end;
end.
uses wincrt;
var x:integer;
begin
writeln('1. minggu');
writeln('2. senin');
writeln('3. selasa');
writeln('4. rabu');
writeln('5. kamis');
writeln('6. jumat');
writeln('7. sabtu');
readln(x);
clrscr;
case x of
1: begin
clrscr;
write ('1. minggu');
end;
2: begin
clrscr;
write ('2. senin');
end;
3: begin
write ('3. selasa');
end;
4: begin
write ('4. rabu');
end;
5: begin
write ('5. kamis');
end;
6: begin
write ('6. jumat');
end;
7: begin
write ('7. sabtu');
end;
end;
end.
Program Pengulangan Nama
program nama;
uses wincrt;
var i,x:integer;
begin
i:=1;
write('masukkan bilangan=');readln(x);
repeat
write(i,' ');
writeln('ernipeb');
i:=i+1;
until i>x;
end.
uses wincrt;
var i,x:integer;
begin
i:=1;
write('masukkan bilangan=');readln(x);
repeat
write(i,' ');
writeln('ernipeb');
i:=i+1;
until i>x;
end.
Program Menu Makanan_2
program menu;
uses wincrt;
var
a:integer;
lagi:char;
begin
lagi:='Y';
while lagi = 'Y' do
begin
gotoxy(10,3);write('Menu makanan');
gotoxy(10,5);write('1. Ayam Bakar');
gotoxy(10,6);write('2. Nasi Goreng');
gotoxy(10,7);write('3. Pecel Lele');
gotoxy(10,8);write('4. Roti Bakar');
gotoxy(10,10);write('Menu Pilihan Anda adalah ');
readln(a);
if a=1 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Ayam Bakar');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=2 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Nasi Goreng');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=3 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Pecel Lele');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=4 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Roti Bakar');
gotoxy(10,6);write('Selamat Menikmati');
end;
gotoxy(10,15);write('Mau diulang lagi (Y/T)? ');readln(lagi);
end;
end.
uses wincrt;
var
a:integer;
lagi:char;
begin
lagi:='Y';
while lagi = 'Y' do
begin
gotoxy(10,3);write('Menu makanan');
gotoxy(10,5);write('1. Ayam Bakar');
gotoxy(10,6);write('2. Nasi Goreng');
gotoxy(10,7);write('3. Pecel Lele');
gotoxy(10,8);write('4. Roti Bakar');
gotoxy(10,10);write('Menu Pilihan Anda adalah ');
readln(a);
if a=1 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Ayam Bakar');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=2 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Nasi Goreng');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=3 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Pecel Lele');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=4 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Roti Bakar');
gotoxy(10,6);write('Selamat Menikmati');
end;
gotoxy(10,15);write('Mau diulang lagi (Y/T)? ');readln(lagi);
end;
end.
Program Num
program num_01;
uses wincrt;
var num,total,x:integer;
begin
num:=1;
total:=0;
write('masukkan nilai=');readln(x);
writeln;
repeat
if num
uses wincrt;
var num,total,x:integer;
begin
num:=1;
total:=0;
write('masukkan nilai=');readln(x);
writeln;
repeat
if num
Program Pertambahan Matriks
program penambahan_matriks;
uses wincrt;
type larik=array [1..10,1..10] of integer;
var i,j,k,m,n:integer;
a,b,c:larik;
begin
write('baris matriks pertama/baris matriks kedua = ');readln(m);
write('kolom matriks pertama/kolom matriks kedua = ');readln(n);
clrscr;
writeln('nilai komponen matriks pertama = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(a[i,j]);
end;
writeln;
end;
clrscr;
writeln('nilai komponen matriks kedua = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(b[i,j]);
end;
writeln;
end;
clrscr;
for i:=1 to m do
begin
for j:=1 to n do
begin
for i:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
end;
writeln('hasil penambahan matriks');
writeln;
for i:=1 to m do
begin
for j:=1 to n do
write(c[i,j]:9);
writeln;
end;
end.
uses wincrt;
type larik=array [1..10,1..10] of integer;
var i,j,k,m,n:integer;
a,b,c:larik;
begin
write('baris matriks pertama/baris matriks kedua = ');readln(m);
write('kolom matriks pertama/kolom matriks kedua = ');readln(n);
clrscr;
writeln('nilai komponen matriks pertama = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(a[i,j]);
end;
writeln;
end;
clrscr;
writeln('nilai komponen matriks kedua = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(b[i,j]);
end;
writeln;
end;
clrscr;
for i:=1 to m do
begin
for j:=1 to n do
begin
for i:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
end;
writeln('hasil penambahan matriks');
writeln;
for i:=1 to m do
begin
for j:=1 to n do
write(c[i,j]:9);
writeln;
end;
end.
Program Mencari Akar Persamaan Kuadrat
program deskrimin ;
uses wincrt;
var a,b,c,d,x1,x2,z1,z2 : real;
begin
writeln ('masukkan nilai a : ');readln (a);
writeln ('masukkan nilai b : ');readln (b);
writeln ('masukkan nilai c : ');readln (c);
d:= b*b-4*a*c;
if a=0 then write ('bukan persamaan kuadrat') else
if d=0 then
begin
x1:=-b/2*a;
writeln ('akar-akarnya sama,yaitu x1=x2',x1:2:2);
end else
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a) ;
x2:=(-b-sqrt(d))/(2*a);
writeln ('x1',x1:2:2);
writeln ('x2',x2:2:2);
end else
if d<0 then
begin
writeln('akar-akarnya imajiner');
end;
end.
uses wincrt;
var a,b,c,d,x1,x2,z1,z2 : real;
begin
writeln ('masukkan nilai a : ');readln (a);
writeln ('masukkan nilai b : ');readln (b);
writeln ('masukkan nilai c : ');readln (c);
d:= b*b-4*a*c;
if a=0 then write ('bukan persamaan kuadrat') else
if d=0 then
begin
x1:=-b/2*a;
writeln ('akar-akarnya sama,yaitu x1=x2',x1:2:2);
end else
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a) ;
x2:=(-b-sqrt(d))/(2*a);
writeln ('x1',x1:2:2);
writeln ('x2',x2:2:2);
end else
if d<0 then
begin
writeln('akar-akarnya imajiner');
end;
end.
Program Menghitung Umur
program menghitung_umur;
uses wincrt;
var d1,d2,b1,t1,a,b,c,d,e,f,g:integer;
begin
write('masukkan taggal,bulan,tahun lahir= ');read(d1,b1,t1);
writeln;
write('masukkan jangka waktu dalam hari= ');read(d2);
writeln;
a:=d1+d2;
b:=a div 30;
c:=a mod 30;
d:=b1+b;
e:=d div 12;
f:=d mod 12;
g:=t1+e;
write('tanggal sekarang= ',c,' ',f,' ',g,' ');
end.
uses wincrt;
var d1,d2,b1,t1,a,b,c,d,e,f,g:integer;
begin
write('masukkan taggal,bulan,tahun lahir= ');read(d1,b1,t1);
writeln;
write('masukkan jangka waktu dalam hari= ');read(d2);
writeln;
a:=d1+d2;
b:=a div 30;
c:=a mod 30;
d:=b1+b;
e:=d div 12;
f:=d mod 12;
g:=t1+e;
write('tanggal sekarang= ',c,' ',f,' ',g,' ');
end.
Senin, 21 Desember 2009
Program Terbilang
program terbilang;
uses wincrt;
var a,b,c:integer;
begin
write('masukkan angka= ');read(a);
b:=a div 10;
c:=a mod 10;
writeln;
if b=2 then write('dua') else
if b=3 then write('tiga') else
if b=4 then write('empat') else
if b=5 then write('lima') else
if b=6 then write('enam') else
if b=7 then write('tujuh') else
if b=8 then write('delapan') else
if b=9 then write('sembilan');
if b>1 then write(' puluh ');
if c=2 then write('dua') else
if c=3 then write('tiga') else
if c=4 then write('empat') else
if c=5 then write('lima') else
if c=6 then write('enam') else
if c=7 then write('tujuh') else
if c=8 then write('delapan') else
if c=9 then write('sembilan') else
if (b<>1) and (c=1) then write('satu') else
if c>0 then write(' ');
if c=0 then write('nol') else
if (b=1) and (c=1) then write('sebelas') else
if (b=1) and (c<>1) then write('belas');
end.
uses wincrt;
var a,b,c:integer;
begin
write('masukkan angka= ');read(a);
b:=a div 10;
c:=a mod 10;
writeln;
if b=2 then write('dua') else
if b=3 then write('tiga') else
if b=4 then write('empat') else
if b=5 then write('lima') else
if b=6 then write('enam') else
if b=7 then write('tujuh') else
if b=8 then write('delapan') else
if b=9 then write('sembilan');
if b>1 then write(' puluh ');
if c=2 then write('dua') else
if c=3 then write('tiga') else
if c=4 then write('empat') else
if c=5 then write('lima') else
if c=6 then write('enam') else
if c=7 then write('tujuh') else
if c=8 then write('delapan') else
if c=9 then write('sembilan') else
if (b<>1) and (c=1) then write('satu') else
if c>0 then write(' ');
if c=0 then write('nol') else
if (b=1) and (c=1) then write('sebelas') else
if (b=1) and (c<>1) then write('belas');
end.
Program Repeat Until
program repeat_until;
uses wincrt;
var nama:string;
nim:integer;
pilih:char;
begin
repeat
CLRSCR;
write('masukkan nama= ');readln(nama);
write('masukkan nim= ');readln(nim);
write('anda ingin mengulang (Y/T)? ');readln(pilih);
until pilih='t';
write('selesai');
end.
uses wincrt;
var nama:string;
nim:integer;
pilih:char;
begin
repeat
CLRSCR;
write('masukkan nama= ');readln(nama);
write('masukkan nim= ');readln(nim);
write('anda ingin mengulang (Y/T)? ');readln(pilih);
until pilih='t';
write('selesai');
end.
Program Penukaran
Program Tukar;
uses wincrt;
var
a,b:Integer;
Begin
write('a:');
readln(a);
write('b:');
readln(b);
writeln('a:',b);
writeln('b:',a);
end.
uses wincrt;
var
a,b:Integer;
Begin
write('a:');
readln(a);
write('b:');
readln(b);
writeln('a:',b);
writeln('b:',a);
end.
Program Nilai
program nilai;
uses wincrt;
const a=0.4;
b=0.6;
var nim:real;
nama:string;
d,e,f:real;
pilih:char;
begin
REPEAT
CLRSCR;
write('masukkan nama= ');readln(nama);
write('masukkan nim= ');readln(nim);
write('nilai UTS= ');readln(d);
write('nilai UAS= ');readln(e);
f:=a*d+b*e;
writeln('nilai akhir adalah= ',f:5:2);
if f<50 then writeln('gagal') else writeln('lulus');
write('apakah ingin mengulang lagi(Y/T)?');readln(pilih);
until pilih='t';
write('selesai');
end.
uses wincrt;
const a=0.4;
b=0.6;
var nim:real;
nama:string;
d,e,f:real;
pilih:char;
begin
REPEAT
CLRSCR;
write('masukkan nama= ');readln(nama);
write('masukkan nim= ');readln(nim);
write('nilai UTS= ');readln(d);
write('nilai UAS= ');readln(e);
f:=a*d+b*e;
writeln('nilai akhir adalah= ',f:5:2);
if f<50 then writeln('gagal') else writeln('lulus');
write('apakah ingin mengulang lagi(Y/T)?');readln(pilih);
until pilih='t';
write('selesai');
end.
Program For _to_do
program for_do;
uses wincrt;
var x,y,z,jum:integer;
begin
write('masukkan nilai bilangan= ');read(y);
for x:=1 to y do
begin
for z:=1 to x do
write(x:3);
jum:=x*z;
writeln( ' = ',jum);
end;
end.
program for_to_do_;
uses wincrt;
var x:integer;
begin
for x:=1 to 10 do
if x mod 2=1 then
writeln(x,'. Pemograman Komputer');
end.
uses wincrt;
var x,y,z,jum:integer;
begin
write('masukkan nilai bilangan= ');read(y);
for x:=1 to y do
begin
for z:=1 to x do
write(x:3);
jum:=x*z;
writeln( ' = ',jum);
end;
end.
program for_to_do_;
uses wincrt;
var x:integer;
begin
for x:=1 to 10 do
if x mod 2=1 then
writeln(x,'. Pemograman Komputer');
end.
Program Total Bilangan
uses wincrt;
var num,total,x:integer;
begin
num:=1;
total:=1;
writeln('masukkan bilangan= ');readln(x);
repeat
if num
var num,total,x:integer;
begin
num:=1;
total:=1;
writeln('masukkan bilangan= ');readln(x);
repeat
if num
Program Usia
uses wincrt;
var n,x,y,z,H,I,J,K:integer;
begin
write ('masukkan tanggal lahir ');readln (x);
write ('masukkan bulan lahir ');readln(y);
write ('masukkan tahun lahir ');readln (z);
write ('masukkan jumlah hari ');readln (n);
H:= n div 365;
I:= n mod 365;
J:= I div 30;
K:= I mod 30;
write ('usia sekarang adalah= ',H,'tahun ',J,'bulan ',K,'hari ');
end.
var n,x,y,z,H,I,J,K:integer;
begin
write ('masukkan tanggal lahir ');readln (x);
write ('masukkan bulan lahir ');readln(y);
write ('masukkan tahun lahir ');readln (z);
write ('masukkan jumlah hari ');readln (n);
H:= n div 365;
I:= n mod 365;
J:= I div 30;
K:= I mod 30;
write ('usia sekarang adalah= ',H,'tahun ',J,'bulan ',K,'hari ');
end.
Program Nilai Uang
uses wincrt;
var a,b,c,d:integer;
begin
write ('masukkan nilai uang anda: ');readln (a);
b:= a div 100*100;
writeln ('ratusan= ',b);
c:= a mod 100- a mod 10;
writeln ('puluhan= ',c);
d:= a mod 10;
writeln ('satuan= ',d);
end.
var a,b,c,d:integer;
begin
write ('masukkan nilai uang anda: ');readln (a);
b:= a div 100*100;
writeln ('ratusan= ',b);
c:= a mod 100- a mod 10;
writeln ('puluhan= ',c);
d:= a mod 10;
writeln ('satuan= ',d);
end.
Program Segitiga Turun
uses wincrt;
var i,j,n:integer;
begin
write ('masukkan angka: ');
readln (n);
for j:=n downto 1 do
begin
writeln (' ');
for i:=j downto 1 do
write (5:3) ;
writeln;
end;
readln;
end.
var i,j,n:integer;
begin
write ('masukkan angka: ');
readln (n);
for j:=n downto 1 do
begin
writeln (' ');
for i:=j downto 1 do
write (5:3) ;
writeln;
end;
readln;
end.
Program Hari
uses wincrt;
var x:integer;
begin
writeln ('1.minggu');
writeln ('2.senin');
writeln ('3.selasa');
writeln ('4.rabu');
writeln ('5.kamis');
writeln ('6.jumat');
writeln ('7.sabtu');
writeln ('masukkan nomor pilihan anda: ');readln (x);
clrscr;
case x of
1:begin
write ('minggu');
end;
2:begin
write ('senin');
end;
3:begin
write ('selasa');
end;
4:begin
write ('rabu');
end;
5:begin
write ('kamis');
end;
6:begin
write ('jumat');
end;
7:begin
write ('sabtu');
end;
end;
end.
var x:integer;
begin
writeln ('1.minggu');
writeln ('2.senin');
writeln ('3.selasa');
writeln ('4.rabu');
writeln ('5.kamis');
writeln ('6.jumat');
writeln ('7.sabtu');
writeln ('masukkan nomor pilihan anda: ');readln (x);
clrscr;
case x of
1:begin
write ('minggu');
end;
2:begin
write ('senin');
end;
3:begin
write ('selasa');
end;
4:begin
write ('rabu');
end;
5:begin
write ('kamis');
end;
6:begin
write ('jumat');
end;
7:begin
write ('sabtu');
end;
end;
end.
Program Data Mahasiswa
program array_02;
uses wincrt;
var nim:array[1..20] of string[10];
no:array[1..20] of integer;
nama:array[1..20] of string[25];
nilai:array[1..20] of integer;
i,n:integer;
begin
write('masukkan data yang diperlukan =' );read(n);
clrscr;
for i:=1 to n do
begin
write('NO = ');readln(no[i]);
write('NIM = '); readln(nim[i]);
write('NAMA = '); readln(nama[i]);
write('NILAI = '); readln(nilai[i]);
clrscr;
end;
gotoxy(25,1);write('DAFTAR NILAI MAHASISWA');
gotoxy(30,2);writeln('SEMESTER III');
writeln;
writeln('===============================================================');
writeln('| NO | NIM | NAMA | NILAI |');
writeln('===============================================================');
for i:=1 to n do
begin
writeln(no[i]:4,nim[i]:17,nama[i]:19,nilai[i]:21);
end;
readln;
end.
uses wincrt;
var nim:array[1..20] of string[10];
no:array[1..20] of integer;
nama:array[1..20] of string[25];
nilai:array[1..20] of integer;
i,n:integer;
begin
write('masukkan data yang diperlukan =' );read(n);
clrscr;
for i:=1 to n do
begin
write('NO = ');readln(no[i]);
write('NIM = '); readln(nim[i]);
write('NAMA = '); readln(nama[i]);
write('NILAI = '); readln(nilai[i]);
clrscr;
end;
gotoxy(25,1);write('DAFTAR NILAI MAHASISWA');
gotoxy(30,2);writeln('SEMESTER III');
writeln;
writeln('===============================================================');
writeln('| NO | NIM | NAMA | NILAI |');
writeln('===============================================================');
for i:=1 to n do
begin
writeln(no[i]:4,nim[i]:17,nama[i]:19,nilai[i]:21);
end;
readln;
end.
Program Lagu
program lagu;
uses wincrt;
var x,n:integer;
begin
write('masukkan jumlah anak ayam= ');readln(n);
x:=n;
clrscr;
while x>1 do
begin
writeln('tek kotek kotek kotek');
writeln('anak ayam turun ',x);
writeln;
writeln('tek kotek kotek kotek');
writeln('mati satu tinggal ',x-1);
writeln;
x:=x-1;
end;
writeln('tek kotek kotek kotek');
writeln('anak ayam turun 1');
writeln;
writeln('tek kotek kotek kotek');
writeln('mati satu tinggal induknya');
end.
uses wincrt;
var x,n:integer;
begin
write('masukkan jumlah anak ayam= ');readln(n);
x:=n;
clrscr;
while x>1 do
begin
writeln('tek kotek kotek kotek');
writeln('anak ayam turun ',x);
writeln;
writeln('tek kotek kotek kotek');
writeln('mati satu tinggal ',x-1);
writeln;
x:=x-1;
end;
writeln('tek kotek kotek kotek');
writeln('anak ayam turun 1');
writeln;
writeln('tek kotek kotek kotek');
writeln('mati satu tinggal induknya');
end.
Program Ganjil dan Genap
program bilangan_ganjil_genap;
uses wincrt;
var
a,i:integer;
begin
clrscr;
writeln('masukkan batas akhir bilangan: ');read(a);
for i:= 1 to a do
begin
if i mod 2 = 0 then
writeln(i,' adalah bilangan genap')
else
writeln(i, ' adalah bilangan ganjil');
end;
readln;
end.
uses wincrt;
var
a,i:integer;
begin
clrscr;
writeln('masukkan batas akhir bilangan: ');read(a);
for i:= 1 to a do
begin
if i mod 2 = 0 then
writeln(i,' adalah bilangan genap')
else
writeln(i, ' adalah bilangan ganjil');
end;
readln;
end.
Program Menu dengan Case Of
program case_of;
uses wincrt;
var
a,b:integer;
begin
gotoxy(28,4);writeln('Menu Pilihan');
gotoxy(26,5);writeln('===============');
gotoxy(28,6);writeln('1. Soto');
gotoxy(28,7);writeln('2. Mie Ayam');
gotoxy(23,9);write('masukkan pilihan anda: ');read(a);
case a of
1: begin
clrscr;
gotoxy(30,7);writeln('Anda Memilih SOTO');
end;
2: begin
clrscr;
gotoxy(30,7);writeln('Anda Memilih MIE AYAM');
end;
else
begin
clrscr;
gotoxy(23,7);writeln('Maaf Pilihan Anda tidak ada dalam menu');
end
end
end.
uses wincrt;
var
a,b:integer;
begin
gotoxy(28,4);writeln('Menu Pilihan');
gotoxy(26,5);writeln('===============');
gotoxy(28,6);writeln('1. Soto');
gotoxy(28,7);writeln('2. Mie Ayam');
gotoxy(23,9);write('masukkan pilihan anda: ');read(a);
case a of
1: begin
clrscr;
gotoxy(30,7);writeln('Anda Memilih SOTO');
end;
2: begin
clrscr;
gotoxy(30,7);writeln('Anda Memilih MIE AYAM');
end;
else
begin
clrscr;
gotoxy(23,7);writeln('Maaf Pilihan Anda tidak ada dalam menu');
end
end
end.
Rabu, 16 Desember 2009
Program Segitiga Asyik
program segitigaasyik01;
uses wincrt;
var
a,b,c:integer;
begin
write('yang diinginkan: ');read(a);
for b:=1 to a do
begin
for c:=1 to b do
write(c:2);writeln;
end;
end.
program segitigaasyik02;
uses wincrt;
var
a,b,c:integer;
begin
write('yang diinginkan: ');read(a);
for b:=1 to a do
begin
for c:=1 to b do
write(c:2);writeln;
end;
end.
program segitigaasyik03;
uses wincrt;
var
a,b,c:integer;
begin
write('yang diinginkan: ');read(a);
for b:=1 to a do
begin
for c:=1 to b do
write(b:2);writeln;
end;
end.
program segitigaasyik04;
uses wincrt;
var
a,b,c,d,e:integer;
begin
write('yang diinginkan: ');read(a);
for b:=a downto 1 do
begin
for c:=b downto 1 do
write(c:2);write(' = ',d);writeln;
d:=0;
d:=d+(a-1);
end;
end.
uses wincrt;
var
a,b,c:integer;
begin
write('yang diinginkan: ');read(a);
for b:=1 to a do
begin
for c:=1 to b do
write(c:2);writeln;
end;
end.
program segitigaasyik02;
uses wincrt;
var
a,b,c:integer;
begin
write('yang diinginkan: ');read(a);
for b:=1 to a do
begin
for c:=1 to b do
write(c:2);writeln;
end;
end.
program segitigaasyik03;
uses wincrt;
var
a,b,c:integer;
begin
write('yang diinginkan: ');read(a);
for b:=1 to a do
begin
for c:=1 to b do
write(b:2);writeln;
end;
end.
program segitigaasyik04;
uses wincrt;
var
a,b,c,d,e:integer;
begin
write('yang diinginkan: ');read(a);
for b:=a downto 1 do
begin
for c:=b downto 1 do
write(c:2);write(' = ',d);writeln;
d:=0;
d:=d+(a-1);
end;
end.
Program Rekursi Faktorial
uses wincrt;
var
x:integer;
function faktorial(M:integer):longint;
begin
if M=0 then
faktorial:=1
else
faktorial:=M*faktorial(M-1);
end;
begin
clrscr;
write('masukkan nilai: ');read(x);
writeln;
write(x,'! = ',faktorial(x));
readln;
end.
var
x:integer;
function faktorial(M:integer):longint;
begin
if M=0 then
faktorial:=1
else
faktorial:=M*faktorial(M-1);
end;
begin
clrscr;
write('masukkan nilai: ');read(x);
writeln;
write(x,'! = ',faktorial(x));
readln;
end.
Program Prosedur Operasi Bilangan
program prosedur1;
uses wincrt;
var
d:integer;
procedure tambah;
var
x,y,z:real;
begin
clrscr;
writeln('menu pertambahan');
writeln('masukkan angka1: ');read(x);
writeln('masukkan angka2: ');read(y);
z:=x+y;
write('hasil dari ',x:4:2,'+ ',y:4:2,'= ',z:4:2);
end;
procedure kurang;
var
a,b,c:real;
begin
clrscr;
writeln('menu pengurangan');
writeln('masukkan angka1: ');read(a);
writeln('masukkan angka2: ');read(b);
c:=a-b;
write('hasil dari ',a:4:2,'- ',b:4:2,'= ',c:4:2);
end;
begin
writeln('anda ingin menu apa?');
writeln('1. pertambahan');
writeln('2. pengurangan');
writeln;
writeln('masukkan pilihan: ');read(d);
if d=1 then
begin
tambah;
end
else
if d=2 then
begin
kurang;
end
else
begin
clrscr;
write('maaf pilihan anda tidak terdaftar');
end;
end.
uses wincrt;
var
d:integer;
procedure tambah;
var
x,y,z:real;
begin
clrscr;
writeln('menu pertambahan');
writeln('masukkan angka1: ');read(x);
writeln('masukkan angka2: ');read(y);
z:=x+y;
write('hasil dari ',x:4:2,'+ ',y:4:2,'= ',z:4:2);
end;
procedure kurang;
var
a,b,c:real;
begin
clrscr;
writeln('menu pengurangan');
writeln('masukkan angka1: ');read(a);
writeln('masukkan angka2: ');read(b);
c:=a-b;
write('hasil dari ',a:4:2,'- ',b:4:2,'= ',c:4:2);
end;
begin
writeln('anda ingin menu apa?');
writeln('1. pertambahan');
writeln('2. pengurangan');
writeln;
writeln('masukkan pilihan: ');read(d);
if d=1 then
begin
tambah;
end
else
if d=2 then
begin
kurang;
end
else
begin
clrscr;
write('maaf pilihan anda tidak terdaftar');
end;
end.
Program Menghitung Volume Balok
program Menghitung_Volume_Balok;
uses wincrt;
var p,l,t,V:Real;
a:string;
begin
a:='y';
if a='y' then
while a='y' do
begin
clrscr;
write('Masukkan Panjang Balok=');
readln(p);
write('Masukkan Lebar Balok=');
readln(l);
write('Masukkan Tinggi Balok=');
readln(t);
V:=p*l*t;
writeln('Volume Balok=' , V :2 :2);
writeln('mau coba lagi?');read(a);
end
end.
uses wincrt;
var p,l,t,V:Real;
a:string;
begin
a:='y';
if a='y' then
while a='y' do
begin
clrscr;
write('Masukkan Panjang Balok=');
readln(p);
write('Masukkan Lebar Balok=');
readln(l);
write('Masukkan Tinggi Balok=');
readln(t);
V:=p*l*t;
writeln('Volume Balok=' , V :2 :2);
writeln('mau coba lagi?');read(a);
end
end.
Program Pembuatan Matriks dan Transposnya
uses wincrt;
Var
m,n,i,j:integer;
x:Array[1..100,1..100] of integer;
begin
clrscr;
write('Baca ukuran baris Matriks:',' ');
readln(m);
write ('Baca ukuran kolom matriks:',' ');
readln(n);
writeln('Matriks anda berukuran',' ',m,'x',n,' ');
for i:=1 to m do
for j:=1 to n do
begin
write('Baca nilai:',' ');
readln (x[i,j]);
end;
writeln;
writeln('Matriksnya:',' ');
for i:=1 to m do
begin
for j:=1 to n do
write(x[i,j]:3);
writeln;
end;
writeln;
writeln('Matriks transposnya:',' ');
for j:=1 to n do
begin
for i:=1 to m do
write(x[i,j]:3);
writeln;
end;
writeln;
writeln('Matriks anda berukuran',' ',n,'x',m,' ');
read;
end.
Var
m,n,i,j:integer;
x:Array[1..100,1..100] of integer;
begin
clrscr;
write('Baca ukuran baris Matriks:',' ');
readln(m);
write ('Baca ukuran kolom matriks:',' ');
readln(n);
writeln('Matriks anda berukuran',' ',m,'x',n,' ');
for i:=1 to m do
for j:=1 to n do
begin
write('Baca nilai:',' ');
readln (x[i,j]);
end;
writeln;
writeln('Matriksnya:',' ');
for i:=1 to m do
begin
for j:=1 to n do
write(x[i,j]:3);
writeln;
end;
writeln;
writeln('Matriks transposnya:',' ');
for j:=1 to n do
begin
for i:=1 to m do
write(x[i,j]:3);
writeln;
end;
writeln;
writeln('Matriks anda berukuran',' ',n,'x',m,' ');
read;
end.
Program Pilihan Menu Makanan
uses wincrt;
var
a:real;
begin
writeln('menu apa yang anda inginkan hari ini?');
writeln('=====================================');
writeln;
writeln;
writeln('1. nasi goreng telor');
writeln('2. friedchicken');
writeln('3. tempe penyet');
writeln('4. steak');
writeln('5. sup iga sapi');
writeln;
writeln('pilihan menu anda: ');read(a);
if a=1 then
begin
clrscr;
write('anda memilih nasi goreng');
end
else
if a=2 then
begin
clrscr;
write('anda memillih friedchicken');
end
else
if a=3 then
begin
clrscr;
write('anda memilih tempe penyet');
end
else
if a=4 then
begin
clrscr;
write('anda memilih steak');
end
else
if a=5 then
begin
clrscr;
write('anda memilih sup iga sapi');
end
else
begin
clrscr;
write('maaf menu yang anda pilih tidak ada di daftar menu');
end;
writeln;
end.
var
a:real;
begin
writeln('menu apa yang anda inginkan hari ini?');
writeln('=====================================');
writeln;
writeln;
writeln('1. nasi goreng telor');
writeln('2. friedchicken');
writeln('3. tempe penyet');
writeln('4. steak');
writeln('5. sup iga sapi');
writeln;
writeln('pilihan menu anda: ');read(a);
if a=1 then
begin
clrscr;
write('anda memilih nasi goreng');
end
else
if a=2 then
begin
clrscr;
write('anda memillih friedchicken');
end
else
if a=3 then
begin
clrscr;
write('anda memilih tempe penyet');
end
else
if a=4 then
begin
clrscr;
write('anda memilih steak');
end
else
if a=5 then
begin
clrscr;
write('anda memilih sup iga sapi');
end
else
begin
clrscr;
write('maaf menu yang anda pilih tidak ada di daftar menu');
end;
writeln;
end.
Program Fungsi Pertambahan
uses wincrt;
var
a,b:integer;
function tambah(x,y:real):real;
var
hasil:real;
begin
clrscr;
hasil:=a+b;
tambah:=hasil;
end;
begin
clrscr;
write('masukkan bil1: ');read(a);
write('masukkan bil2: ');read(b);
writeln('jadi hasilnya: ',tambah(a,b):4:2);
end.
var
a,b:integer;
function tambah(x,y:real):real;
var
hasil:real;
begin
clrscr;
hasil:=a+b;
tambah:=hasil;
end;
begin
clrscr;
write('masukkan bil1: ');read(a);
write('masukkan bil2: ');read(b);
writeln('jadi hasilnya: ',tambah(a,b):4:2);
end.
Program Numbering
PROGRAM TUGAS_1;
Uses Wincrt;
var
i,j,n: integer;
begin
write ('masukkan nilai n= ');
readln (n);
for i:=1 to n do
begin
for j:=1 to 3 do
writeln(i,'.',j);
end;
end.
Uses Wincrt;
var
i,j,n: integer;
begin
write ('masukkan nilai n= ');
readln (n);
for i:=1 to n do
begin
for j:=1 to 3 do
writeln(i,'.',j);
end;
end.
Program Numbering
PROGRAM TUGAS_1;
Uses Wincrt;
var
i,j,n: integer;
begin
write ('masukkan nilai n= ');
readln (n);
for i:=1 to n do
begin
for j:=1 to 3 do
writeln(i,'.',j);
end;
end.
Uses Wincrt;
var
i,j,n: integer;
begin
write ('masukkan nilai n= ');
readln (n);
for i:=1 to n do
begin
for j:=1 to 3 do
writeln(i,'.',j);
end;
end.
Program Rata-Rata
PROGRAM rata_rata;
uses wincrt;
var
x : array[1..20] of integer;
tot, i, n : integer;
mean:real;
c:char;
Begin
repeat;
clrscr;
Writeln('program rata-rata');
write('Masukkan Jumlah data : ');
readln(n);
writeln;
writeln;
tot:=0;
for i:=1 to n do
begin
write('Masukkan data ke-',i,' ', 'Anda : '); readln(x[i]);
tot:=tot + x[i];
end;
writeln;
mean:=tot/n;
write('Dan Hasil Perhitungan Meannya : ');
(*writeln(i,'+',x[i]);*)
Writeln(mean:8:3);
write('Apakah Ingin Mengulang (Y/T) :');
readln(c);
until c='T';
end.
uses wincrt;
var
x : array[1..20] of integer;
tot, i, n : integer;
mean:real;
c:char;
Begin
repeat;
clrscr;
Writeln('program rata-rata');
write('Masukkan Jumlah data : ');
readln(n);
writeln;
writeln;
tot:=0;
for i:=1 to n do
begin
write('Masukkan data ke-',i,' ', 'Anda : '); readln(x[i]);
tot:=tot + x[i];
end;
writeln;
mean:=tot/n;
write('Dan Hasil Perhitungan Meannya : ');
(*writeln(i,'+',x[i]);*)
Writeln(mean:8:3);
write('Apakah Ingin Mengulang (Y/T) :');
readln(c);
until c='T';
end.
Perkalian Dua Matriks
program Perkalian_Matriks;
uses wincrt;
type
larik= array [1..10,1..10] of integer;
var
i,j,k,m,n,o: integer;
A,B,C: larik;
begin
writeln (' "SELAMAT DATANG DI PROGRAM PERKALIAN MATRIKS " ');
writeln ('===============================================================');
writeln;
writeln;
writeln;
write('Ketikkan banyak baris matriks A: ');
read(m);
write('Ketikkan banyak kolom matriks A / baris matriks B: ');
read(n);
write('ketikkan banyak kolom matriks B: ');
read(o);
for i:=1 to m do
begin
for j:= 1 to n do
begin
write('A[',i,',',j,']= ');
read(A[i,j]);
end;
end;
for j:=1 to n do
begin
for k:= 1 to o do
begin
write('B[',j,',',k,']= ');
read(B[j,k]);
end;
end;
clrscr;
writeln('Bentuk Matriks A adalah: ');
for i:= 1 to m do
begin
for j:= 1 to n do
begin
write (A[i,j]: 4);
end;
writeln;
end;
writeln;
writeln('Bentuk Matriks B adalah: ');
for j:= 1 to n do
begin
for k:= 1 to o do
begin
write(B[j,k]: 4);
end;
writeln;
end;
writeln;
writeln;
writeln;
writeln('Perkalian martiks A dan matriks B adalah: ');
for i:= 1 to m do
begin
for j:= 1 to o do
begin
C[i,j]:= 0;
for k:= 1 to n do
C[i,j]:= C[i,j]+(A[i,k]*B[k,j]);
write(C[i,j]: 4);
end;
writeln;
end;
end.
uses wincrt;
type
larik= array [1..10,1..10] of integer;
var
i,j,k,m,n,o: integer;
A,B,C: larik;
begin
writeln (' "SELAMAT DATANG DI PROGRAM PERKALIAN MATRIKS " ');
writeln ('===============================================================');
writeln;
writeln;
writeln;
write('Ketikkan banyak baris matriks A: ');
read(m);
write('Ketikkan banyak kolom matriks A / baris matriks B: ');
read(n);
write('ketikkan banyak kolom matriks B: ');
read(o);
for i:=1 to m do
begin
for j:= 1 to n do
begin
write('A[',i,',',j,']= ');
read(A[i,j]);
end;
end;
for j:=1 to n do
begin
for k:= 1 to o do
begin
write('B[',j,',',k,']= ');
read(B[j,k]);
end;
end;
clrscr;
writeln('Bentuk Matriks A adalah: ');
for i:= 1 to m do
begin
for j:= 1 to n do
begin
write (A[i,j]: 4);
end;
writeln;
end;
writeln;
writeln('Bentuk Matriks B adalah: ');
for j:= 1 to n do
begin
for k:= 1 to o do
begin
write(B[j,k]: 4);
end;
writeln;
end;
writeln;
writeln;
writeln;
writeln('Perkalian martiks A dan matriks B adalah: ');
for i:= 1 to m do
begin
for j:= 1 to o do
begin
C[i,j]:= 0;
for k:= 1 to n do
C[i,j]:= C[i,j]+(A[i,k]*B[k,j]);
write(C[i,j]: 4);
end;
writeln;
end;
end.
Minggu, 13 Desember 2009
Program Perkalian dan Pembagian Dua Bilangan
program perkaliandanpembagianduabilangan;
uses wincrt;
var
a,b,c,d:real;
begin
writeln(' SELAMAT DATANG DI WAHANA PERKALIAN DAN PEMBAGIAN DUA BILANGAN');
Writeln(' =============================================================');
writeln;
writeln;
write('Bilangan pertama: ');read(a);
write('Bilangan kedua: ');read(b);
c:=a*b;
d:=a/b;
writeln;
writeln('Hasil perkalian dari ',a:5:2,' X ',b:5:2,' = ',c:5:2);
writeln('Hasil pembagian dari ',a:5:2,' : ',b:5:2,' = ',d:5:2);
end.
uses wincrt;
var
a,b,c,d:real;
begin
writeln(' SELAMAT DATANG DI WAHANA PERKALIAN DAN PEMBAGIAN DUA BILANGAN');
Writeln(' =============================================================');
writeln;
writeln;
write('Bilangan pertama: ');read(a);
write('Bilangan kedua: ');read(b);
c:=a*b;
d:=a/b;
writeln;
writeln('Hasil perkalian dari ',a:5:2,' X ',b:5:2,' = ',c:5:2);
writeln('Hasil pembagian dari ',a:5:2,' : ',b:5:2,' = ',d:5:2);
end.
Program Penjumlahan dan Pengurangan Dua Bilangan
program pertambahandanpenguranganduabilangan;
uses wincrt;
var
a,b,c,d:real;
begin
writeln(' SELAMAT DATANG DI WAHANA PERTAMBAHAN DAN PENGURANGAN DUA BILANGAN');
Writeln(' =================================================================');
writeln;
writeln;
write('Bilangan pertama: ');read(a);
write('Bilangan kedua: ');read(b);
c:=a+b;
d:=a-b;
writeln;
writeln('Hasil pertambahan dari ',a:5:2,' + ',b:5:2,' = ',c:5:2);
writeln('Hasil pengurangan dari ',a:5:2,' - ',b:5:2,' = ',d:5:2);
end.
uses wincrt;
var
a,b,c,d:real;
begin
writeln(' SELAMAT DATANG DI WAHANA PERTAMBAHAN DAN PENGURANGAN DUA BILANGAN');
Writeln(' =================================================================');
writeln;
writeln;
write('Bilangan pertama: ');read(a);
write('Bilangan kedua: ');read(b);
c:=a+b;
d:=a-b;
writeln;
writeln('Hasil pertambahan dari ',a:5:2,' + ',b:5:2,' = ',c:5:2);
writeln('Hasil pengurangan dari ',a:5:2,' - ',b:5:2,' = ',d:5:2);
end.
Senin, 07 Desember 2009
Prokom oh Prokom
Mata kuliah prokom tu asyik, nyante, tapi kadang pusing juga.
Semoga mendapat nilai yang baik untuk mata kuliah ini.
Amin...................................................................................
Semoga mendapat nilai yang baik untuk mata kuliah ini.
Amin...................................................................................
Langganan:
Postingan (Atom)
