Kamis, 04 Desember 2008

Task 2 ( Web link for Turbo Pascal )

http://www.geocities.com/hotdogcom/ptutor/paslist.html

http://dreadnaut.altervista.org/pascal/tp7ita/

http://www.taoyue.com/tutorials/pascal/compilers.html

http://library.thinkquest.org/27297/usingPas.htm

http://en.wikiversity.org/wiki/Turbo_Pascal_Help

http://www.trevorchristian.com/programming/tp/?page=3

http://en.wikipedia.org/wiki/Pascal_programming_language

http://www.daniweb.com/forums/thread21883.html

http://www.programmingforums.org/thread15142.html

http://forums.guru3d.com/showthread.php?t=30811


http://www.programmersresource.com/forum/showthread.php?t=3651


http://forums.whirlpool.net.au/forum-replies-archive.cfm/657609

http://www.programmersheaven.com/mb/pasprog/162477/162617/re-help-me--problem-with-turbo-pascal-7/?S=B20000

http://www.noulakaz.net/weblog/2008/11/10/turbo-pascal-1-0-is-25-years-old/

Tugas 2 ( Alamat web Turbo Pascal )

http://kampuskami.orgfree.com/?p=5

http://kantor-online.blogspot.com/2008/04/pemrograman-pascal-3-mengenal-jendela.html

http://www.indoforum.org/archive/index.php?t-32029.

http://barkativeridical.blogspot.com/2008/11/belajar-dasar-turbo-pascal.html

http://goeschay.multiply.com/journal/item/9

http://www.aksespraktis.net/?p=143&cp=9

http://taufiksma2.blog2.plasa.com/2008/06/09/contoh-contoh-program-pascal/

http://id.answers.yahoo.com/question/index?qid=20080518190620AALhDuZ


http://moroners.wordpress.com/2008/04/11/compile-make-dan-running-source-code-pascal-di-linux/


http://materi-praktek.blogspot.com/2007/03/bab-1-mengenal-tampilan-turbo-pascal.html

http://www.gamedevid.org/forum/archive/index.php?t-6384.html

http://kampuskami.orgfree.com/?cat=12

http://forums.marsudirini-bks.sch.id/index.php?t=msg&th=533&start=0&


http://www.kaskus.us/showthread.php?t=1172581

http://ilmukomputers.blogspot.com/2008/11/ilmukomputer-aplikasi-digest-number_18.html

http://groups.google.com.br/group/id-ubuntu/browse_thread/thread/058faf9883ce082a


http://www.aksespraktis.net/?p=143&cp=9


http://ballz.ababa.net/suryascience/delphi1.html

Jumat, 14 November 2008

Program Hitung Volume Kerucut

uses crt;
var
r,t : byte;
v : real;
begin
clrscr;
writeln('*** Program Hitung Volume Kerucut ***');
writeln;
writeln('Program untuk menghitung volume kerucut ');
writeln('*Rumus V = 1/3 * 3.14 * r^2 * t *');
writeln;
writeln;
writeln;
write('Masukkan jari-jari kerucut = ');
readln(r);
Write('Masukkan tinggi kerucut = ');
readln(t);
v := 1/3 * 3.14 * r * r * t;
writeln;
writeln;
writeln('Volume kerucut yang dimaksud = ', v:6:2,'***');
writeln;
writeln;
readln;
end.