Kamis, 30 Mei 2013

Program Mencari Luas Segitiga Pascal

Membuat program untuk menghitung luas segitiga menggunakan bahasa Pascal. Untuk code berikut ini tingkatannya masih dasar. Mungkin dalam pembelajaran masih tergolong pembahasan Algoritma dasar. Langsung saja cek source codenya. Terdiri 2 versi, versi statis dan dinamis :

Contoh program versi statis :

Program Luas_Segitiga;

Uses CRT;

Var

Alas,Tinggi:Integer;
Luas:Real; SL:Char;



BEGIN
ClrScr;
WriteLn('Program Mencari Luas Segitiga'); 
WriteLn; Alas:=10;
Tinggi:=15;
Luas:=(Alas*Tinggi)/2;
WriteLn; WriteLn('Luasnya Adalah ',Luas:15:2); 
SL:=ReadKey;

END.


Berikut untuk versi dinamisnya :

Program Luas_Segitiga;

Uses CRT;

Var
Alas,Tinggi:Integer; Luas:Real; SL:Char;


BEGIN
ClrScr;
WriteLn('Program Mencari Luas Segitiga'); 
WriteLn; Write('Masukkan Alas ? ');
ReadLn(Alas); Write('Masukkan Tinggi ? ');
ReadLn(Tinggi);
Luas:=(Alas*Tinggi)/2; 
WriteLn; WriteLn('Luasnya Adalah ',Luas:15:2);
SL:=ReadKey;

END.


Semoga source codenya mudah dimengerti dan dipahami.
Like This Article ? :