Contoh Sederhana Turbo Pascal

Bagi yang ingi menjadi seorang programmer,  bahasa pascal salah satu yang harus dikuasai. hal ini karena  Pascal adalah salah satu bahasa pemrograman yang paling sederhana dan merupakan bahasa yang dasar.

TPW adalah program yang digunakan dalam penggunaan bahasa pemrograman PASCAL pada komputer dengan operating sistem adalah windows. Turbo Pascal sendiri merupakan versi yang populer dalam PASCAL. PASCAL sudah menjadi bahasa standar dalam dunia pendidikan komputer.

Beberepa program yang berhubungan dengan kehidupan kita dapat dikonsepkan dengan algoritma dan pascal ini. Algoritma merupakan cara menyelesaikan suatu masalah dengan urutan langkah logis.  Secara umum algoritma adalah sejumlah langkah komputasi yang mengubah masukkan (input) menjadi keluaran (output) yang benar.

Berikut ini beberapa contoh sederhana Turbo Pascal. Contoh  Program sederhana ini adalah tugas saya di semester 1,  matakuliah Algoritma Pemrograman di STMIK ADHI GUNA PALU.

Selamat mencoba, smoga berhasil... 

1. Menentukan Luas Lingkaran (L=phi*r^2) :

program luas_lingkaran;
uses windos,wincrt;
const phi=3.14;
var
    L,r:real;
begin
    Writeln('Menentukan Luas Lingkaran');
    writeln('-------by. Habibu--------');
    writeln;
    write('nilai jari-jari = '); readln(r);
L:=phi*r*r;
    writeln('luas lingkaran  =',L:10:1,'cm2');
end.


2. Menentukan Luas Paralon (L=p*r^2*t) :

program luas_paralon;
uses wincrt;
var
    L,r,t:real;
begin
    Writeln('Menentukan Luas Paralon');
    writeln('-------by. Habibu------');
    writeln;
    write('nilai jari-jari = '); readln(r);
    write('nilai tinggi    = '); readln(t);
L:=3.14*r*r*t;
    writeln('luas paralon    =',L:10:1);
end.


3. Menentukan Keliling Lingkaran (kll=2*phi*r) :

program keliling_lingkaran;
uses wincrt;
var
   r : real;
   kll : real;
begin
   writeln('Menentukan Keliling Lingkaran');
   writeln('---------by. Habibu----------');
   writeln;
   write('Masukkan jari-jari = ');readln(r);
   writeln;
kll := 2*3.14*r;
   writeln('Keliling Lingkaran  = ',kll:3:2);
   writeln;
end.


4. Menentukan Nilai F (F=b*c/d) :

program nilai_F;
uses wincrt;
var
   b,c,d : integer;
   F : real;
begin
   writeln('Menentukan Nilai F');
   writeln('----by. Habibu----');
   writeln;
   write('Nilai b    = ');readln(b);
   write('Nilai c    = ');readln(c);
   write('Nilai d    = ');readln(d);
   writeln;
F := b*c/d;
   writeln('Nilai F    =',F:10:2);
   writeln;
end.


5. Menentukan Nilai S (s=x*x^2) :

program nilai_S;
uses wincrt;
var
   x : integer;
   S : real;
begin
   writeln('Menentukan Nilai S');
   writeln('----by. Habibu----');
   writeln;
   write('Nilai x    = ');readln(x);
   writeln;
S := x+sqr(x);
   writeln('Nilai S    =',S:10:1);
   writeln;
end.

Selamat mencoba, smoga berhasil.