Program menghitung Luas Segitiga, Keliling Persegi Panjang dan Volume Kerucut | Pemrograman Pascal

Nah karena programnya sangat panjang maka aku hanya memberikan screenshotnya saja tanpa menuliskan program pascalnya dipostingan ini.

Melihat program diatas pasti terlintas dipikiran kalo membuat programnya sangat sulit, tapi Nothing Impossible bro, kalo kita percaya pada kemampuan kita insyaAllah semua mudah kok. Jadi percayalah pada kemampuan kalian teman, Pascal bukanlah pemrograman yang susah kok malah aku bilang lebih mudah daripada PHP, MySQL ataupun HTML karena itu Nothing Impossible jo!

Nah bila anda merunning program diatas (CTRL + F9) maka dilayar akan muncul pilihan program yang mau anda jalankan sehingga anda tidak perlu menjalankan semua program padahal yang anda butuhkan hanya program menghitung luas segitiga saja.

Bila teman-teman membutuhkan layout program yang utuh dan hasil runningnya silahkan download program multi option

Menggunakan Array dengan Pascal

Kembali lagi ke Pemrograman Pascal setelah lama kita tidak bermain dengan Pemrograman Pascal. Ok,

Array sudah pernah disinggung dalam pemrograman matriks sebelumnya sehingga aku gak akan menjelaskan pengertian dari array lagi disini.

Untuk membuat array di pascal kita hanya harus mendefinisikan array tersebut pada bagian variable. Cara mendefinisikannya adalah sebagai berikut:

Array 1 Dimensi
--> hanya mempunyai 1 tempat penyimpanan untuk indexnya.

uses crt;
var
a: array [1..3] of integer;

ini berarti bahwa a adalah sebuah array yang memiliki 3 index atau array a memiliki 3 data didalamnya. Data dalam array a dapat disesuaikan sebagaimana kebutuhan kita.

Array 2 Dimensi
--> mempunyai 2 tempat penyimpanan untuk indexnya

uses crt;
var
a : array [1..3,1..3] of integer;

ini berarti bahwa array a memiliki 9 index yaitu 1.1, 1.2, 1.3 ... 3.2, 3.3. Bentuk array seperti ini kerap kita jumpai pada pemrograman matriks baik itu penjumlahan, ataupun perkalian.

Ok, untuk penggunaan array secara real pada program adalah sebagai berikut:

uses crt;
var
a:array [1..3] of integer;
k,l:integer;
begin
clrscr;
for k:=1 to 3 do
begin
writeln('Masukkan Angka:'); readln (a[k]);
end;
for k:= 1 to 3 do
begin
l:= l + a[k];
end;
writeln('Jumlah dari Semua Angka: ',l);
readln;
end.

Program diatas akan menjumlahkan seluruh index dari array a yang kemudian dinilai sebagai l.


NB:
- Input akan dilakukan secara berulang sebanyak 3 kali dan disimpan sebagai array a dengan index 1,2,3
- Nilai dari array a akan dikeluarkan satu per satu dan dijumlahkan dengan l dan dicatat sebagai l sehingga nilai l akan terus naik

Program Bilangan Prima dengan Pascal

Sekarang kita akan mencoba mentranslate Program Bilangan Prima tersebut kedalam bahasa Pascal. Kenapa kok hanya mentranslate/mengalihbahasakan saja? kenapa tidak membuat program baru? Jawabanya: karena dalam Pemrograman apapun bukan program yang menjadi patokan namun Algoritma. Algoritma inilah yang menjadi dasar seorang programmer bekerja dan membuat program. Jadi karena Algoritma Bilangan Prima sudah pernah dibahas di Pemrograman Bilangan Prima dengan Basic maka kita hanya tinggal mengalih bahasakan saja, gitu!

Ok, mari kita mencoba membuat program bilangan prima dengan melirik program bilangan prima yang sudah kita buat sebelumnya dengan bahasa Basic.

FOR a = 1 to 20 <-- batas bilangan prima hanya sampai 20
c = 0 <-- bilangan kunci
FOR b = 1 to a <-- looping untuk pembagi
IF a MOD b = 0 THEN c = c + 1
NEXT b
IF c = 2 THEN PRINT a; "Bilangan Prima"
NEXT a

Nb: Diatas adalah script bilangan prima dengan menggunakan Basic.

Dari script basic diatas, kita rubah kedalam bahasa Pascal menjadi seperti ini:

Uses crt;
Var
a,b,c:integer;

begin
clrscr;
for a:=1 to 20 do
begin
c:=0;
for b:=1 to a do
begin
if a mod b = 0 then c:= c + 1;
end;
if c:= 2 then write (a); writeln (' Bilangan Prima');
end;
readln;
end.

Begitulah kira-kira hasil translat dari bahasa Basic ke Pascal program bilangan prima kita.

Program Perkalian Matriks | Pascal

Oke setelah kita membuat program menjumlahkan dua buat matriks, sekarang kita buat program untuk mengalikan dua buah matriks. Dalam perkalian matriks, yang sangat penting diperhatikan adalah jumlah kolom matriks A harus sama dengan jumlah baris matriks B.

Daripada pusing mending copas code ini ja deh......

uses crt;

var

a,f,k:array[1..100,1..100] of integer;

b,c,i,j,l,z:longint; m,n,d,e,g,h:byte;

begin clrscr;

write(' Program Perkalian 2 Matriks');readln;writeln;writeln;

writeln('Masukkan data untuk matriks pertama (M1)'); writeln;

write('banyaknya baris matriks pertama: '); readln(b);

write('banyaknya kolom matriks pertama: '); readln(c);writeln;

for d:= 1 to b do

begin

for e:= 1 to c do

begin

write('entri baris ke-',d,' kolom ke-',e,': '); readln(a[d,e]);

end;

end;writeln;

writeln('M1:');writeln;

for d:= 1 to b do

begin

for e:= 1 to c do

begin

write(a[d,e]:7);

end;writeln;writeln;end;writeln;writeln;

writeln('Masukkan data untuk matriks kedua (M2)');writeln;

write('berapa banyak baris matriks kedua? '); readln(g);

write('berapa banyak kolom matriks kedua? '); readln(h);writeln;

for i:= 1 to g do

begin

for j:=1 to h do

begin

write('entri baris ke-',i,' kolom ke ',j,': '); readln(f[i,j]);

end;end;writeln;

writeln('M2:');writeln;

for i:= 1 to g do

begin

for j:= 1 to h do

begin

write(f[i,j]:7);

end;writeln;writeln;end;writeln;writeln;

writeln('Tekan Enter Untuk Melihat Hasil Operasi dari M1 x M2!');readln;

if c=i then begin

writeln('M1 x M2:');writeln;

for d:= 1 to b do

begin

for l:=1 to h do

begin

for e:= 1 to c do

begin

for j:= l to h do

begin

for i:=e to g do

begin

k[d,j]:=k[d,j]+a[d,e]*f[i,j];

if c=e then begin

write(k[d,j]:7);end;i:=g;

end;j:=h;end;end;end;writeln;writeln;end;end else

begin

writeln('Maaf?! Operasi dari M1 x M2 tidak dapat dilakukan');

writeln('karena kolom M1 (',c,' kolom) tidak sama dengan baris M2 (',i,' baris)');

end;

readln;

end.

Rahasia Looping Pascal | Pengulangan dengan Boolean dan Pengulangan Mundur

Entah sudah berapa Tutorial Pascal yang aku posting disini, tapi ternyata dari sekian banyak itu aku malah belum memosting Looping Mundur dan Looping Boolean. Looping atau Pengulangan dalam pascal ternyata tidak menentu dengan integer ataupun byte tapi bisa juga menggunakan alfabetik dan boolean. Tapi apa itu Boolean? Boolean adalah type data yang nilainya hanya ada dua yaitu True (1) atau False (0). Boolean biasa kita temui pada logika IF atau Conditions.

Looping dengan Boolean yang kita pelajari disini menggunakan For False To True Do dan untuk Looping Mundur kita memakai For (var) Downto (var) Do. Logika Looping Boolean ini bisa digunakan untuk mengulang sebuah Blok Proses hingga nilainya benar, misal: Bila A = genap maka Proses dilanjutkan bila tidak maka proses diulangi hingga nilai A = genap.

For b:=False To True Do
Begin
readln(a);
if a mod 2 = 0 then b:=true else b:=false;
end;

Blok Proses tersebut akan terus berulang hingga nilai b = true atau dengan kata lain Looping Boolean adalah Pengulangan Blok Proses dengan Kondisi tertentu.