ALAMAT WEB TURBO PASCAL

ALAMAT WEB TURBO PASCAL DALAM BAHASA INDONESIA

http://www.mideis.com/node/5

http://id.wikipedia.org/wiki/Pascal_(bahasa_pemrograman)

http://www.linuxfocus.org/Indonesian/November2004/article356.shtml

http://agung83.wordpress.com/category/kumpulan-materi-pascal/

http://dif4jc.wordpress.com/2007/06/22/pengenalan-bahasa-pascal-pertemuan-i/

http://kurniawan.tv/struktur-program-dalam-bahasa-pascal.htm

http://www.ee.ui.ac.id/ratna/CAE/CAE2A/sld001.htm

http://ipotes.wordpress.com/2008/04/28/struktur-dan-komponen-dasar-program-pascal/

http://funnyfree.net/results03/program_pengulangan_pascal.html

http://www.rey1024.com/?p=12

http://s3ptian.wordpress.com/2006/09/29/struktur-pemograman-pascal
http://www.pdf-search-engine.com/pemograman-pascal-karangan-adi-pdf.html
http://www.ictklungkung.net/web/index.php?option=com_content&task=view&id=55&Itemid=37
http://forum.yogyafree.net/viewforum.php?f=85&start=0
http://materi-praktek.blogspot.com/2007/03/fungsi-fungsi-string-pada-pascal.html
http://www.scribd.com/doc/8368386/Pascal
http://rumahilmuindonesia.net/v10/index.php?option=com_content&view=article&id=270:pemrograman-dasar-dengan-pascal&catid=70:materi&Itemid=78
http://id.music.openfun.org/wiki/Integer#Dalam_bahasa_pemrograman_Pascal
http://wiki.lazarus.freepascal.org/Standard_Pascal/id
http://forumkrisoft.my-place.us/showthread.php?p=24

ALAMAT WEB TURBO PASCAL DALAM BAHASA INGGRIS

http://en.wikipedia.org/wiki/Pascal_(programming_language)

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

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

http://www.engin.umd.umich.edu/CIS/course.des/cis400/pascal/pascal.html

http://www.streamtech.nl/problemset/189.html

http://www.allegro.com/papers/htpp.html

http://pascal-central.com/ppl/#Origins
http://www.thocp.net/software/languages/pascal.htm

http://web.mit.edu/sunsoft_v5.1/www/pascal/user_guide/using_pascalug.doc.html

http://www.metacafe.com/watch/872005/write_program_in_turbo_pascal/

http://www.threedee.com/jcm/psystem/whypascal.html

http://www.thinkage.ca/english/gcos/expl/pasc/comm.html

http://www.techimo.com/forum/webmastering-programming/122793-help-about-turbo-pascal.html

http://forums.devshed.com/delphi-programming-90/turbo-pascal-help-needed-again-425320.html

http://www.daniweb.com/forums/thread21883.htmlhttp://en.allexperts.com/q/Pascal-1624/error-use-unit-turbo.htm

http://www.daniweb.com/code/pascal.html?gclid=CPini9G3n5cCFQkYewodsik39w
http://www.geocities.com/hotdogcom/ptutor/paslist.html
http://www.moorecad.com/standardpascal/
http://www.courseware.ust.hk/english/pasframe.htm
http://dino.shiftedphase.com/comp/pascal.htm

{ Read More }

CONTOH-CONTOH PROGRAM PERHITUNGAN VOLUME BANGUN RUANG

PERHITUNGAN VOLUME KUBUS


ALGORITMA (KUBUS)
1. Baca s (sisi kubus)
2. Hitung volume kubus
3. Cetak volume kubus

uses crt;
var
v,s:integer;
begin
clrscr;
writeln(‘PERHITUNGAN VOLUME KUBUS’);
writeln;
write(‘Input sisi kubus : ‘);
readln(s);
v:=s*s*s;
writeln(‘Volume kubus = S^3’);
writeln(’Volume kubus = ’,v);
readln;
end.




PERHITUNGAN VOLUME PRISMA SEGITIGA


ALGORITMA (PRISMA SEGITIGA)
1. Baca as (alas segitiga)
2. Baca ts (tinggi segitiga)
3. Baca t (tinggi prisma)
4. Hitung luas alas
5. Hitung volume prisma segitiga
6. Cetak volume prisma segitiga


uses crt;
var
v,a:real;
as,ts,t:integer;
begin
clrscr;
writeln(‘PERHITUNGAN VOLUME PRISMA SEGITIGA’);
writeln;
write(‘Input alas segitiga : ‘);
readln(as);
write(’Input tinggi segitiga : ’);
readln(ts);
write(’Input tinggi prisma : ’);
readln(t);
a:=(as*ts)/2;
v:=(a*t)/2;
writeln(‘Volume prisma segitiga = (alas x tinggi)/2’);
writeln(’Volume prisma segitiga = ’,v:6:2);
readln;
end.



PERHITUNGAN VOLUME LIMAS


ALGORITMA (LIMAS)
1. Baca x (sisi segi empat)
2. Baca y (sisi segi empat)
3. Baca t (tinggi limas)
4. Hitung luas alas
5. Hitung volume limas
6. Cetak volume limas

uses crt;
var
v,f:real;
a,b,t,x,y:integer;
begin
clrscr;
writeln(‘PERHITUNGAN VOLUME LIMAS’);
writeln;
write(‘Input sisi alas x : ‘);
readln(x);
write(’Input sisi alas y : ’);
readln(y);
write(’Input tinggi limas : ’);
readln(t);
a:=x*y;
v:=(a*t)/3;
writeln(‘Volume limas = (alas x tinggi)/3’);
writeln(’Volume limas = ’,v:6:2);
readln;
end.


PERHITUNGAN VOLUME KERUCUT


ALGORITMA (KERUCUT)
1. Hitung f (π)
2. Baca r (jari-jari)
3. Baca t (tinggi kerucut)
4. Hitung luas alas kerucut
5. Hitung volume kerucut
6. Cetak volume kerucut

uses crt;
var a,v,f:real;
t,r:integer;
begin
clrscr;
f:=22/7;
writeln(‘PERHITUNGAN VOLUME KERUCUT’);
writeln;
write(‘Input jari-jari alas : ‘);
readln(r);
write(’Input tinggi kerucut : ’);
readln(t);
a:=f*r*r;
v:=(a*t)/3;
writeln(‘Volume kerucut = (alas x tinggi)/3’);
writeln(’Volume kerucut = ’,v:6:2);
readln;
end.


PERHITUNGAN VOLUME TABUNG

ALGORITMA (TABUNG)
1. Hitung f (π)
2. Baca r (jari-jari)
3. Baca t (tinggi tabung)
4. Hitung luas alas
5. Hitung volume tabung
6. Cetak volume tabung

uses crt;
var
a,v,f:real;
t,r:integer;
begin
clrscr;
f:=22/7;
writeln(‘PERHITUNGAN VOLUME TABUNG’);
writeln;
write(‘Input jari-jari alas : ‘);
readln(r);
write(’Input tinggi tabung : ’);
readln(t);
a:=f*r*r;
v:=(a*t);
writeln(‘Volume tabung = alas x tinggi’);
writeln(’Volume tabung = ’,v:6:2);
readln;
end.


PERHITUNGAN VOLUME BOLA



ALGORITMA (BOLA)
1. Hitung f (π)
2. Baca r (jari-jari)
3. Hitung volume bola
4. Cetak volume bola

uses crt;
var
v,f:real;
r:integer;
begin
clrscr;
f:=22/7;
writeln(‘PERHITUNGAN VOLUME BOLA’);
writeln;
write(‘Input jari-jari bola : ‘);
readln(r); v:=4/3*(f*r*r);
writeln(‘Volume bola = 4/3(luas lingkaran)’);
writeln(’Volume bola = ’,v:6:2);
readln;
end.

{ Read More }