Jenis-jenis program
pascal____________________________________________________
Source code
|
program bublesort;
uses
crt;
const nmaks=100;
type
tabinteger=
array[1..nmaks] of integer;
var
tabint:
tabinteger;
jml_data:
integer;
procedure
inputdata (n: integer;var t: tabinteger);
var
i:
integer;
begin
for i:=1
to n do
begin
write('Nilaike-',i,': '); readln(t[i]);
end;
end;
procedure
bubblesort (n: integer; var t: tabinteger);
var
pass,k,temp:
integer;
begin
for
pass:=1 to(n-1) do
for
k:= n downto (pass+1) do
if
t[k]< t[k-1] then
begin
temp:= t[k];
t[k]:=t[k-1];
t[k-1]:=temp;
end;
end;
procedure
output (n: integer; t:tabinteger);
var
J:
integer;
Begin
Writeln(‘data setelah diurutkan menaik’);
For j:=
1 to n do
Writeln(‘data ke-‘,j,’: ‘,T[j]);
end;
begin;
clrscr;
write('Banyaknya integer: '); readln(jml_data);
inputdata(jml_data, tabint);
writeln;
bubblesort(jml_data, tabint);
output(jml_data, tabint);
readln;
end.
|
Analisa
Program
Program bubble sort memenggil 2
procedure yaitu procedure input data ( dengan parameter jml_data sebagai input
untuk parameter input n dan tabint sebagai output untuk parameter output T )
dan procedure bubble sort (dengan jml_data sebagai input untuk parameter input
n dan tabint sebagai input sekaligus output untuk parameter input/output T ).
Program 3.2
Source code
|
program maxsort;
uses
crt;
const nmaks=100;
type
tabinteger= array[1..nmaks] of integer;
var
tabint: tabinteger;
jml_data: integer;
procedure input (n: integer; var t: tabinteger);
var
i: integer;
begin
for i:=n downto 2 do
begin
write('Nilaike-',i,': ');
readln(t[i]);
end;
end;
procedure makssort (n: integer; var t: tabinteger);
var
pass,k,imaks,i, temp: integer;
begin
for pass:=n downto 2 do
begin
imaks:=1;
for k:= 2 to (pass) do
if (t[k]> t[imaks]) then
imaks:= k;
temp:=t[pass];
t[pass]:=t[imaks];
t[imaks]:=temp;
end;
end;
procedure output (n: integer; t:tabinteger);
var
i: integer;
begin
for i:=1 to n do
write(t[i],' ');
end;
begin;
clrscr;
write('Banyaknya integer: '); readln(jml_data);
input(jml_data, tabint);
writeln;
makssort(jml_data, tabint);
output(jml_data, tabint);
readln;
end.
|
Analisa
Program
Pengurutan
program ini dilakukan dengan mencari nilai terbesar/maksimum dari suatu array.
Nilai terbesar tersebut kemudian disimpan di awal array ( jika diurutkan
menurun ) atau di akhit array ( jika diurutkan menaik ) dan diisolasi agar
tidak diikut sertakan lagi pada proses selanjutnya.
Program 3.3
Source code
|
program min_sort;
uses
crt;
const nmaks=100;
type
tabinteger=
array[1..nmaks] of integer;
var
tabint:
tabinteger;
jml_data:
integer;
procedure
input (n: integer; var t: tabinteger);
var
i:
integer;
begin
for i:=n
downto 2 do
begin
write('Nilaike-',i,': '); readln(t[i]);
end;
end;
procedure
minsort (n: integer; var t: tabinteger);
var
imin,k,i, temp: integer;
begin
for i:=1
to (n-1) do
begin
imin:=i;
for k:=(i+1) to n do
if (t[k] > t[imin]) then
imin:= k;
end;
temp:=t[i];
t[i]:=t[imin];
t[imin]:=temp;
end;
procedure
output (n: integer; t:tabinteger);
var
i:
integer;
begin
for i:=1
to n do
write(t[i],' ');
end;
begin;
clrscr;
write('Banyaknya
integer: '); readln(jml_data);
input(jml_data, tabint);
writeln;
minsort(jml_data, tabint);
output(jml_data, tabint);
readln;
end.
|
Analisa
Program
Pengurutan
model ini dilakukan dengan mencari nilai terkecil/minimum dari suatu array.
Nilai terkecil tersebut kemudian disimpan diawal array ( jika diurutkan menaik
) atau di akhir array ( jika diurutkan menurun ) dan diisolasi agar tidak
disertakan lagi pada proses selanjutnya.
LATIHAN.
Latihan No. 1
|
program bublesort;
uses
crt;
const nmaks=100;
type
tabinteger= array[1..nmaks] of integer;
var
tabint: tabinteger;
jml_data: integer;
procedure inputdata (n: integer;var t: tabinteger);
var
i: integer;
begin
for i:=1 to n do
begin
write('Nilaike-',i,': ');
readln(t[i]);
end;
end;
procedure bubblesort (n: integer; var t: tabinteger);
var
pass,k,temp: integer;
begin
for pass:=1 to(n-1) do
for k:= n downto (pass+1) do
if t[k]> t[k-1] then
begin
temp:= t[k];
t[k]:=t[k-1];
t[k-1]:=temp;
end;
end;
procedure output (n: integer; t:tabinteger);
var
i: integer;
begin
for i:=1 to n do
write(t[i],' ');
end;
begin;
clrscr;
write('Banyaknya integer: '); readln(jml_data);
inputdata(jml_data, tabint);
writeln;
bubblesort(jml_data, tabint);
output(jml_data, tabint);
readln;
end.
|
Analisa
Program
Program
bubble sort memenggil 2 procedure yaitu procedure input data ( dengan parameter
jml_data sebagai input untuk parameter input n dan tabint sebagai output untuk
parameter output T ) dan procedure bubble sort (dengan jml_data sebagai input
untuk parameter input n dan tabint sebagai input sekaligus output untuk
parameter input/output T ).
Latihan No. 2
|
program nimmahasiswa;
uses
crt;
const nmaks=100;
type
mahasiswa=record
nim:integer;
nama:string;
nilai:char;
end;
tabmhs=array[1..nmaks] of mahasiswa;
var
mhs:tabmhs;
jml_data: integer;
procedure inputdata (n: integer);
var
i: integer;
begin
for i:=1 to n do
begin
write('masukan nim ',i,' : ');readln(mhs[i].nim);
write('masukan nama : ');readln(mhs[i].nama);
write('masukan nilai : ');readln(mhs[i].nilai);
writeln;
end;
end;
procedure bubblesort (n: integer);
var
pass,i: integer;
temp: mahasiswa;
begin
for pass:=1 to(n-1) do
for i:= n downto (pass+1) do
if mhs[i].nim < mhs[i-1].nim then
begin
temp:=mhs[i];
mhs[i]:=mhs[i-1];
mhs[i-1]:=temp;
end;
end;
procedure output (n: integer);
var
i: integer;
begin
for i:=1 to n do
writeln(mhs[i].nim,' ',mhs[i].nama,'
',mhs[i].nilai);
end;
begin;
clrscr;
write('Banyaknya data mahasiswa: '); readln(jml_data);
inputdata(jml_data);
writeln;
bubblesort(jml_data);
output(jml_data);
readln;
end.
|
Analisa
Program
Program
bubble sort memenggil 2 procedure yaitu procedure input data ( dengan parameter
jml_data sebagai input untuk parameter input n dan tabint sebagai output untuk
parameter output T ) dan procedure bubble sort (dengan jml_data sebagai input
untuk parameter input n dan tabint sebagai input sekaligus output untuk
parameter input/output T ).
Program ini
mengurutkan data yang terdiri dari NIM, Nama, Nilai diurutkan berdasarkan NIM.
Latihan No. 3
|
program min_sort;
uses
crt;
const nmaks=100;
type
tabinteger= array[1..nmaks] of integer;
var
tabint: tabinteger;
jml_data: integer;
procedure input (n: integer; var t: tabinteger);
var
i: integer;
begin
for i:=n downto 2 do
begin
write('Nilaike-',i,': '); readln(t[i]);
end;
end;
procedure minsort (n: integer; var t: tabinteger);
var
imin,k,i, temp: integer;
begin
for i:=1 to (n-1) do
begin
imin:=i;
for k:=(i+1) to n do
if (t[k] < t[imin]) then
imin:= k;
end;
temp:=t[i];
t[i]:=t[imin];
t[imin]:=temp;
end;
procedure output (n: integer; t:tabinteger);
var
i: integer;
begin
for i:=1 to n do
write(t[i],' ');
end;
begin;
clrscr;
write('Banyaknya integer: '); readln(jml_data);
input(jml_data, tabint);
writeln;
minsort(jml_data, tabint);
output(jml_data, tabint);
readln;
end.
|
Analisa Program
Pengurutan
model ini dilakukan dengan mencari nilai terkecil/minimum dari suatu array.
Nilai terkecil tersebut kemudian disimpan diawal array ( jika diurutkan menaik
) atau di akhir array ( jika diurutkan menurun ) dan diisolasi agar tidak
disertakan lagi pada proses selanjutnya.
Latihan No. 4
|
program Min_Sort;
uses
crt;
const
nmax =
100;
type
tabinteger
= array [1..nmax] of integer;
var
tabint :
tabinteger;
jml_data :
integer;
procedure
inputdata(n : integer; var T : tabinteger);
var
i :
integer;
begin
for i
:= 1 to n do
begin
write('NIlai ke ',i,' : '); readln (T[i]);
end;
end;
procedure
minSsort(n : integer; var T : tabinteger);
var
i, k,
imin, temp : integer;
begin
for i
:= n downto 2 do
begin
imin := i;
for k := 1 to (i-1) do
if (T[k] < T[imin]) then
imin := k;
temp := T[i];
T[i] := T[imin];
T[imin] := temp;
end;
for k := 1 to n do
write(T[k]:3);
end;
begin
clrscr;
write('Banyaknya nilai integer : '); readln(jml_data);
inputdata(jml_data,tabint); writeln;
MinSsort(jml_data,tabint);
readln;
end.
|
Analisa
Program
Program
ini hasil implementasi dari prosedur MinSort pada algoritma 3.3 ke dalam
prosedur dalam Bahasa Pascal yang berfungsi untuk memanggil prosedur tersebut
untuk mengurutkan data dari nilai terbesar sampai nilai terkecil dari array
tersebut.
Latihan No. 5
|
program max_sort;
uses crt;
const nmaks=100;
type tabinteger=array[1..nmaks]of integer;
var
tabint:tabinteger;
jml_data:integer;
procedure
inputdata(n:integer;var t:tabinteger);
var
i:integer;
begin
for
i:=1 to n do
begin
write('nilai ke-',i,': ');
readln(t[i]);
end;
end;
procedure
maxsort(n:integer;var t:tabinteger);
var
i,k,max,temp:integer;
begin
for
i:=n downto 2 do
begin
max:=i;
for k:=1 to (i-1) do
if t[k]<t[max] then
max:=k;
temp:=t[i];
t[i]:=t[max];
t[max]:=temp;
end;
for
i:=1 to n do
write(t[i],' ');
end;
begin
clrscr;
write('banyaknya integer: ');
readln(jml_data);
inputdata(jml_data,tabint);
writeln;
maxsort(jml_data,tabint);
readln;
end.
|
Analisa
Program
Program ini
mengurutkan data secara menurun sehingga digunakan progam maximum sort.
Pengurutan program ini dilakukan dengan mencari nilai terbesar/maksimum dari
suatu array. Nilai terbesar tersebut kemudian disimpan di awal array ( jika
diurutkan menurun ) atau di akhit array ( jika diurutkan menaik ) dan diisolasi
agar tidak diikut sertakan lagi pada proses selanjutnya.
Latihan No. 6
|
program datamhs;
uses crt;
const nmaks=5;
type
mhs=record
nim,nilai:integer;
nama:string;
end;
var
data:array[1..nmaks]of mhs;
i,j,n,p,x,a,b,t,id:integer;
u:char;
procedure
inputdata;
begin
for
i:=1 to n do
begin
write('nim',i,'(3 digit terakhir): ');
readln(data[i].nim);
write('nama',i,': ');
readln(data[i].nama);
write('nilai',i,': ');
readln(data[i].nilai);
end;
end;
procedure
minsort;
var
min,a,c:integer;
b:string;
begin
for
i:=1 to (n-1) do
begin
min:=i;
for j:=i+1 to n do
if data[j].nim<data[min].nim then
min:=j;
a:=data[i].nim;
b:=data[i].nama;
c:=data[i].nilai;
data[i].nim:=data[min].nim;
data[i].nama:=data[min].nama;
data[i].nilai:=data[min].nilai;
data[min].nim:=a;
data[min].nama:=b;
data[min].nilai:=c;
end;
writeln('====================================');
writeln('nim':6,'nama':16,'nilai':14);
writeln('====================================');
for
i:=1 to n do
writeln(data[i].nim:8,data[i].nama:18,data[i].nilai:7);
end;
procedure binsearch;
begin
write('nim yang dicari: ');
readln(x);
a:=1;
b:=n;
t:=(a+b) div 2;
while
(a<=n) and (data[t].nim<>x) do
begin
if data[t].nim>x then
b:=t-1
else
if data[t].nim<x then
a:=t+1;
t:=(a+b) div 2;
end;
if
data[t].nim=x then
id:=t
else
id:=0;
if
id=0 then
writeln('data tidak ditemukan')
else
writeln('nama: ',data[t].nama,'; nilai: ',data[t].nilai);
end;
begin
clrscr;
repeat
clrscr;
writeln('menu');
writeln('1. input data');
writeln('2. sorting nim');
writeln('3. searching nim');
write('masukkan pilihan: ');
readln(p);
case p of
1:begin
write('banyaknya
integer: ');
readln(n);
inputdata;
end;
2:minsort;
3:binsearch;
end;
write('kembali ke menu(y/t)? ');
readln(u)
until
(u='t') or (u='T');
readln;
end.
|
Analisa
Program
Program ini
menggunakan metode maksimum sort dan minimum sort dan menambahkan menu input
data dan search berdasarkan NIM,dengan menggunakan metode binary search,pada
program ini mencampurkan banyak metode.
Latihan
No 7 program tampilan tabel data
Program Data_Mahasiswa;
uses crt;
var
Nama :array[1..10]of string[10];
Nim :array[1..10]of string[20];
Mata_Kuliah :array[1..20]of string[20];
Fakultas :array[1..20]of string[30];
Jurusan :array[1..30]of string[30];
i,j :integer;
begin
clrscr;
write('
Masukkan Jumlah Mahasiswa : '); readln(j);
for i:=1 to j do
begin
writeln('
Mahasiswa ke-',i);
write('
Nama : '); readln(Nama[i]);
write('
Nim : '); readln(Nim[i]);
write('
Mata_Kuliah : ');
readln(Mata_Kuliah[i]);
write('
Fakultas : '); readln(Fakultas[i]);
write('
Jurusan : '); readln(Jurusan[i]);
end;
clrscr;
writeln('____________________________________________________________________________');
writeln(' No
| Nama |
Nim | Mata_Kuliah | Fakultas
| Jurusan |');
writeln('____________________________________________________________________________');
for i:= 1 to j do
begin
writeln(i:1,
Nama[i]:8, Nim[i]:12, Mata_Kuliah[i]:14, Fakultas[i]:17, Jurusan[i]:20);
end;
writeln('____________________________________________________________________________');
readln;
end.
Latihan
No.8 Program searching dan sorting
Program Sorting_searching;
uses crt;
Type
Larik = Array [1..1000] of Integer;
var
pil, I, N, J, Tmp, Temp, Mx, Min, U: Integer;
L: Larik;
mat : array[1..2,1..2] of byte;
jb : char;
Procedure InputData;
Begin
For I := 1 To N Do
Begin
Write(‘Data Ke-’, I, ‘: ‘); Readln(L[I]);
end;
end;
Procedure SORT(L : Larik; N : Integer);
label awal;
begin
awal:
clrscr;
textcolor(4);
writeLn(‘PROGRAM SORTING SEDERHANA’);
WriteLn(‘=====================================‘);
WriteLn(‘Di Susun Oleh:’);
WriteLn(‘=====================================‘);
WriteLn(‘ADIP’);
WriteLn(‘AMAD’);
WriteLn(‘HARJANTO’);
textcolor(14);
WriteLn(‘=====================================‘);
writeln(‘Tanggal pembuatan program 07 Mei 2012′);
WriteLn(‘=====================================‘);
writeln(‘–PILIHAN SORT–’);
WriteLn(‘=====================================‘);
textcolor(2);
writeln(‘ 1. Bubble Sort ASCENDING’);
writeln(‘ 2. Bubble Sort DESCENDING’);
writeln(‘ 3. Maximum Sort ASCENDING’);
writeln(‘ 4. Maximum Sort DESSCENDING’);
writeln(‘ 5. Minimum Sort ASCENDING’);
writeln(‘ 6. Minimum Sort DESCENDING’);
writeln(‘ 7. Insertion Sort ASCENDING’);
writeln(‘ 8. Insertion Sort DESCENDING’);
writeln(‘ 9. EXIT Program ATAU Masukkan Data Yang Baru’);
WriteLn(‘=====================================‘);
writeln;
write(‘PILIHAN ANDA ADALAH :’);readln(pil);
case pil of
1:begin
ClrScr;
For I := 1 To N-1 Do
Begin
For J := N-1 DownTo I Do
Begin
If L[J] > L[J+1] Then
Begin
Tmp := L[J];
L[J] := L[J+1];
L[J+1] := Tmp;
End;
End;
End;
WriteLn(‘PROGRAM BUBBLE SORTING ASCENDING’);
WriteLn(‘==================================‘);
writeln(‘Data setelah diurutkan : ‘);
WriteLn;
For I := 1 To N Do
Begin
Write(L[I], ‘ ‘);
End;
WriteLn;
WriteLn;
WriteLn(‘==================================‘);
WriteLn(‘Tekan ENTER Untuk Kembali Ke Menu’);
ReadLn;
goto awal;
End;
2:Begin
ClrScr;
For I := 1 To N-1 Do
Begin
For J := N-1 DownTo I Do
Begin
If L[J] < L[J+1] Then
Begin
Tmp := L[J];
L[J] := L[J+1];
L[J+1] := Tmp;
End;
End;
End;
WriteLn(‘PROGRAM BUBBLE SORTING DESCENDING’);
WriteLn(‘==================================‘);
writeln(‘Data setelah diurutkan : ‘);
WriteLn;
For I := 1 To N Do
Begin
Write(L[I], ‘ ‘);
End;
WriteLn;
WriteLn;
WriteLn(‘==================================‘);
WriteLn(‘Tekan ENTER Untuk Kembali Ke Menu’);
ReadLn;
goto awal;
End;
3:Begin
ClrScr;
U := N;
For I := 1 To N-1 Do
Begin
Mx := 1;
For J := 2 To U Do
Begin
If L[J] > L[Mx] Then Mx := J;
End;
Tmp := L[U];
L[U] := L[Mx];
L[Mx] := Tmp;
U := U-1;
End;
WriteLn(‘PROGRAM SELECTION MAXIMUM ASCENDING’);
WriteLn(‘==================================‘);
writeln(‘Data setelah diurutkan : ‘);
WriteLn;
For I := 1 To N Do
Begin
Write(L[I], ‘ ‘);
End;
WriteLn;
WriteLn;
WriteLn(‘==================================‘);
WriteLn(‘Tekan ENTER Untuk Kembali Ke Menu’);
ReadLn;
goto awal;
end;
4:Begin
ClrScr;
U := N;
For I := 1 To N-1 Do
Begin
Mx := 1;
For J := 2 To U Do
Begin
If L[J] < L[Mx] Then Mx := J;
End;
Tmp := L[U];
L[U] := L[Mx];
L[Mx] := Tmp;
U := U-1;
End;
WriteLn(‘PROGRAM SELECTION MAXIMUM DESCENDING’);
WriteLn(‘==================================‘);
writeln(‘Data setelah diurutkan : ‘);
WriteLn;
For I := 1 To N Do
Begin
Write(L[I], ‘ ‘);
End;
WriteLn;
WriteLn;
WriteLn(‘==================================‘);
WriteLn(‘Tekan ENTER Untuk Kembali Ke Menu’);
ReadLn;
goto awal;
end;
5:Begin
clrscr;
U := N;
for i:= 1 to N-1 do
begin
Min := 1;
for J:=2 to U do
begin
if L[J] > L[Min] then Min :=J;
end;
temp:= L[U];
L[U] := L[Min];
L[Min] := Temp;
U:= U-1;
end;
writeln(‘PROGRAM SELECTION MINIMUM ASCENDING’);
WriteLn(‘==================================‘);
writeln(‘Data setelah diurutkan : ‘);
writeln;
for i:=1 to N do
begin
write(L[i], ‘ ‘ );
end;
WriteLn;
WriteLn;
WriteLn(‘==================================‘);
WriteLn(‘Tekan ENTER Untuk Kembali Ke Menu’);
readln;
goto awal;
end;
6:Begin
clrscr;
U := N;
for i:= 1 to N-1 do
begin
Min := 1;
for J:=2 to U do
begin
if L[J] < L[Min] then Min :=J;
end;
temp:= L[U];
L[U] := L[Min];
L[Min] := Temp;
U:= U-1;
end;
writeln(‘PROGRAM SELECTION MINIMUM DESCENDING’);
WriteLn(‘==================================‘);
writeln(‘Data setelah diurutkan : ‘);
writeln;
for i:=1 to N do
begin
write(L[i], ‘ ‘ );
end;
WriteLn;
WriteLn;
WriteLn(‘==================================‘);
WriteLn(‘Tekan ENTER Untuk Kembali Ke Menu’);
readln;
goto awal;
end;
7:Begin
clrscr;
for i:=2 to N do
begin
Temp:= L[i];
J:= i-1;
while (L[J] > Temp) and (J > 0) do
begin
L[J+1] := L[J];
Dec(J);
end;
L[J+1] := Temp;
end;
writeln(‘PROGRAM INSERTION ASCENDING’);
WriteLn(‘==================================‘);
writeln(‘Data setelah diurutkan : ‘);
writeln;
for i:=1 to N do
begin
write(L[i], ‘ ‘ );
end;
WriteLn;
WriteLn;
WriteLn(‘==================================‘);
WriteLn(‘Tekan ENTER Untuk Kembali Ke Menu’);
readln;
goto awal;
end;
8:Begin
clrscr;
for i:=2 to N do
begin
Temp:= L[i];
J:= i-1;
while (L[J] < Temp) and (J > 0) do
begin
L[J+1] := L[J];
Dec(J);
end;
L[J+1] := Temp;
end;
writeln(‘PROGRAM INSERTION DESCENDING’);
WriteLn(‘==================================‘);
writeln(‘Data setelah diurutkan : ‘);
writeln;
for i:=1 to N do
begin
write(L[i], ‘ ‘ );
end;
WriteLn;
WriteLn;
WriteLn(‘==================================‘);
WriteLn(‘Tekan ENTER Untuk Kembali Ke Menu’);
readln;
goto awal;
end;
9:begin
clrscr;
textcolor(14);
writeln(‘–Thank you for using this Simple Program–’);
readln;
end;
end;
end;
Begin
jb:=‘y’;
repeat
ClrScr;
textcolor(14);
Write(‘Masukkan jumlah data : ‘);ReadLn(N);
InputData;
SORT(L, N);
write(‘Apakah ingin memasukkan data yang baru (Y/T)? ‘);Readln(jb);
until (jb=‘T’) or (jb=‘t’);
end.
Latihan
No. 9 menentukan jumlah, rata2, min, max
program
Array_max_min;
var
nilai:array[1..100]
of INTEGER;
maks,mins,total,i,data
: integer;
rata
: real;
begin
write('Jumlah
Data = ');readln(data);
write('Data
ke-1 = ');readln(nilai[1]);
maks
:=nilai[1];
mins
:=nilai[1];
total
:=nilai[1];
for
i := 2 to data do
begin
write('Data
ke-',i,' = ');readln(nilai[i]);
if
nilai[i]>maks then
maks:=nilai[i];
if
nilai[i]<mins then
mins:=nilai[i];
total:=total+nilai[i];
end;
rata:=total/data;
writeln('Nilai
terbesar adalah = ',maks);
writeln('Nilai
terkecil adalah = ',mins);
writeln('Nilai
total adalah = ',total);
writeln('Nilai
rata-rata adalah = ',rata:0:2);
readln;
end.
Latihan
No 10 Program searching data
Program Lin_Ser;
var
a : array[1..5] of integer;
i,jd, findvalue,n : integer;
continue : boolean;
begin
write('Berapa jumlah data
yang akan di cari = '); readln(n);
writeln('Masukan data yang di
input :');
for jd:=1 to n do
begin
write('Data ke - ',jd,' :');
readln(a[jd]);
end;
write('Data yang akan dicari :');
readln(findvalue);
i:=1;
continue:=true;
while (i <= jd) and continue do
begin
if(a[i] = findvalue) then
begin
writeln('Data ditemukan pada data ke
- ',i);
continue := false;
end;
i:=i+1;
end;
if continue = true then
begin
writeln('Data tidak ditemukan');
end;
readln;
end.
Latihan No
11 Program procedure login
program Login;
uses crt;
var user:string;
Pass:integer;
Procedure Tampil1;
begin
Clrscr;
gotoxy(10,5);writeln('**********');
gotoxy(10,6);writeln('Program Menu Pascal');
gotoxy(10,7);writeln('==========');
gotoxy(15,10);writeln('User Name: ');
gotoxy(15,11);writeln('Password: ');
gotoxy(10,18);writeln('==========');
gotoxy(10,19);writeln('Create By : Deden Wahyu Hadiatna');
gotoxy(10,20);writeln('**********');
end;
Procedure Tampil2;
Begin
Clrscr;
gotoxy(10,5);writeln('==========');
gotoxy(10,6);writeln('Selamat Datang',User);
gotoxy(10,7);writeln('==========');
Writeln;
gotoxy(15,10);writeln('Persegi Panjang');
gotoxy(15,11);writeln('1.Program Luas');
gotoxy(15.12);writeln('2.Program Keliling');
gotoxy(15,13);writeln('3.Hasil pertimbangan');
gotoxy(15,14);writeln('4.Exit');
gotoxy(10,20);writeln('Masukkan Pilihan Anda: ');
gotoxy(10,21);writeln('Tekan Enter Untuk Melanjutkan');
Writeln;
gotoxy(10,23);writeln('==========');
gotoxy(10,24);writeln('Created By : Deden Wahyu Hadiatna');
gotoxy(10,25);writeln('==========');
Readln;
End;
Procedure Tampil3;
Var
Luas,Panjang,Lebar:integer;
Begin
Clrscr;
Writeln('Input Nilai P');Readln(Panjang);
Writeln('Input Nilai L');Readln(Lebar);
Luas:=Panjang*Lebar;
Writeln('Luas Persegi Panjang Adalah ',Luas);
Readln;
end;
Procedure Tampil4;
Var
Luas,Panjang,Lebar:integer;
Begin
Clrscr;
Writeln('Input Nilai P');Readln(Panjang);
Writeln('Input Nilai L');Readln(Lebar);
Keliling:=2*(Panjang+Lebar);
Writeln('Keliling Persegi Panjang Adalah ',Luas);
Readln;
end;
begin
Clrscr;
Tampil1;
gotoxy(15,10);writeln('User name');Readln(User);
gotoxy(15,11);writeln('Password: ');readln(Pass)
if(User,'Admin')and(Pass=12345)then
Tampil2 else
Clrsr;
gotoxy(25,10);writeln('User name dan Password Tidak
Sesuai');
readkey;
repeat until keypressed;
end.
Lathan
No 12 Program Statment discount
Proglam statemen_masukkan;
Uses wincrt
Var
Angka1,angka2:integer;
begin;
Write('masukan dua buah angka:');
Read(angka1,angka2);
write('angka pertama adalah:',angka1,'dan angka 2adalah
:',angka2);
readln
End.
Tuga berikan tugas discount
Program discount ; ;
>500.000 discount 20%
Diantara 200.000<500.000 discount 10%
<50.000 disconut 0%
Latihan
No 13 Program Login Nilai
Program LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
pilih : CHAR;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==========================================');
Gotoxy(10,6);WRITELN(' NAMA KELOMPOK 1 ');
Gotoxy(10,7);WRITELN('==========================================');
gotoxy(10,8);WRITELN(' DEDEN WAHYU HADIATNA ');
GOTOXY(10,9);WRITELN(' RUDI HERMAWAN ');
GOTOXY(10,10);WRITELN(' PAMUNGKAS WULAN SARI ');
gotoxy(10,11);WRITELN('=========================================');
gotoxy(10,12);WRITELN('
PROGRAM LOGIN NILAI SISWA SMA
');
gotoxy(10,13);WRITELN(' Sabtu, 23 november 2013 ');
gotoxy(10,14);WRITELN('>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<');
gotoxy(10,15);WRITELN('============PRESS ENTER TO NEXT
PROGRAM==');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,6);WRITELN('==========================================');
Gotoxy(10,7);WRITELN('
PROGRAM LOGIN SISWA SMA
');
gotoxy(10,8);WRITELN('==========================================');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=========================================');
gotoxy(10,19);WRITELN('CREATED BY : DEDEN WAHYU HADIATNA');
gotoxy(10,20);WRITELN(' RUDI HERMAWAN');
gotoxy(10,21);WRITELN(' PAMUNGKAS WULAN SARI');
gotoxy(10,22);WRITELN('==========================================');
END;
PROCEDURE TAMPIL3;
BEGIN
CLRSCR;
GOTOXY(10,5);WRITELN('==========================================');
GOTOXY(10,6);WRITELN('SELAMAT DATANG ',USER);
GOTOXY(10,7);WRITELN('===========================================');
WRITELN;
GOTOXY(15,10);WRITE('MENU PROGRAM LOGIN SISWA SMA');
GOTOXY(15,11);WRITE('1. PROGRAM NILAI RATA-RATA UAS');
gotoxy(15,12);WRITE('2. PROGRAM PILIHAN KELAS');
gotoxy(15,13);write('3. PROGRAM LULUS_REMIDIAL');
gotoxy(15,14);write('4. Exit');
Gotoxy(15,15);write('PRESS ENTER TO NEXT>>>___');
GOTOXY(10,23);WRITELN('===================================');
GOTOXY(10,24);WRITELN('UNIVERSITAS BHAYANGKARA JAKARTA
RAYA');
GOTOXY(10,25);WRITELN('===================================');
WRITELN;
READLN;
END;
PROCEDURE TAMPIL4;
BEGIN
CLRSCR;
GOTOXY(10,5);WRITELN('==========================================');
GOTOXY(10,6);WRITELN('SELAMAT DATANG ',USER);
GOTOXY(10,7);WRITELN('===========================================');
WRITELN;
GOTOXY(15,10);WRITE('SILAHKAN MASUKAN PILIHAN ANDA : ');
READLN(pilih);
gotoxy(10,21); write('press enter to
next>>>>>_____');
GOTOXY(10,23);WRITELN('====================================');
GOTOXY(10,24);WRITELN('UNIVERSITAS BHAYANGKARA JAKARTA
RAYA');
GOTOXY(10,25);WRITELN('====================================');
WRITELN;
READLN;
END;
PROCEDURE DAFTAR NILAI UAS; //JUDUL PROGRAM
VAR //DEKLARASI VARIABEL
N,I,E,M,SC,SO: INTEGER; //STATEMENT1
BEGIN
CLRSCR;
Begin
Writeln(' ');
Textcolor(LightGreen);
Writeln(' --==::DAFTAR NILAI UAS::==--');
WRITELN('INPUT NILAI BAHASA INDONESIA: ');READLN(I);
WRITELN('INPUT NILAI BAHASA INGGRIS: ');READLN(E);
WRITELN('INPUT NILAI MATEMATIKA: ');READLN(M);
WRITELN('INPUT NILAI ILMU PENGETAHUAN ALAM: ');READLN(SC);
WRITELN('INPUT NILAI ILMU PENGETAHUAN SOSIAL: ');READLN(SO);
N:=(I+E+M+SC+SO)/5;READLN(N);
WRITELN('NILAI RATA-RATA UAS: ',N);
READLN;
end;
PROCEDURE PILIHAN KELAS;//JUDUL PROGRAM
var//DEKLARASI VARIABEL
n:integer;//STATEMENT1
writeln('Masukkan Nilai Rata-Rata UAS ');readln(n);
if (n >= 80) then
Textcolor(Lightgreen);
write ('Class Science');
if (n >= 70) and (n < 80) then
Textcolor(Lightred);
write ('Class Social');
if (n < 70)then
Textcolor(Lightblue);
Write ('Class Language');
readln;
Textcolor(Lightblue);
Writeln('SELAMAT DATANG DI KELAS YANG TERPILIH');
Readln;
end;
PROCEDURE LULUS_REMIDIAL;
var n : integer;
begin
writeln('*********************************');
writeln('PROGRAM NILAI YANG LULUS_REMIDIAL');
writeln('*********************************');
readln;
write('masukan nilai = ');readln(n);
if (n<70)then
Textcolor(LightYellow);
write('REMIDIAL')
write('silahkan menghubungi guru mata pelajarannya untuk
remidial')
If (n>=70)then
Textcolor(Lightgreen);
write('LULUS')
write('selamat atas kelulusan anda')
readln;
END;
BEGIN
CLRSCR;
TAMPIL1;
TAMPIL2;
GOTOXY(15,10);WRITE('USER NAME :');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD :');READLN(PASS);
if (USER='UBHARATIF') and (PASS='BARCELONA') then
TAMPIL3 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD TIDAK SESUAI');
if (USER='UBHARATIF') and (PASS='BARCELONA') then
TAMPIL4;
CLRSCR;
if (pilih = '1') then
DAFTAR NILAI;
if (pilih = '2') tHEN
PILIHAN KELAS;
if (pilih = '3') then
LULUS_REMIDIAL;
if (pilih = '4') then
EXIT;
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Latihan no 13 program penjualan
Program Penjualan;
Uses WinCrt;
Var
Nama : String (20)
Kode : String (5)
Jumlah : Integer ;
Harga : Bayar : Real ;
Begin
Clrscr,
write(‘Masukan Nama Barang=
‘); Readln(nama),
write(‘Masukan Kode Barang= ‘); Readln(kode),
write(‘Masukan Jumlah Barang’); Readln(jumlah)
write(‘Masukan Harga Barang’); readln(harga),
bayar = jumlah*harga
Latihan 1
Clrscr;
Writeln(‘Daftar Penjualan Toko Ubhara’);
Writeln(‘Bekasi’);
Writeln(‘==========’);
Writeln(‘Nama Barang= ’,Nama);
Writeln(‘Kode Barang = ’, Kode);
Writeln(‘Jumlah Barang= ’,Jumlah);
Writeln(‘Harga Barang= ’,Barang:8:2);
Writeln(‘Jumlah Pembayaran =
’,Bayar:8:2);
Readln;
End.
program Operasi_relasi;
var
x, y : integer;
begin
writeln('masukkan nilai x = '); readln('%d', x);
writeln('masukkan nilai y = '); readln('%d', y);
writeln('\nNilai %d < %d adalah %d\n'x,y,x <
y);readln('d%', x,y);
writeln('\nNilai %d > %d adalah %d\n'x,y,x > y);readln('d%',
x,y);
writeln('\nNilai %d == %d adalah %d\n'x,y,x ==
y);readln('d%', x,y);
writeln('\nNilai %d <= %d adalah %d\n'x,y,x <=
y);readln('d%', x,y);
writeln('\nNilai %d >= %d adalah %d\n'x,y,x >=
y);readln('d%', x,y);
writeln('\nNilai %d |= %d adalah %d\n'x,y,x |=
y);readln('d%', x,y);
readln;
end.
program persegi_panjang;
uses wincrt;
var
P:integer;
L:integer;
function hitung_luas(panjang,lebar : integer):integer;
begin
hitung_Luas:=panjang*lebar;
readln;
end;
begin
write('Masukkan Panjang= ');readln(p);
write('Masukkan Lebar= ');readln(l);
writeln('Luas Persegi Panjang= ',hitung_luas(p,l));
readln;
end.
program Tampil_tanggal;
uses crt, dos;
function inttosir(I:longint): string;
var
S: string [12];
begin
str(I, S);
inttosir:= S;
end;
function tanggal: string;
var
Y,M,D,DOW: Word;
begin
getdate(Y,M,D,DOW);
tanggal :=inttosir (D) + '_'
+ inttosir (M)+ '_' + inttosir (Y);
end.
function hari_ini: string;
const
days: array [0..6] of string[9] =
('minggu','senin','selasa','rabu','kamis','jumat','sabtu');
var
Y, M, D, DOW : Word;
begin
getdate(Y,M,D, DOW);
hari_ini := 'hari ini : ' + days[DOW] + ', ';
end.
begin
clrscr;
writeln(hari_ini, tanggal);
readln;
end.
Latihan
No 14 Macam2 program Login
1.
Program LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
pilih : CHAR;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==========================================');
Gotoxy(10,6);WRITELN('PROGRAM LOGIN TUGAS UTS SEMESTER 1');
gotoxy(10,7);WRITELN('=======================================');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD
:');
gotoxy(10,18);WRITELN('=========================================');
gotoxy(10,19);WRITELN('CREATED BY : NANANG NURDIANSYAH');
gotoxy(10,20);WRITELN('==========================================');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
GOTOXY(10,5);WRITELN('==========================================');
GOTOXY(10,6);WRITELN('SELAMAT DATANG ',USER);
GOTOXY(10,7);WRITELN('===========================================');
WRITELN;
GOTOXY(15,10);WRITE('MENU ');
GOTOXY(15,11);WRITE('1. PROGRAM PERSEGI PANJANG');
gotoxy(15,12);WRITE('2. PROGRAM RUMUS VOLUME');
gotoxy(15,13);write('3. GANJIL GENAP');
gotoxy(15,14);write('4. Exit');
Gotoxy(15,15);write('T E K A N E
N T E R T O N E X T =>>>');
GOTOXY(10,23);WRITELN('==================================');
GOTOXY(10,24);WRITELN('CREATED BY : NANANG NURDIANSYAH');
GOTOXY(10,25);WRITELN('=================================');
WRITELN;
READLN;
END;
PROCEDURE TAMPIL3;
BEGIN
CLRSCR;
GOTOXY(10,5);WRITELN('==========================================');
GOTOXY(10,6);WRITELN('SELAMAT DATANG ',USER);
GOTOXY(10,7);WRITELN('===========================================');
WRITELN;
GOTOXY(15,10);WRITE('SILAHKAN MASUKAN PILIHAN ANDA : ');
READLN(pilih);
gotoxy(10,21); write('tekan ENTER untuk melanjutkan');
GOTOXY(10,23);WRITELN('==================================');
GOTOXY(10,24);WRITELN('CREATED BY : NANANG NURDIANSYAH');
GOTOXY(10,25);WRITELN('=================================');
WRITELN;
READLN;
END;
PROCEDURE LUAS; //JUDUL PROGRAM
VAR //DEKLARASI VARIABEL
LUAS, PANJANG, LEBAR: INTEGER; //STATEMENT1
BEGIN
CLRSCR;
WRITELN('INPUT NILAI P: ');
READLN(PANJANG);
WRITELN('INPUT NILAI L: ');
READLN(LEBAR);
LUAS:=PANJANG*LEBAR;
WRITELN('LUAS PERSEGI PANJANG ADALAH: ',LUAS);
READLN;
end;
procedure rumus_volume;
var
p, l, t, Lp, v: integer;
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Volume dan Luas Permukaan Balok::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukan panjang : ');Readln(p);
Write('Masukan lebar : ');Readln(l);
Write('Masukan tinggi : ');Readln(t);
V:= p*l*t;
Lp:= 2*p*l+2*p*t+2*l*t;
Writeln('Volume : ', V);
Writeln('Luas Permukaan : ', Lp);
Writeln(' ');
Textcolor(LightRed);
Writeln(' P R O G R A M U T S
');
Readln;
END;
PROCEDURE GANJIL_GENAP;
var n : integer;
begin
writeln('WELLCOME TO MY PROGRAM');
writeln('-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-');
readln;
writeln('KELOMPOK 9');
writeln('-----------------------');
writeln('NANANG NURDIANSYAH');
writeln('MEGAWATI');
writeln('YAYAT RUHDIYAT');
writeln('-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-');
write('masukan bilangan = ');readln(n);
if n mod 2 = 0 then
write('ini bilangan genap')
else
write(n, ' ini bilangan ganjil');
readln;
END;
BEGIN
CLRSCR;
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME :');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD
:');READLN(PASS);
if (USER='NANANG') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD TIDAK SESUAI');
if (USER='NANANG') and (PASS=12345) then
TAMPIL3;
CLRSCR;
if (pilih = '1') then
LUAS;
if (pilih = '2') then
rumus_volume;
if (pilih = '3') then
GANJIL_GENAP;
if (pilih = '4') then
EXIT;
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
2.
Program
LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
a,b:real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
========');
Gotoxy(10,6);WRITELN(' PROGRAM LOGIN AKAR');
gotoxy(10,7);WRITELN('==================================
========');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
gotoxy(22,1);write('==PROGRAM AKAR==');
gotoxy(22,2);write('masukkan bilangan = ');
readln(a);
b:=sqrt(a);
gotoxy(22,3);writeln('akar dari ',a:2:2,'
adalah ',b:2:2);
READLN;
end;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME
:');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD :');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Procedure Akar;
Begin
gotoxy(23,1);write('==AKAR BILANGAN==');
gotoxy(23,2);write('masukkan bilangan : ');
readln(a);
b:=sqrt(a);
gotoxy(22,3);writeln('akar dari ',a:2:2,'
adalah ',b:2:2)
end;
3.
Program
LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
p, l, t, V, Lp : Real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN(' PROGRAM LOGIN MENCARI
VOLUME BALOK');
gotoxy(10,7);WRITELN('==================================
==============');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Volume dan Luas
Permukaan Balok::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukan panjang : ');Readln(p);
Write('Masukan lebar : ');Readln(l);
Write('Masukan tinggi : ');Readln(t);
V:= p*l*t;
Lp:= 2*p*l+2*p*t+2*l*t;
Writeln('Volume : ', V:0:0);
Writeln('Luas Permukaan : ', Lp:0:0);
Writeln(' ');
Textcolor(LightRed);
Writeln(' SAYANG PUTRIE RETNOWATI ');
Readln;
end;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME
:');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD
:');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Procedure Balok; {Mencari Volume dan Luas
permukaan Balok}
Var
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Volume dan Luas
Permukaan Balok::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukan panjang : ');Readln(p);
Write('Masukan lebar : ');Readln(l);
Write('Masukan tinggi : ');Readln(t);
V:= p*l*t;
Lp:= 2*p*l+2*p*t+2*l*t;
Writeln('Volume : ', V:0:0);
Writeln('Luas Permukaan : ', Lp:0:0);
Writeln(' ');
Textcolor(LightRed);
Writeln(' SAYANG PUTRIE RETNOWATI ');
Readln;
END;
4.
Program
LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
a,b:real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
========');
Gotoxy(10,6);WRITELN(' PROGRAM LOGIN
KUADRAT');
gotoxy(10,7);WRITELN('==================================
========');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
gotoxy(22,1);write('==KUADRAT==');
gotoxy(22,2);write('masukkan bilangan = ');
readln(a);
b:=sqr(a);
gotoxy(22,3);writeln('kuadrat dari ',a:2:0,
'adalah : ',b,2:2);
READLN;
end;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME
:');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD
:');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Procedure Kuadrat;
Begin
gotoxy(22,1);write('==KUADRAT==');
gotoxy(22,2);write('masukkan bilangan = ');
readln(a);
b:=sqr(a);
gotoxy(22,3);writeln('kuadrat dari ',a:2:0,
'adalah : ',b,2:2);
end;
END.
5.
Program
LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
s, V, Lp : Real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN(' PROGRAM LOGIN MENCARI
VOLUME KUBUS ');
gotoxy(10,7);WRITELN('==================================
==============');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Volume dan Luas
permukaan Kubus::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukan sisi : ');Readln(s);
V:= s*s*s;
Lp:= 6*s*s;
Writeln('Volume : ', V:0:0);
Writeln('Luas Permukaan : ', Lp:0:0);
Writeln(' ');
Textcolor(LightRed);
Writeln(' AVIEZ SAYANG PUTRIE <3 ');
end;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME
:');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD
:');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
READLN;
Procedure Kubus; {Mencari Volume dan Luas
permukaan Kubus}
Var
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Volume dan Luas
permukaan Kubus::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukan sisi : ');Readln(s);
V:= s*s*s;
Lp:= 6*s*s;
Writeln('Volume : ', V:0:0);
Writeln('Luas Permukaan : ', Lp:0:0);
Writeln(' ');
Writeln(' ');
Readln;
end;
READLN;
END.
6.
Program
LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
r, L, K : Real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN(' PROGRAM LOGIN MENCARI
LUAS LINGKARAN');
gotoxy(10,7);WRITELN('==================================
==============');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
Writeln(' ');
Writeln(' --==::Menghitung Luas dan Keliling
Lingkaran::==--');
Writeln(' ');
Write('Masukan jari-jari : ');Readln(r);
L:= 22/7*(sqr(r));
K:= 2*22/7*r;
Writeln('Luas : ', L:0:0);
Writeln('Keliling : ', K:0:0);
Writeln(' ');
Textcolor(12);
Writeln(' Phone me at 08567919761 ');
Readln;
end;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME
:');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD :');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Procedure Lingkaran; {Mencari Luas dan
Keliling Lingkaran}
Var
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Luas dan Keliling
Lingkaran::==--');
Writeln(' ');
Write('Masukan jari-jari : ');Readln(r);
L:= 22/7*(sqr(r));
K:= 2*22/7*r;
Writeln('Luas : ', L:0:2);
Writeln('Keliling : ', K:0:2);
Writeln(' ');
Textcolor(12);
Writeln(' Phone me at 08567919761 ');
Readln;
end;
END.
7.
Program
LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
s, L, K : Real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('PROGRAM LOGIN MENCARI
LUAS DAN KELILING
PERSEGI');
gotoxy(10,7);WRITELN('==================================
==============');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
Writeln(' --==::Menghitung Luas dan Keliling
Persegi::==--');
Writeln(' ');
Write('Masukkan sisi : ');Readln(s);
L := s*s;
K := 4*s;
Writeln('Luas : ', L:0:0);
Writeln('Keliling : ', K:0:0);
Writeln(' ');
Textcolor(LightRed);
Writeln(' invite my pin 75abf3b9 :-) ');
Readln;
end;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME :');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD
:');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Procedure Persegi; {Mencari Luas dan Keliling
Persegi}
BEGIN
CLRSCR;
Begin
Writeln(' ');
Writeln(' --==::Menghitung Luas dan Keliling
Persegi::==--');
Writeln(' ');
Write('Masukkan sisi : ');Readln(s);
L := s*s;
K := 4*s;
Writeln('Luas : ', L:0:0);
Writeln('Keliling : ', K:0:0);
Writeln(' ');
Textcolor(LightRed);
Writeln(' INVITE MY PIN 75ABF3B9 ');
Readln;
end;
END.
8.
Program
LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
a,b,c:real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
========');
Gotoxy(10,6);WRITELN(' PROGRAM LOGIN
PEMBAGIAN');
gotoxy(10,7);WRITELN('==================================
========');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
gotoxy(22,1);write('==PROGRAM PEMBAGIAN==');
GOTOXY(22,2);Write('masukkan nilai pertama :
');
readln(a);
GOTOXY(22,3);Write('masukkan nilai kedua : ');
readln(b);
c:=a/b;
gotoxy(22,4);writeln('hasil :',c:2:0);
READLN;
END;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME
:');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD
:');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Procedure Pembagian;
begin
gotoxy(22,1);write('==PROGRAM PENJUMLAHAN==');
GOTOXY(22,2);Write('masukkan nilai pertama : ');
readln(a);
GOTOXY(22,3);Write('masukkan nilai kedua : ');
readln(b);
if (b<>0)then
begin
c:=a/b;
gotoxy(22,4);writeln('hasil : ',c:2:0);
end
else
begin
gotoxy(22,4);writeln('tidak bisa dibagi nol')
end;
end;
END.
9.
Program
LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
a,b,c:real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
========');
Gotoxy(10,6);WRITELN(' PROGRAM LOGIN
PENGURANGAN');
gotoxy(10,7);WRITELN('==================================
========');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
gotoxy(22,1);write('==PROGRAM PENGURANGAN==');
GOTOXY(22,2);Write('masukkan nilai pertama :
');
readln(a);
GOTOXY(22,3);Write('masukkan nilai kedua : ');
readln(b);
c:=a-b;
gotoxy(22,4);writeln('hasil :',c:2:0);
READLN;
END;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME
:');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD
:');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Procedure Penjumlahan;
begin
gotoxy(22,1);write('==PROGRAM PENJUMLAHAN==');
GOTOXY(22,2);Write('masukkan nilai pertama :
');
readln(a);
GOTOXY(22,3);Write('masukkan nilai kedua : ');
readln(b);
c:=a-b;
gotoxy(22,4);writeln('hasil :',c:2:0);
READLN;
end;
END.
10. Program LOGIN PENJUMLAHAN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
a,b,c:real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
========');
Gotoxy(10,6);WRITELN(' PROGRAM LOGIN
PENJUMLAHAN');
gotoxy(10,7);WRITELN('==================================
========');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
gotoxy(22,1);write('==PROGRAM PENJUMLAHAN==');
GOTOXY(22,2);Write('masukkan nilai pertama :
');
readln(a);
GOTOXY(22,3);Write('masukkan nilai kedua : ');
readln(b);
c:=a+b;
gotoxy(22,4);writeln('hasil :',c:2:0);
READLN;
END;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME
:');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD
:');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Procedure Penjumlahan;
begin
gotoxy(22,1);write('==PROGRAM PENJUMLAHAN==');
GOTOXY(22,2);Write('masukkan nilai pertama :
');
readln(a);
GOTOXY(22,3);Write('masukkan nilai kedua : ');
readln(b);
c:=a+b;
gotoxy(22,4);writeln('hasil :',c:2:0);
READLN;
end;
END.
11. Program LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
a,b,c:real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
========');
Gotoxy(10,6);WRITELN(' PROGRAM LOGIN
PERKALIAN');
gotoxy(10,7);WRITELN('==================================
========');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
gotoxy(22,1);write('==PROGRAM PERKALIAN==');
GOTOXY(22,2);Write('masukkan nilai pertama :
');
readln(a);
GOTOXY(22,3);Write('masukkan nilai kedua : ');
readln(b);
c:=a*b;
gotoxy(22,4);writeln('hasil :',c:2:0);
READLN;
END;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME
:');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD
:');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Procedure Penjumlahan;
begin
gotoxy(22,1);write('==PROGRAM PERKALIAN==');
GOTOXY(22,2);Write('masukkan nilai pertama :
');
readln(a);
GOTOXY(22,3);Write('masukkan nilai kedua : ');
readln(b);
c:=a*b;
gotoxy(22,4);writeln('hasil :',c:2:0);
READLN;
end;
END.
12. Program LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
p, lbr, L, K : Real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('PROGRAM LOGIN MENCARI
LUAS DAN KELILING
PERSEGI');
gotoxy(10,7);WRITELN('==================================
==============');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
Writeln(' --==::Menghitung Luas dan Keliling
Persegi::==--');
Writeln(' ');
Write('Masukkan panjang : ');Readln(p);
Write('Masukkan lebar : ');Readln(lbr);
L := p*lbr;
K := 2*(p+lbr);
Writeln('Luas : ', L:0:0);
Writeln('Keliling : ', K:0:0);
Writeln(' ');
Textcolor(LightRed);
Writeln(' Invite me at 75ABF3B9 ');
Readln;
end;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME
:');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD
:');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Procedure Persegi; {Mencari Luas dan Keliling
Persegi}
BEGIN
CLRSCR;
Begin
Writeln(' ');
Writeln(' --==::Menghitung Luas dan Keliling
Persegi::==--');
Writeln(' ');
Write('Masukkan panjang : ');Readln(p);
Write('Masukkan lebar : ');Readln(lbr);
L := p*lbr;
K := 2*(p+lbr);
Writeln('Luas : ', L:0:0);
Writeln('Keliling : ', K:0:0);
Writeln(' ');
Textcolor(LightRed);
Writeln(' Invite me at 75ABF3B9 ');
Readln;
end;
END.
13. Program LOGIN;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
a, t, sm, L, K : Real;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN(' PROGRAM LOGIN MENCARI
SEGITIGA');
gotoxy(10,7);WRITELN('==================================
==============');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD :');
gotoxy(10,18);WRITELN('=================================
========');
gotoxy(10,19);WRITELN('CREATED BY : AVIEZ
PINGIN TOBAT');
gotoxy(10,20);WRITELN('=================================
=========');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==================================
==============');
Gotoxy(10,6);WRITELN('U N I V E R S I T A S B
H A Y A N G K A R A');
gotoxy(10,7);WRITELN('==================================
==============');
READLN;
Writeln(' --==::Menghitung SEGITIGA::==--');
Writeln(' ');
Write('Masukkan alas : ');Readln(a);
Write('Masukkan tinggi : ');Readln(t);
L:= 0.5*a*t;
sm:= sqrt(sqr(a)+sqr(t));
K:= a+t+sm;
Writeln('Luas : ', L:0:2);
Writeln('Keliling : ', K:0:2);
Writeln(' ');
Textcolor(LightRed);
Writeln(' add me on facebook at aviez azze ');
Readln;
end;
begin
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME
:');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD
:');READLN(PASS);
if (USER='AVIEZ') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD
TIDAK SESUAI');
READKEY;
REPEAT UNTIL KEYPRESSED;
END.
Procedure Segitiga; {Mencari Luas dan Keliling
Segitiga}
Var
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Luas dan Keliling
Segitiga Siku-Siku::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukkan alas : ');Readln(a);
Write('Masukkan tinggi : ');Readln(t);
L:= 0.5*a*t;
sm:= sqrt(sqr(a)+sqr(t));
K:= a+t+sm;
Writeln('Luas : ', L:0:2);
Writeln('Keliling : ', K:0:2);
Writeln(' ');
Textcolor(LightRed);
Writeln(' add me on facebook at aviez azze ');
Readln;
end;
END.
