Program Mencari Luas Segitiga Pascal

Kamis, 30 Mei 2013

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.
Share this article :

0 komentar:

Berkomentarlah dengan Bahasa yang Sopan

Dilarang Memberikan Link ke Blog lain dalam komentar (Langsung Delete)... !

 
Copyright © 2011. Portal Info Edukasi Online - All Rights Reserved
Template Edited by Ario Ardi
Proudly powered by Blogger