Program nn;
uses crt;
var
a,b,hasil:array [1..5,1..5] of integer;
i,j,k:integer;
begin
clrscr;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write('Masukkan angka: ');
readln(a[i,j]);
end;
writeln;
end;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write('Masukkan angka: ');
readln(b[i,j]);
end;
writeln;
end;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write(a[i,j],' ');
end;
writeln;
end;
writeln;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write(b[i,j],' ');
end;
writeln;
end;
for i:=1 to 3 do
begin
for j:= 1 to 3 do
begin
for k:= 1 to 3 do
begin
hasil[i,j]:= hasil[i,j]+ a[i,k] * b[k,j];
end;
end;
end;
writeln;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write(hasil[i,j],' ');
end;
writeln;
end;
readln;
end.
Program Membuat Piramid
Program piramid;
Uses crt;
var
i,j,n:integer;
begin
clrscr;
readln(n);
for i:= 1 to n do
begin
for j:= 1 to n do
begin
if i<j then
write('')
else write('x ');
end;
writeln;
writeln;
end;
readln;
end.
Uses crt;
var
i,j,n:integer;
begin
clrscr;
readln(n);
for i:= 1 to n do
begin
for j:= 1 to n do
begin
if i<j then
write('')
else write('x ');
end;
writeln;
writeln;
end;
readln;
end.
Contoh Kasus : Menghitung Deret Ganda
Program ujian;
uses crt;
var
i,n,a,b,c,d,e:integer;
begin clrscr;
readln(n);
for i:= 1 to n do
begin
if i mod 2= 1 then
begin
a:=a+10;
e:=a;
c:=c+a;
write(a,' ');
end
else
begin
b:=b+10;
e:=b;
d:=d+b;
write(b,' ');
end;
end;
writeln('Suku ke-',n,'= ',e);
writeln('Jumlah suku ke-',n,'= ',c+d);
readln;
end.
uses crt;
var
i,n,a,b,c,d,e:integer;
begin clrscr;
readln(n);
for i:= 1 to n do
begin
if i mod 2= 1 then
begin
a:=a+10;
e:=a;
c:=c+a;
write(a,' ');
end
else
begin
b:=b+10;
e:=b;
d:=d+b;
write(b,' ');
end;
end;
writeln('Suku ke-',n,'= ',e);
writeln('Jumlah suku ke-',n,'= ',c+d);
readln;
end.
Contoh Kasus: Program Menghitung Jumlah Telur
Program Test;
Uses crt;
var
n,m,t:integer;
h:char;
label a,b,c,d,e,f,g,z;
begin
clrscr;
writeln('Senin : 1');
writeln('Selasa : 2');
writeln('Rabu : 3');
writeln('Kamis : 4');
writeln('Jumat : 5');
writeln('Sabtu : 6');
writeln('Minggu : 7');
write('Mulai pada hari [1-7] : ');
readln(h);
write('Berapa hari lamanya? : ');
readln(n);
case h of
'1': goto a;
'2': goto b;
'3': goto c;
'4': goto d;
'5': goto e;
'6': goto f;
'7': goto g;
else writeln('Anda salah menginputkan angka');
end;
a:
m:=m+1;
t:=t+3;
if m=n then goto z;
b:
m:=m+1;
t:=t+2;
if m=n then goto z;
c:
m:=m+1;
t:=t+1;
if m=n then goto z;
d:
m:=m+1;
t:=t+2;
if m=n then goto z;
e:
m:=m+1;
t:=t+3;
if m=n then goto z;
f:
m:=m+1;
t:=t+2;
if m=n then goto z;
g:
m:=m+1;
t:=t+0;
if m=n then goto z
else goto a;
z:
writeln('Jumlah telur: ',t);
readln;
end.
Program Mengurutkan Angka dari Kecil ke Besar
uses crt;
var
a,b,c: integer;
u:char;
label x;
begin
clrscr;
x:
write('Masukkan bilangan pertama: ');
readln(a);
write('Masukkan bilangan kedua: ');
readln(b);
write('Masukkan bilangan ketiga: ');
readln(c);
if (a<b) and (a<c) and (b<c) then writeln (a,' ',b,' ',c)
else if (a<b) and (a<c) and (c<b) then writeln(a,' ',c,' ',b)
else if (b<a) and (b<c) and (a<c) then writeln(b,' ',a,' ',c)
else if (b<a) and (b<c) and (c<a) then writeln(b,' ',c,' ',a)
else if (c<a) and (c<b) and (a<b) then writeln(c,' ',a,' ',b)
else if (c<a) and (c<b) and (b<a) then writeln(c,' ',b,' ',a)
else writeln('error');
write('Ulangi {y/n} : '); readln(u);
if u='y' then goto x;
readln;
end.
var
a,b,c: integer;
u:char;
label x;
begin
clrscr;
x:
write('Masukkan bilangan pertama: ');
readln(a);
write('Masukkan bilangan kedua: ');
readln(b);
write('Masukkan bilangan ketiga: ');
readln(c);
if (a<b) and (a<c) and (b<c) then writeln (a,' ',b,' ',c)
else if (a<b) and (a<c) and (c<b) then writeln(a,' ',c,' ',b)
else if (b<a) and (b<c) and (a<c) then writeln(b,' ',a,' ',c)
else if (b<a) and (b<c) and (c<a) then writeln(b,' ',c,' ',a)
else if (c<a) and (c<b) and (a<b) then writeln(c,' ',a,' ',b)
else if (c<a) and (c<b) and (b<a) then writeln(c,' ',b,' ',a)
else writeln('error');
write('Ulangi {y/n} : '); readln(u);
if u='y' then goto x;
readln;
end.
Program Menentukan Nilai Ujian dengan IF ELSE
program if_else;
uses crt;
var
nilai:integer;
u:char;
label a;
begin
clrscr;
a:
write('Input nilai: '); readln(a);
if a<40 then writeln ('nilai E')
else if a<50 then
begin
writeln('nilai D');
end
else if a<60 then
begin
writeln('nilai C');
end
else if a<80 then
begin
writeln('nilai B');
end
else if a>80 then
begin
writeln('nilai A');
end
else
begin
writeln('salah');
end;
Write('Ulangi ?: '); readln(u);
if u='y' then goto a;
readln;
end.
uses crt;
var
nilai:integer;
u:char;
label a;
begin
clrscr;
a:
write('Input nilai: '); readln(a);
if a<40 then writeln ('nilai E')
else if a<50 then
begin
writeln('nilai D');
end
else if a<60 then
begin
writeln('nilai C');
end
else if a<80 then
begin
writeln('nilai B');
end
else if a>80 then
begin
writeln('nilai A');
end
else
begin
writeln('salah');
end;
Write('Ulangi ?: '); readln(u);
if u='y' then goto a;
readln;
end.
Program Operasi Aritmatik
program if_else;
uses crt;
var
a,b:integer;
j:real;
u,o:char;
label aa;
begin
clrscr;
aa:
Writeln('1.Penjumlahan');
writeln('2.Pengurangan');
writeln('3.Perkalian');
writeln('4.Pembagian');
write('Pilih Operasi Aritmatik [1/2/3/4]: ');
readln(o);
write('Input nilai 1: '); readln(a);
write('Input nilai 2: '); readln(b);
case o of
'1':j:=a+b;
'2':j:=a-b;
'3':j:=a*b;
'4':j:=a/b;
end;
writeln('Hasil: ',j:0:1);
Write('Ulangi ?: '); readln(u);
if u='y' then goto aa;
readln;
end.
uses crt;
var
a,b:integer;
j:real;
u,o:char;
label aa;
begin
clrscr;
aa:
Writeln('1.Penjumlahan');
writeln('2.Pengurangan');
writeln('3.Perkalian');
writeln('4.Pembagian');
write('Pilih Operasi Aritmatik [1/2/3/4]: ');
readln(o);
write('Input nilai 1: '); readln(a);
write('Input nilai 2: '); readln(b);
case o of
'1':j:=a+b;
'2':j:=a-b;
'3':j:=a*b;
'4':j:=a/b;
end;
writeln('Hasil: ',j:0:1);
Write('Ulangi ?: '); readln(u);
if u='y' then goto aa;
readln;
end.
Program Lambang Nazi
Program lat1;
Uses crt;
var
i,j,n,x:integer;
y:real;
begin
clrscr;
readln(n);
x:=2*(n)-1;
for i:= 1 to x do
begin
for j:= 1 to x do
begin
if (i=1) and (j<n) then write('x ')
else
if (j=n) then write('x ')
else
if (i=x) and (j>n) then write('x ')
else
if (i=n) and (j<>n) then write('x ')
else
if (j=x) and (i<n) then write('x ')
else
if (j=1) and (i>n) then write('x ')
else write(' ');
end;
writeln;
end;
readln;
end.
Uses crt;
var
i,j,n,x:integer;
y:real;
begin
clrscr;
readln(n);
x:=2*(n)-1;
for i:= 1 to x do
begin
for j:= 1 to x do
begin
if (i=1) and (j<n) then write('x ')
else
if (j=n) then write('x ')
else
if (i=x) and (j>n) then write('x ')
else
if (i=n) and (j<>n) then write('x ')
else
if (j=x) and (i<n) then write('x ')
else
if (j=1) and (i>n) then write('x ')
else write(' ');
end;
writeln;
end;
readln;
end.
Program Palindrom
Program palindrom;
uses crt;
var
kt,bl:string;
i:integer;
begin
clrscr;
write('Input kata: '); readln(kt);
for i:= length(kt) downto 1 do
bl:=bl+kt[i];
writeln('Dibalik menjadi: ',bl);
if bl=kt then write('Kata ini termasuk palindrom')
else write('Kata ini bukan palindrom');
readln;
end.
uses crt;
var
kt,bl:string;
i:integer;
begin
clrscr;
write('Input kata: '); readln(kt);
for i:= length(kt) downto 1 do
bl:=bl+kt[i];
writeln('Dibalik menjadi: ',bl);
if bl=kt then write('Kata ini termasuk palindrom')
else write('Kata ini bukan palindrom');
readln;
end.
Program Deret Aritmatik Ganjil
Program Deret_Ganjil;
Uses crt;
var
i,n,p,q:integer;
u:char;
label x,y;
Begin
clrscr;
x:
Writeln('Program menentukan suku ke-n dan jumlah hingga suku ke-n dari deret: ');
writeln(' 3 5 7 9 11 .... Un');
writeln('====================================================================');
p:=1;
q:=0;
Write('Berapa n yang anda inginkan? : '); readln(n);
writeln('Deretnya: ');
for i:=1 to n do
begin
p:=p+2;
q:=p+q;
write(p,' ');
end;
writeln(' ');
writeln('Suku ke-',n,': ',p);
writeln('Jumlah hingga suku ke-',n,': ',q);
Write('Coba lagi? [y/n] : '); readln(u);
writeln('====================================================================');
if u='y' then goto x
else goto y;
y:
Readln;
End.
Uses crt;
var
i,n,p,q:integer;
u:char;
label x,y;
Begin
clrscr;
x:
Writeln('Program menentukan suku ke-n dan jumlah hingga suku ke-n dari deret: ');
writeln(' 3 5 7 9 11 .... Un');
writeln('====================================================================');
p:=1;
q:=0;
Write('Berapa n yang anda inginkan? : '); readln(n);
writeln('Deretnya: ');
for i:=1 to n do
begin
p:=p+2;
q:=p+q;
write(p,' ');
end;
writeln(' ');
writeln('Suku ke-',n,': ',p);
writeln('Jumlah hingga suku ke-',n,': ',q);
Write('Coba lagi? [y/n] : '); readln(u);
writeln('====================================================================');
if u='y' then goto x
else goto y;
y:
Readln;
End.
Program Deret Aritmatik Genap
Program Deret_Genap;
Uses crt;
var
i,n,p,q:integer;
u:char;
label x,y;
Begin
clrscr;
x:
Writeln('Program menentukan suku ke-n dan jumlah hingga suku ke-n dari deret: ');
writeln(' 2 4 6 8 10 .... Un');
writeln('====================================================================');
p:=0;
q:=0;
Write('Berapa n yang anda inginkan? : '); readln(n);
writeln('Deretnya: ');
for i:=1 to n do
begin
p:=p+2;
q:=p+q;
write(p,' ');
end;
writeln(' ');
writeln('Suku ke-',n,': ',p);
writeln('Jumlah hingga suku ke-',n,': ',q);
Write('Coba lagi? [y/n] : '); readln(u);
writeln('====================================================================');
if u='y' then goto x
else goto y;
y:
Readln;
End.
Uses crt;
var
i,n,p,q:integer;
u:char;
label x,y;
Begin
clrscr;
x:
Writeln('Program menentukan suku ke-n dan jumlah hingga suku ke-n dari deret: ');
writeln(' 2 4 6 8 10 .... Un');
writeln('====================================================================');
p:=0;
q:=0;
Write('Berapa n yang anda inginkan? : '); readln(n);
writeln('Deretnya: ');
for i:=1 to n do
begin
p:=p+2;
q:=p+q;
write(p,' ');
end;
writeln(' ');
writeln('Suku ke-',n,': ',p);
writeln('Jumlah hingga suku ke-',n,': ',q);
Write('Coba lagi? [y/n] : '); readln(u);
writeln('====================================================================');
if u='y' then goto x
else goto y;
y:
Readln;
End.
Contoh Program Menentukan Gaji Bersih
Program Ggolongan_;
uses wincrt;
var
gol,lagi:char;
anak:integer;
gj,ta,G:real;
begin
write('Masukkan golongan anda : ');
readln(gol);
case gol of
'1':gj:=5000000;
'2':gj:=3000000;
'3':gj:=2500000;
else writeln('Golongan anda tidak terdaftar');
end;
write('Masukkan jumlah anak: ');
readln(anak);
if anak>2 then ta:=750000
else if anak>0 then ta:=500000
else if anak=0 then ta:=0
else writeln('Jumlah anak salah');
G:=gj+ta-(0.05*(gj+ta));
writeln('Gaji bersih: Rp ',G:2:0);
readln;
end.
uses wincrt;
var
gol,lagi:char;
anak:integer;
gj,ta,G:real;
begin
write('Masukkan golongan anda : ');
readln(gol);
case gol of
'1':gj:=5000000;
'2':gj:=3000000;
'3':gj:=2500000;
else writeln('Golongan anda tidak terdaftar');
end;
write('Masukkan jumlah anak: ');
readln(anak);
if anak>2 then ta:=750000
else if anak>0 then ta:=500000
else if anak=0 then ta:=0
else writeln('Jumlah anak salah');
G:=gj+ta-(0.05*(gj+ta));
writeln('Gaji bersih: Rp ',G:2:0);
readln;
end.
Contoh Program Penggunaan Case Sederhana >> Membuat Rentang Nilai Ujian
Program contoh_case;
uses wincrt;
var
nilai:integer;
begin
readln(nilai);
case nilai of
0..40:writeln('E');
41..55:writeln('D');
56..65:writeln('C');
66..80:writeln('B');
81..100:writeln('A');
else
writeln('tidak dalam range');
end;
readln;
end.
uses wincrt;
var
nilai:integer;
begin
readln(nilai);
case nilai of
0..40:writeln('E');
41..55:writeln('D');
56..65:writeln('C');
66..80:writeln('B');
81..100:writeln('A');
else
writeln('tidak dalam range');
end;
readln;
end.
Contoh Program Menghitung Belanjaan (beserta diskon) dalam Pascal
Program Total_Belanja;
uses wincrt;
var
a,b,c,d,e,f:integer;
ha,hasil:real;
begin
write('Jumlah pulpen: ');
readln(a);
write('Jumlah pensil: ');
readln(b);
write('Jumlah penghapus: ');
readln(c);
write('Jumlah buku tulis: ');
readln(d);
write('Jumlah penggaris: ');
readln(e);
write('Jumlah tipex: ');
readln(f);
ha:=(a*2500)+(b*1000)+(c*500)+(d*3000)+(e*4000)+(f*5000);
if ha>500000
then hasil:=ha -(0.1*ha)
else hasil:=ha;
write('Total Belanja: Rp ',hasil:2:0);
readln;
end.
uses wincrt;
var
a,b,c,d,e,f:integer;
ha,hasil:real;
begin
write('Jumlah pulpen: ');
readln(a);
write('Jumlah pensil: ');
readln(b);
write('Jumlah penghapus: ');
readln(c);
write('Jumlah buku tulis: ');
readln(d);
write('Jumlah penggaris: ');
readln(e);
write('Jumlah tipex: ');
readln(f);
ha:=(a*2500)+(b*1000)+(c*500)+(d*3000)+(e*4000)+(f*5000);
if ha>500000
then hasil:=ha -(0.1*ha)
else hasil:=ha;
write('Total Belanja: Rp ',hasil:2:0);
readln;
end.
Program Menghitung Berat Badan Ideal (BMI) dalam Pascal
Program Hitung_BMI;
Uses wincrt;
Var
t,b,BMI:real;
p:string;
Begin
Write('Masukkan tinggi badan anda (m): ');
Readln(t);
Write('Masukkan berat badan anda (kg): ');
Readln(b);
BMI:=b/sqr(t);
If BMI>=25 then
begin
p:='terkategori gemuk';
end
else
begin
p:='tidak mengalami obesitas';
end;
Write('Anda ',p);
Readln;
End.
Uses wincrt;
Var
t,b,BMI:real;
p:string;
Begin
Write('Masukkan tinggi badan anda (m): ');
Readln(t);
Write('Masukkan berat badan anda (kg): ');
Readln(b);
BMI:=b/sqr(t);
If BMI>=25 then
begin
p:='terkategori gemuk';
end
else
begin
p:='tidak mengalami obesitas';
end;
Write('Anda ',p);
Readln;
End.
Program Konversi Suhu dalam Pascal
program Konverter_Suhu;
Uses wincrt;
var
c,r,f,k:real;
p:string;
begin
write('Masukkan suhu dalam derajat Celcius: '); readln(c);
r:=4/5*c;
f:=(9/5*c)+32;
k:=c+273;
p:='dingin';
writeln('Suhu dalam Reamur: ',r:4:1);
writeln('Suhu dalam Fahrenheit: ',f:4:1);
writeln('Suhu dalam Kelvin: ',k:4:1);
if c<20 then
begin
Write('Suhu terkategori ',p);
end;
readln;
end.
Uses wincrt;
var
c,r,f,k:real;
p:string;
begin
write('Masukkan suhu dalam derajat Celcius: '); readln(c);
r:=4/5*c;
f:=(9/5*c)+32;
k:=c+273;
p:='dingin';
writeln('Suhu dalam Reamur: ',r:4:1);
writeln('Suhu dalam Fahrenheit: ',f:4:1);
writeln('Suhu dalam Kelvin: ',k:4:1);
if c<20 then
begin
Write('Suhu terkategori ',p);
end;
readln;
end.
Langganan:
Postingan (Atom)