Pascal

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 = B
2
- 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 : 2
3
: 2 x 2 x 2 : 8
5
2
: 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.