Setelah sebelumnya kita sudah belajar membuat Program Bilangan Prima dengan Basic, 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.
Semoga bermanfaat dan Salam Kuliah Gratis
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.
Semoga bermanfaat dan Salam Kuliah Gratis
Bila Ada Kesulitan atau ada pertanyaan terhadap Materi dari Kuliah Gratis silahkan Hubungi saya, Add ID YM saya radenmas_surya . Semoga dapat membantu Artikelnya Ya!
Postingan
21 komentar
Hebat juga pengetahuannya mengenai pascal.... Jadi pengen belajarjuga nih.. :)
Posted on 10 Agustus 2009 pukul 10.21
waduh...
bahsa pascal ya??
ku gak ngerti sama sekali...
heheh
:))
Posted on 10 Agustus 2009 pukul 14.26
@ Nurdiana: Gak juga mas, saya baru belajar
@ Yudik: Moga lain kali ngerti mas
Posted on 10 Agustus 2009 pukul 14.30
hihihi.. kok nggak mudeng saya mas.. lawong dasar2nya pascal saja saya nggak tahu..
Posted on 10 Agustus 2009 pukul 14.36
Pertamaaaaaaaaaaaaaaaaaaaa...Salam Kenal ^_^
Posted on 10 Agustus 2009 pukul 18.06
keduaaaaaaaaaaaaaaaaaa...Makasih infonya ^_^
Posted on 10 Agustus 2009 pukul 18.06
Waaaaah, buwel gaptek neh...Tapi bagi yang paham tentunya kerennnnnnnnnnnnnn
Posted on 10 Agustus 2009 pukul 18.07
waduh
yg kek ginian aku nyerah deh
:)
Posted on 10 Agustus 2009 pukul 19.38
bujubusyet...translitin basic ke pascalanya ribet banget yah...
Posted on 10 Agustus 2009 pukul 19.40
ikut belajar mas surya...
meski kepalaku agak tiyung2...
he...he...
Posted on 11 Agustus 2009 pukul 00.43
waduhh...ampun sy tidak mengerti,udh bc berkali2 ttp tdk mengerti,nyerah dehh :D, biasanya ksh artikel yg mudah mas :)
Posted on 11 Agustus 2009 pukul 05.14
@ Kucrit: Gak apa2 mas ini bukan konsumsi blogger mungkin :D
@ Achen: Sama2 mas
@ Buwel: Moga ja ada yang paham
@ Rusabawean: Walah kok ngerah si...gak seru deh
@ Zulhaq: walah mas zulhaq ini suka melebih2kan
@ Iwankus: silahkan
@ Hill: Gak usah minta ampun mas, kebetulan stock ampunku tinggal dikit :D
Posted on 11 Agustus 2009 pukul 08.26
Oh..begitu perhitungannya,sulit juga ya ...nice info,thanks dah berbagi
Posted on 11 Agustus 2009 pukul 09.06
adoh..puyeng saya bro hehe
Posted on 11 Agustus 2009 pukul 20.53
ora jalan mas...........
Posted on 18 Maret 2010 pukul 17.15
tengkyu yah..
akhirna tugas kuliah w kelar juga..
Posted on 3 Mei 2010 pukul 22.58
salam kenal...
Posted on 1 Juli 2010 pukul 16.50
codingx mantafff...
pengen belajar byk ttg pascal..
apa dgn pascal kita jg bisa bikin program secantik klu kt pake vb?
Posted on 1 Juli 2010 pukul 16.57
sedikit beda dengan punya saya mas :)
Posted on 26 Agustus 2012 pukul 17.00
thanks sharingnya gan :)
Posted on 26 Agustus 2012 pukul 17.06
Wah, thank you tutorialnya :)
http://el86.com
Posted on 19 Mei 2013 pukul 12.51
Form Komentar
Tinggalkan Komentar sebagai Wujud Apreasiasi Anda!
Dilarang NYAMPAH disini!
Maafkan Jika Kuliah Gratis tidak membalas Komentar!