Program Perkenalan;
uses wincrt;
begin
writeln(‘Selamat Datang di Turbo Pascal 1,5 (for Windows)’);
writeln(‘Selamat Belajar Algoritma dan Pemrograman’);
writeln(‘AMIK AL MA-SOEM’);
end.
Program Tambah;
uses wincrt;
var
a,b,c : integer;
begin
write(‘Nilai a : ‘); readln(a);
write(‘Nilai b : ‘); readln(b);
c:=a+b;
writeln(‘Nilai c : ‘,c);
readln;
end.
Nama : Susan
Golongan : 1
Gaji : 10.000 + 50.000
: 60.000
Program Gaji_1;
uses wincrt;
var
nama, gol : char;
gaji : longint;
begin
write(‘Nama : ‘); readln(nama);
write(‘Golongan : ‘); readln(gol);
gaji := 50000 + 10000;
writeln(‘gaji : ‘,gaji);
readln;
end.
Masukan sebuah bilangan :
Masukan sebuah nama :
Bilangan yang anda masukan :
Nama yang anda masukan :
Program Bilangan1;
uses wincrt;
var
nama,bilangan :string;
begin
write(‘Masukan sebuah bilangan : ‘); readln(bilangan);
write(‘Masukan sebuah nama : ‘); readln(nama);
writeln(‘Bilangan yang dimasukan adalah : ‘,bilangan);
writeln(‘Nama yang anda ketikkan adalah : ‘,nama);
readln;
end.
Diketahui : 2 buah titik P1(x1,y2) P2(x2,y2)
Ditanyakan : Titik tengah dari P1 dan P2
Rumus x3 = x1+x2/2 y3 = y1+y2/2
Program Koordinat;
uses wincrt;
var
x1,x2,y1,y2: integer;
x3,y3: real;
begin
write(‘x1 : ‘); readln(x1);
write(‘y1 : ‘); readln(y1);
write(‘x2 : ‘); readln(x2);
write(‘y2 : ‘); readln(y2);
writeln(‘Koordinat P1(‘,x1,’,',y1,’)');
writeln(‘Koordinat P2(‘,x2,’,',y2,’)');
x3:=(x1+y1)/2;
y3:=(x2+y2)/2;
writeln(‘Koordinat P3(‘,x3:1:0,’,',y3:1:0,’)');
readln;
end.
Salesman mendapat komisi 10 % dari hasil penjualan
Nama Salesman : Tono
Nilai Penjualan : Rp. 100.000
Komisi : Rp. 10.000
Program Komisi1;
uses wincrt;
var
nama_sales : char;
nilai_jual : longint;
komisi : real;
begin
write(‘Nama Salesman : ‘); readln(nama_sales);
write(‘Nilai Penjualan : Rp. ‘); readln(nilai_jual);
komisi := 0.10 * nilai_jual;
writeln(‘Komisi : Rp. ‘,komisi:2:0);
readln;
end.
A = 5 , B = 2
Hasil
A = 2 , B = 5
Program abc;
uses wincrt;
var
a,b,c : integer;
begin
write(‘a : ‘); readln(a);
write(‘b : ‘); readln(b);
c:=a;
a:=b;
b:=c;
writeln(‘a : ‘,a);
writeln(‘b : ‘,b);
readln;
end.
X = ( ½ * k ) + 2
Program Rumus_X;
uses wincrt;
var
x,k : real;
begin
write(‘Nilai K : ‘); readln(k);
x:=(0.5*k)+2;
writeln(‘Nilai X : ‘,x:2:4);
readln;
end.
D = B2 - 4 * A * C
Program Rumus_D;
uses wincrt;
var
a,b,c : integer;
d : real;
begin
write(‘Nilai A : ‘); readln(a);
write(‘Nilai B : ‘); readln(b);
write(‘Nilai C : ‘); readln(c);
d:=sqr(b)-(4*a*c);
writeln(‘Nilai D : ‘,d:2:2);
readln;
End.
Program Rumus_x2;
uses wincrt;
var
a,b,d,x : real;
begin
write(‘Nilai A : ‘); readln(a);
write(‘Nilai B : ‘); readln(b);
write(‘Nilai D : ‘); readln(d);
x:=(-b+sqrt(d))/(2*a);
writeln(‘Nilai X1 : ‘,x:2:2); readln(x);
readln;
end.
Tentukan program untuk bilangan ganjil
3 mod 1 = 1
4 mod 2 = 0
5 mod 2 = 1, Bilangan 3 adalah ganjil
Hasil = > Input Bilangan = 3
Bilangan 3 adalah bilangan ganjil
Program Bil2;
uses wincrt;
var
x : integer;
begin
write(‘Input Bilangan : ‘); readln(x);
if x mod 2 = 1 Then
write(‘Bilangan ‘,x,’ adalah bilangan ganjil’)
else
write(‘Bilangan ‘,x,’ adalah bilangan genap’);
readln;
end.
|
Jam Kerja |
Upah |
|
<= 48 |
Jk*5000 |
|
>48 |
Jk*5000+(jk-48)*6000 |
Output : Nama Karyawan : Shinta
Jumlah Jam Kerja : 50
Upah : Rp. 250.000
Program Jam_kerja;
uses wincrt;
var
nama : char;
jk, upah : longint;
begin
write(‘Nama Karyawan : ‘); readln(nama);
write(‘Jumlah Jam Kerja : ‘); readln(jk);
if jk<=48 then
upah:=jk*5000;
if jk>48 then
upah:=48*5000+(jk-48)*6000;
writeln(‘Upah yang diterima : Rp. ‘,upah);
readln;
end.
Program Luas1 ;
uses wincrt;
Var
pil : byte;
r,l,t,luas : real;
ulang : char;
begin
ulang:=’Y';
while upcase(ulang)<>’T’ do
begin
clrscr;
writeln(‘<<<<<<<<<<<<<< Pilihan >>>>>>>>>>>>>>’);
writeln(‘1. Menghitung Luas Lngkaran’);
writeln(‘2. Menghitung Luas Segitiga’);
writeln(‘3. Menghitung Luas Bujur Sangkar’);
writeln(‘0. Selesai’);
writeln(‘=====================================’);
write(‘Masukkan Pilihan Anda (0-3) ! ‘);
readln(pil);
writeln(‘=====================================’);
if pil=1 then
begin
write(‘Jari – jari Lingkaran : ‘);
readln(r);
luas:=pi*r*r;
writeln(‘Luas Lingkaran : ‘,luas:2:2);
readln;
end;
if pil=2 then
begin
write(‘Panjang sisi alas : ‘); readln(l);
write(‘Tinggi Segitiga : ‘); readln(t);
luas:=0.5*l*t;
writeln(‘ Luas Segitiga : ‘,luas:2:2);
readln;
end;
if pil=3 then
begin
write(‘Panjang Bujur Sangkar : ‘);
readln(l);
write(‘Luas Bujur SAngkar : ‘);
readln(t);
luas:=l*t;
writeln(‘Luas Bujur Sangkar : ‘,luas:2:2);
readln;
end;
writeln(‘====================================’);
write(‘Apakah Anda akan mengulang (Y/T) ? ‘);
readln(ulang);
end;
end.
|
Jam Kerja |
Upah |
|
<= 48 |
Jk*5000 |
|
>48 |
Jk*5000+(jk-48)*6000 |
Output : Nama Karyawan : Shinta
Jumlah Jam Kerja : 50
Upah : Rp. 250.000
Program Jam_kerja2;
uses wincrt;
var
nama : char;
jk, upah : longint;
begin
write(‘Nama Karyawan : ‘); readln(nama);
write(‘Jumlah Jam Kerja : ‘); readln(jk);
if jk<=48 then
upah:=jk*5000
else
upah:=48*5000+(jk-48)*6000;
writeln(‘Upah yang diterima : Rp. ‘,upah);
readln;
end.
Program Luas2 ;
uses wincrt;
Var
pil : byte;
r,l,t,luas : real;
ulang : char;
begin
ulang:=’Y';
while upcase(ulang)<>’T’ do
begin
clrscr;
writeln(‘<<<<<<<<<<<<<< Pilihan >>>>>>>>>>>>>>’);
writeln(‘1. Menghitung Luas Lngkaran’);
writeln(‘2. Menghitung Luas Segitiga’);
writeln(‘3. Menghitung Luas Bujur Sangkar’);
writeln(‘0. Selesai’);
writeln(‘=====================================’);
write(‘Masukkan Pilihan Anda (0-3) ! ‘);
readln(pil);
writeln(‘=====================================’);
if pil=1 then
begin
write(‘Jari – jari Lingkaran : ‘);
readln(r);
luas:=pi*r*r;
writeln(‘Luas Lingkaran : ‘,luas:2:2);
readln;
end
else if pil=2 then
begin
write(‘Panjang sisi alas : ‘); readln(l);
write(‘Tinggi Segitiga : ‘); readln(t);
luas:=0.5*l*t;
writeln(‘Luas Segitiga : ‘,luas:2:2);
readln;
end
else if pil=3 then
begin
write(‘Panjang Bujur Sangkar : ‘);
readln(l);
write(‘Luas Bujur SAngkar : ‘);
readln(t);
luas:=l*t;
writeln(‘Luas Bujur Sangkar : ‘,luas:2:2);
readln;
end;
writeln(‘====================================’);
write(‘Apakah Anda akan mengulang (Y/T) ? ‘);
readln(ulang);
end;
end.
Program Gapok;
uses wincrt;
var
nama, status : string;
jml_anak : integer;
tunj_anak : real;
gol : integer;
gapok : real;
gaji : real;
begin
write(‘Nama : ‘); readln(nama);
write(‘Status (N/TN) : ‘); read(status);
write(‘Jumlah Anak : ‘);
readln(jml_anak);
write(‘Gol : ‘); readln(gol);
if status = ‘N’ then
begin
if gol = 1 then
begin
tunj_anak:=10000;
gapok:=100000;
end
else;
if gol = 2 then
begin
tunj_anak:=20000;
gapok:=200000;
end
else;
begin
tunj_anak:=30000;
gapok:=300000;
end;
end;
if status = ‘TN’ then
begin
if gol = 1 then
gapok:=100000
else
if gol = 2 then
gapok:=200000
else
gapok:=300000;
end;
gaji:=(tunj_anak*jml_anak)+gapok;
writeln(‘gaji : Rp. ‘,gaji:8:0);
readln;
end.
Program Nilai1;
uses wincrt;
var
nilai : integer;
begin
write(‘Masukkan Sebuah Nilai : ‘); readln(nilai);
case nilai of
81..100 : writeln(‘Nilai Sangat Baik’);
61..80 : writeln(‘Nilai Baik’);
42..60 : writeln(‘Nilai Cukup’);
21..40 : writeln(‘Nilai Kurang’);
else
writeln(‘Nilai Sangat Kurang’);
end;
readln;
end.
Tentukan Gaji
Nama : susi
status : nikah/1
Gol : 1
Gaji : Rp.110.000.00
|
Nikah |
Gol |
Tunjangan anak |
Gaji pokok |
|
|
1 |
10.000 |
100.0000 |
|
|
2 |
20.000 |
200.0000 |
|
|
3 |
30.000 |
300.000 |
Program Gaji2;
uses wincrt;
var
nama, status : string;
jml_anak : integer;
tunj_anak : real;
gol : integer;
gapok : real;
gaji : real;
begin
write(‘Nama : ‘); readln(nama);
write(‘Status : ‘); read(status);
write(‘Jumlah Anak : ‘);
readln(jml_anak);
write(‘Gol : ‘); readln(gol);
if status=’Nikah’ Then
case gol of
1: begin
tunj_anak:=10000;
gapok:=100000;
end;
2: begin
tunj_anak:=20000;
gapok:=200000;
end;
3: begin
tunj_anak:=30000;
gapok:=300000;
end;
end
else
begin
case gol of
1: gapok:=100000;
2: gapok:=200000;
3: gapok:=300000;
end;
end;
gaji:=(tunj_anak*jml_anak)+gapok;
writeln(‘gaji : Rp. ‘,gaji:8:0);
readln;
end.
Output :
Nama Karyawan :
Masukkan Golongan :
Status Pernikahan :
Jumlah Anak :
|
Gol |
Gaji pokok |
Tunjangan Nikah |
Tunjangan Anak max = 2 |
|
1 |
600.000 |
20 % * Gapok |
Jum Anak * 5% * Gapok |
|
2 |
700.000 |
20 % * Gapok |
Jum Anak * 5% * Gapok |
|
3 |
800.000 |
20 % * Gapok |
Jum Anak * 5% * Gapok |
|
4 |
1.000000 |
20 % * Gapok |
Jum Anak * 5% * Gapok |
Program Gaji3;
uses wincrt;
var
gol,stat : char;
gatot,gapok,TA,TI : real;
JA : integer;
nama : String;
begin
clrscr;
write(‘Nama Karyawan : ‘);readln(nama);
write(‘Masukkan Golongan : ‘); readln(gol);
case gol of
‘1′: gapok:=600000;
‘2′: gapok:=700000;
‘3′: gapok:=800000;
‘4′: gapok:=1000000;
end;
write(‘Status pernikahan : ‘);
readln(stat);
case stat of
‘N’: begin
TI:=0.2*gapok;
write(‘Jumlah anak : ‘);
readln(JA);
if JA<=2 then
TA:=JA*0.05*gapok
else
TA:=2*0.05*gapok;
end;
end;
gatot:=gapok+TA+TI;
writeln(‘Gaji Total : Rp . ‘,gatot:2:2);
readln;
end.
Buatlah program kalkulator
Untuk perhitungan operasi + , – , * . /
Program Kalkulator;
uses wincrt;
var
a,b,c : real;
hitung : char;
begin
write(‘A : ‘); readln(a);
write(‘B : ‘); readln(b);
write(‘Hitung : ‘); readln(hitung);
case hitung of
‘+’: begin
c:=a+b;
end;
‘-’: begin
c:=a-b;
end;
‘*’: begin
c:=a*b;
end;
‘/’: begin
c:=a/b;
end;
end;
writeln(‘Hasil : ‘,a:0:0,’ ‘,hitung,’ ‘,b:0:0,’ = ‘,c:0:2);
readln;
end.
Jumlah Uang : Rp. 35000
Rp. 20000 : 1
Rp. 10000 : 1
Rp. 5000 : 1
Program Uang1;
uses wincrt;
const
a= 20000;
b= 10000;
c= 15000;
d= 5000;
e= 0;
var
x1,x2,x3 : real;
n,x : longint;
begin
write(‘Jumlah Uang : Rp. ‘); readln(n);
x:=n mod a;
case x of
e: begin
x1:=n/a;
x2:=e;
x3:=e;
end;
b: begin
x1:=(n-b)/a;
x2:=(n mod a)/b;
x3:=e;
end;
c: begin
x1:=(n-c)/a;
x2:=((n mod a)-d)/b;
x3:=((n mod a)-b)/d;
end;
d: begin
x1:=(n-d)/a;
x2:=e;
x3:=(n mod a)/d;
end;
end;
writeln(‘Rp. 20.000 : ‘,x1:0:0);
writeln(‘Rp. 10.000 : ‘,x2:0:0);
writeln(‘Rp. 5.000 : ‘,x3:0:0);
readln;
end.
Output : <<<<<<<<<<<<<<< Pilihan >>>>>>>>>>>>>>>
1. Menghitung Luas Lingkaran
2. Menghitung Luas Segitiga
3. Menghitung Luas Bujur Sangkar
0. Selesai
====================================
Masukkan Pilihan Anda ! 3
====================================
Panjang Bujur Sangkar : 6
Lebar Bujur Sangkar : 5
Luas Bujur Sangkar : 30.00
====================================
Apakah Anda akan mengulang program (Y/T) ?
Program keluar bila menekan T
Program Luas1 ;
uses wincrt;
Var
pil : byte;
r,l,t,luas : real;
ulang : char;
begin
ulang:=’Y';
while upcase(ulang)<>’T’ do
begin
clrscr;
writeln(‘<<<<<<<<<<<<<< Pilihan >>>>>>>>>>>>>>’);
writeln(‘1. Menghitung Luas Lngkaran’);
writeln(‘2. Menghitung Luas Segitiga’);
writeln(‘3. Menghitung Luas Bujur Sangkar’);
writeln(‘0. Selesai’);
writeln(‘=====================================’);
write(‘Masukkan Pilihan Anda (0-3) ! ‘);
readln(pil);
writeln(‘=====================================’);
case pil of
1: begin
write(‘Jari – jari Lingkaran : ‘);
readln(r);
luas:=pi*r*r;
writeln(‘Luas Lingkaran : ‘,luas:2:2);
end;
2: begin
write(‘Panjang sisi alas : ‘); readln(l);
write(‘Tinggi Segitiga : ‘); readln(t);
luas:=0.5*l*t;
writeln(‘Luas Segitiga : ‘,luas:2:2);
end;
3: begin
write(‘Panjang Bujur Sangkar : ‘);
readln(l);
write(‘Luas Bujur SAngkar : ‘);
readln(t);
luas:=l*t;
writeln(‘Luas Bujur Sangkar : ‘,luas:2:2);
end;
end;
writeln(‘=====================================’);
write(‘Apakah Anda akan mengulang (Y/T) ? ‘);
readln(ulang);
end;
end.
Output :
*
**
***
****
*****
****
***
**
*
Program Bintang ;
uses wincrt;
var
i,j,n : integer;
begin
clrscr;
write(‘Jumlah Bintang : ‘); readln(n);
for i:=1 to n do
begin
for j:=1 to i do write(‘*’);
writeln;
if i=n then
begin
for i:=(n-1) downto 1 do
begin
for j:=1 to i do
write(‘*’);
writeln;
end;
readln;
end;
end;
end.
———————————————-
a a*a a*a*a 1/a
———————————————-
1 1 1 1.000
2 4 8 0.500
3 9 27 0.333
4 16 64 0.250
5 25 125 0.200
———————————————-
Program Hitung ;
uses wincrt;
var
a,b,c,d : Integer;
bagi : Real;
begin
Writeln(‘——————————–’);
Writeln(‘ a a*a a*a*a 1/a ‘);
Writeln(‘——————————–’);
for a := 1 to 5 do
begin
b:= a*a;
c:=a*a*a;
bagi := 1/a;
Writeln(a:3,b:8,c:8,bagi:8:3);
end;
Writeln (‘——————————–’);
readln;
end.
Program Hitung2 ;
uses wincrt;
var
a,b,c,d : Integer;
bagi : Real;
begin
Writeln(‘——————————–’);
Writeln(‘ a a*a a*a*a 1/a ‘);
Writeln(‘——————————–’);
for a := 10 downto 1 do
begin
b:= a*a;
c:=a*a*a;
bagi := 1/a;
Writeln(a:3,b:8,c:8,bagi:10:3);
end;
Writeln (‘——————————–’);
readln;
end.
Program Hitung3 ;
uses wincrt;
var
fah,cel : real;
x : integer;
begin
Writeln(‘——————————’);
Writeln(‘ Celcius Fahrenheit ‘);
Writeln(‘——————————’);
cel:=0;
for x := 1 to 10 do
begin
fah:=(1.8*cel)+32;
writeln(cel:8:2,fah:15:2);
cel:=cel+0.25;
end;
Writeln (‘—————————–’);
readln
end.
Output 1 1 1 2 1 3 1 4 1 5
2 1 2 2 2 3 2 4 2 5
3 1 3 2 3 3 3 4 3 5
4 1 4 2 4 3 4 4 4 5
5 1 5 2 5 3 5 4 5 5
Program Angka ;
uses wincrt;
Var
a,b : Integer;
Begin
For a:=1 To 5 Do
Begin
For b:=1 To 5 Do Write (a :4,b:2);
Writeln;
End;
End.
Program Angka2;
uses wincrt;
Var
a,b : Integer;
Begin
For a:=5 downto 1 Do
Begin
For b:=5 downto 1 Do Write (a :4,b:2);
Writeln;
End;
End.
Output : 1 2 3 4 5 6 7 8 9 10 10 9 8 7 6 5 4 3 2 1
Program Angka3;
uses wincrt;
var
i: integer;
begin
for i:=1 to 10 do
write(i:3);
if i>=10 then
for i:=10 downto 1 do
write(i:3);
readln;
end.
Output:
1
121
12321
1234321
123454321
Program angka;
uses wincrt;
var
i,j,n : integer;
begin
clrscr;
write(‘Masukkan Sebuah : ‘); readln(n);
for i:=1 to n do
begin
for j:=1 to i do
write(j);
if j>=i then
begin
for j:=(i-1) downto 1 do
write(j);
writeln;
end;
readln;
end;
end.
Output:
1 2 3 4 5
2 4 6 8 10
3 6 9 12 15
4 8 12 16 20
5 10 15 20 25
Program angka;
uses wincrt;
var
i,x,n : integer;
begin
clrscr;
write(‘Masukkan Bilangan : ‘); readln(n);
writeln;
for i:=1 to n do
begin
for x:=1 to n do
begin
write(i*x:5);
end;
writeln;
readln;
end;
end.
Output: 1
2
3
4
5
Program angka4;
uses wincrt;
var
i: integer;
begin
i:=1;
while i<=5 do
begin
writeln(i);
i:=i+1;
readln;
end;
readln;
end.
Proses 1 + 2 + 3 = 6
Output
Jumlah Total = 6
Program Jumlah1;
uses wincrt;
var
n,i,jum : integer;
rata : real;
begin
write(‘Banyaknya Data : ‘); read(n);
begin
jum:=0;
i:=1;
while i<=n do
begin
jum:=jum+i;
write(i:3);
i:=i+1;
end;
rata:=jum/n;
writeln;
writeln(‘Jumlah Total : ‘,jum);
writeln(‘Rata – rata : ‘,rata:2:2);
readln;
end;
end.
Output
Anak Ayam Turun 10, Mati 1 Tinggal 9
Anak Ayam Turun 1, Mati 1 Tinggal Induknya
Program Ayam ;
uses wincrt;
var
k : integer;
begin
write(‘Turun : ‘); readln(k);
while k>1 do
begin
writeln(‘Anak ayam turun ‘,k,’ mati 1 tinggal ‘,k-1:1);
k:=k-1;
end;
if k=1 then
writeln(‘Anak ayam turun ‘,k,’ mati 1 tinggal Induknya’);
readln
end.
Output
Masukkan Data ? 2
Data Ke – 1 : 2
Data Ke – 2 : 3
Total : 5
Program Data ;
uses wincrt;
var
k,i,n,total : integer;
begin
write(‘Masukkan Jumlah data : ‘); readln(n);
i:=1;
total:=0;
while i<=n do
begin
write(‘Data Ke ‘,i,’ ? ‘);
readln(k);
i:=i+1;
total:=total+k;
end;
writeln(‘Total : ‘,total);
readln;
end.
Output
Masukan Jumlah Data ? 2
Data Ke – 1 : 3
Data Ke – 2 : 3
===================
Jumlah Data : 2
Jumlah Total : 6
Rata – Rata : 3
===================
Masukkan Data Kembali (Y/T) ? Y
Jika Y, Program diulang kembali
Program Data2;
uses wincrt;
var
i,n,nilai,total : integer;
rata : real;
ulang : char;
begin
clrscr;
ulang:=’Y';
while upcase(ulang)=’Y’ do
begin
clrscr;
write(‘Masukkan Jumlah data : ‘); readln(n);
i:=1;
total:=0;
while i<=n do
begin
write(‘Data Ke – ‘,i,’ ? ‘);
readln(nilai);
i:=i+1;
total:=total+nilai;
end;
rata:=total/n;
writeln(‘==================’);
writeln(‘Jumlah Data : ‘,n);
writeln(‘Jumlah total : ‘,total);
writeln(‘Rata – rata : ‘,rata:2:2);
writeln(‘==================’);
write(‘Masukkan data kembali (Y/T) ? ‘);
readln(ulang);
end;
end.
Output Menu Masakan
1. Baso
2. Tahu
3. Kue
4. Exit
Pilihan Anda ? 1
Anda Memilih Makan Baso
Ulangi (Y/T) ? T
Jika T, Anda Keluar dari Program
Program Masakan ;
uses wincrt;
var
pilih : byte;
ulang : char;
begin
clrscr;
ulang:=’Y';
while ulang<>’T’ do
begin
clrscr;
writeln(‘Menu Masakan’);
writeln(‘1. Baso’);
writeln(‘2. Tahu’);
writeln(‘3. Kue’);
writeln(‘4. Exit’);
write(‘Pilihan Anda ? ‘);
readln(pilih);
writeln(‘==================================’);
case pilih of
1: writeln(‘Anda memilih makan Baso’);
2: writeln(‘Anda memilih makan Tahu’);
3: writeln(‘Anda memilih makan Kue’);
end;
writeln(‘==================================’);
write(‘Apakan anda akan mengulang (Y/T) ? ‘);
readln(ulang);
end;
end.
Output : 5 ! : 1 x 2 x 3 x 4 x 5: 120
3 ! : 1 x 2 x 3 : 6
Program Faktorial ;
uses wincrt;
var
i,n,tot : integer;
begin
write(‘Masukkan Bilangan : ‘); readln(n);
i:=1;
tot:=1;
while i<=n do
begin
tot:=tot*i;
i:=i+1;
end;
writeln(n,’! : ‘,tot);
readln;
end.
Nilai Awal : 10
Selisih : 3
Diulang : 4 Kali
Program Angka5 ;
uses wincrt;
var
i,n,ulang,a : integer;
begin
write(‘Nilai Awal : ‘); readln(n);
write(‘Selisih : ‘); readln(i);
write(‘Diulang : ‘); readln(ulang);
a:=1;
while a<=ulang do
begin
write(n:3);
a:=a+1;
n:=n+i;
end;
readln;
end.
Output : 23 : 2 x 2 x 2 : 8
52 : 5 x 5 : 25
Program Pangkat ;
uses wincrt;
var
i,n,x,tot : integer;
begin
write(‘Bilangan : ‘); readln(n);
Write(‘Pangkat : ‘); readln(x);
i:=1;
tot:=1;
while i<=x do
begin
tot:=tot*n;
i:=i+1;
end;
writeln(n,’^',x,’ : ‘,tot);
readln;
end.
Deret Fibonanci : 1 1 2 3 5 …
Program Fibonanci ;
uses wincrt;
var
i,n,x,a,tot : integer;
begin
write(‘Nilai Awal : ‘); readln(n);
write(‘diulang : ‘); readln(x);
i:=1;
a:=1;
tot:=0;
while i<=x do
begin
write(n:3);
n:=n+tot;
tot:=tot+a;
a:=n-tot;
i:=i+1;
end;
end.
Nilai Data ke 1 ? 5
Nilai Data ke 2 ? 6
Nilai Data ke 3 ? 99999
=================================
Total Nilai :
Jumlah Data :
Rata- rata :
=================================
Apakah akan megulang program (Y/T) ?
Program Nilai ;
uses wincrt;
Var
nilai,total,rata : real;
i : integer;
ulang : char;
begin
ulang:=’Y';
while ulang=’Y’ do
begin
clrscr;
i:=0;
total:=0;
nilai:=0;
while nilai<>99999 do
begin
i:=i+1;
write(‘Nilai data ke ‘,i,’ ? ‘);
readln(nilai);
total:=total+nilai;
end;
total:=total-99999.0;
i:=i-1;
rata:=total/i;
writeln(‘======================================’);
writeln(‘Total Nilai : ‘,total:2:2);
writeln(‘Jumah Data : ‘,1:3);
writeln(‘Rata rata : ‘,rata:2:2);
writeln(‘======================================’);
write(‘Apakah akan mengulang program (Y/T) ? ‘);
readln(ulang);
end;
end.
Output Banyak Data : 5
1 2 3 4 5
Jumlah Data : 15
Rata – rata : 3.00
Program Angka6 ;
uses wincrt;
var
n,i,jum : integer;
rata : real;
begin
clrscr;
write(‘Banyak Data : ‘); readln(n);
jum:=0;
i:=0;
repeat
i:=i+1;
write(i:3);
jum:=jum+i;
rata:=jum/i;
until i>=n;
writeln;
writeln(‘Jumlah Data : ‘,jum);
writeln(‘Rata – rata : ‘,rata:2:2);
readln;
end.
Output :
Program Sisi ;
uses wincrt;
var
a,b,c : real;
begin
writeln(‘================================’);
writeln(’sisi A sisi B sisi C ‘);
writeln(‘================================’);
a:=1;
repeat
b:=0;
repeat
c:=sqr(a*a+b*b);
writeln(a:5:2,b:12:2,c:15:2);
b:=b+5;
until b>15;
a:=a+1;
until a>3;
writeln(‘================================’);
end.
Banyak Data : 5
========================
1 2 3 4 5
========================
Jumlah Data : 15
Rata – rata : 3.00
========================
Ingin menghitung lagi (Y/T) ?
Program berhenti bila manekan ‘T’
Program Data3 ;
uses wincrt;
var
n,i,jum : integer;
rata : real;
ulang : char;
begin
repeat
clrscr;
write(‘Banyak Data : ‘); readln(n);
jum:=0;
i:=1;
writeln(‘==============================’);
repeat
jum:=jum+i;
write(i:3);
i:=i+1;
until i>n;
writeln;
writeln(‘==============================’);
rata:=jum/n;
writeln(‘Jumlah Data : ‘,jum);
writeln(‘Rata – rata : ‘,rata:2:2);
writeln(‘==============================’);
write(‘Ingin menghitung lagi (Y/T) ? ‘);
readln(ulang);
until ulang=’T’
end.
