Hehehehe.. Bagi teman2 yang berkecimpung dalam perkuliahan khususnya di bidang IT.. pasti sudah tidak asing lagi dengan bahasa pemograman yang satu ini.. yap.. itulah dia Turbo Pascal.. Disini saya akan mencoba mengulas sedikit tentang contoh program sederhana dalam turbo pascal.
Kepada siapapun yang melihat blog ini.. saya mohon maaf karena pengerjaan koding programnya tidak saya jadikan Screen shot melainkan listing program biasa berbentuk text (tapi sudah dicoba di komputer dengan OS 32 bit dan alhamdulillah berhasil) hal ini dikarenakan OS windows saya berbasis 64 bit dan dia ga support sama ini program.. huhuhu.. (T_____T) (katanya sih bisa kalo pake DOSBox tapi nyatanya pas saya coba pake DOSBox ga bisa.. ini sayanya yang geblek apa emang beneran ga bisa ya?? haduh bingung saya..)
Okelah daripada berlama2 sok atuh kita mulai pembahasan sedikit tentang program yang satu ini.. monggo di delok yo mbak.. mas.. sing anteng yo..
Contoh Program sederhana di Turbo Pascal
Contoh koding untuk membuat program penghitungan faktorial
faktorial itu adalah mengalikan bilangan berurut dari angka terbesar ke angka terkecil hingga terakhir dapat dikalikan dengan angka terkecil (dalam hal ini nilai terkecil ialah satu)
inilah kodingnya..
Program Faktorial_pascal;
uses crt;
function Faktorial(a:integer):longint;
begin
if (A=1)then
Faktorial:=1
else
Faktorial:=a*faktorial(a-1);
end;
var
x:integer;
begin
clrscr;
writeln('Faktorial Sequence');
writeln;
write('Berapa Faktorial : ');readln(x);
writeln(x,' faktorial ','= ',faktorial(x));
writeln;
write('Tekan Sembarang Tombol untuk keluar...');
readln;
end.
silahkan dicoba.. pasti mengasyikkan deh.. sekian posting saya kali ini.. jumpa lagi lain waktu dengan saya.. Byee.. ^^
#Posting blog ini saya dedikasikan untuk dosen algoritma saya di kampus.. :) terimakasih ibu.. ^^
