Contoh Program Pascal, Pascal script

uses crt;
var a,b,c,d,e,f,g,h,i:real;
var j,k,l,m,n,o,p,q,t:integer;
var pilihan,pilih:byte;
var lagi,ulang,y:char;
const phi=22/7;
begin
clrscr;
gotoxy(18,4);textcolor(11);write(#1200);
gotoxy(18,4);textcolor(11);write(#1200);
gotoxy(17,4);textcolor(11);write(#1200);
gotoxy(16,4);textcolor(11);write(#1200);
gotoxy(15,4);textcolor(11);write(#1200);
gotoxy(14,4);textcolor(11);write(#1200);
gotoxy(13,4);textcolor(11);write(#1200);
gotoxy(11,4);textcolor(11);write(#1200);
gotoxy(11,5);textcolor(11);write(#1200);
gotoxy(11,6);textcolor(11);write(#1200);
gotoxy(11,7);textcolor(11);write(#1200);
gotoxy(12,4);textcolor(11);write(#1200);
gotoxy(12,5);textcolor(11);write(#1200);
gotoxy(12,6);textcolor(11);write(#1200);
gotoxy(12,7);textcolor(11);write(#1200);
gotoxy(13,7);textcolor(11);write(#1200);
gotoxy(14,7);textcolor(11);write(#1200);
gotoxy(15,7);textcolor(11);write(#1200);
gotoxy(16,7);textcolor(11);write(#1200);
gotoxy(17,7);textcolor(11);write(#1200);
gotoxy(18,7);textcolor(11);write(#1200);
gotoxy(18,8);textcolor(11);write(#1200);
gotoxy(18,9);textcolor(11);write(#1200);
gotoxy(18,10);textcolor(11);write(#1200);
gotoxy(17,7);textcolor(11);write(#1200);
gotoxy(17,8);textcolor(11);write(#1200);
gotoxy(17,9);textcolor(11);write(#1200);
gotoxy(17,10);textcolor(11);write(#1200);
gotoxy(16,10);textcolor(11);write(#1200);
gotoxy(15,10);textcolor(11);write(#1200);
gotoxy(14,10);textcolor(11);write(#1200);
gotoxy(13,10);textcolor(11);write(#1200);
gotoxy(12,10);textcolor(11);write(#1200);
gotoxy(11,10);textcolor(11);write(#1200);

gotoxy(23,4);textcolor(11);write(#1200);
gotoxy(24,4);textcolor(11);write(#1200);
gotoxy(25,4);textcolor(11);write(#1200);
gotoxy(26,4);textcolor(11);write(#1200);
gotoxy(27,4);textcolor(11);write(#1200);
gotoxy(28,4);textcolor(11);write(#1200);
gotoxy(23,4);textcolor(11);write(#1200);
gotoxy(23,5);textcolor(11);write(#1200);
gotoxy(23,6);textcolor(11);write(#1200);
gotoxy(23,7);textcolor(11);write(#1200);
gotoxy(23,8);textcolor(11);write(#1200);
gotoxy(23,9);textcolor(11);write(#1200);
gotoxy(23,10);textcolor(11);write(#1200);
gotoxy(24,4);textcolor(11);write(#1200);
gotoxy(24,5);textcolor(11);write(#1200);
gotoxy(24,6);textcolor(11);write(#1200);
gotoxy(24,7);textcolor(11);write(#1200);
gotoxy(24,8);textcolor(11);write(#1200);
gotoxy(24,9);textcolor(11);write(#1200);
gotoxy(24,10);textcolor(11);write(#1200);
gotoxy(25,10);textcolor(11);write(#1200);
gotoxy(26,10);textcolor(11);write(#1200);
gotoxy(27,10);textcolor(11);write(#1200);
gotoxy(28,10);textcolor(11);write(#1200);

gotoxy(32,4);textcolor(11);write(#1200);
gotoxy(33,4);textcolor(11);write(#1200);
gotoxy(34,4);textcolor(11);write(#1200);
gotoxy(35,4);textcolor(11);write(#1200);
gotoxy(36,4);textcolor(11);write(#1200);
gotoxy(37,4);textcolor(11);write(#1200);
gotoxy(32,5);textcolor(11);write(#1200);
gotoxy(32,6);textcolor(11);write(#1200);
gotoxy(32,7);textcolor(11);write(#1200);
gotoxy(32,8);textcolor(11);write(#1200);
gotoxy(32,9);textcolor(11);write(#1200);
gotoxy(32,10);textcolor(11);write(#1200);
gotoxy(37,5);textcolor(11);write(#1200);
gotoxy(37,6);textcolor(11);write(#1200);
gotoxy(37,7);textcolor(11);write(#1200);
gotoxy(37,8);textcolor(11);write(#1200);
gotoxy(37,9);textcolor(11);write(#1200);
gotoxy(37,10);textcolor(11);write(#1200);
gotoxy(32,10);textcolor(11);write(#1200);
gotoxy(33,10);textcolor(11);write(#1200);
gotoxy(34,10);textcolor(11);write(#1200);
gotoxy(35,10);textcolor(11);write(#1200);
gotoxy(36,10);textcolor(11);write(#1200);

gotoxy(41,4);textcolor(11);write(#1200);
gotoxy(42,4);textcolor(11);write(#1200);
gotoxy(43,4);textcolor(11);write(#1200);
gotoxy(44,4);textcolor(11);write(#1200);
gotoxy(45,4);textcolor(11);write(#1200);
gotoxy(46,4);textcolor(11);write(#1200);
gotoxy(47,4);textcolor(11);write(#1200);
gotoxy(48,4);textcolor(11);write(#1200);
gotoxy(49,4);textcolor(11);write(#1200);
gotoxy(50,4);textcolor(11);write(#1200);
gotoxy(45,5);textcolor(11);write(#1200);
gotoxy(46,5);textcolor(11);write(#1200);
gotoxy(45,6);textcolor(11);write(#1200);
gotoxy(46,6);textcolor(11);write(#1200);
gotoxy(45,7);textcolor(11);write(#1200);
gotoxy(46,7);textcolor(11);write(#1200);
gotoxy(45,8);textcolor(11);write(#1200);
gotoxy(46,8);textcolor(11);write(#1200);
gotoxy(45,9);textcolor(11);write(#1200);
gotoxy(46,9);textcolor(11);write(#1200);
gotoxy(45,10);textcolor(11);write(#1200);
gotoxy(46,10);textcolor(11);write(#1200);

gotoxy(1,1);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);write(#31);
write(#31);write(#31);write(#31);
textcolor(12);
gotoxy(2,23);writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

gotoxy(2,2);writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
textcolor(11);
gotoxy(1,24);writeln('*******************************************************************************');
gotoxy(1,12);textcolor(7);writeln('******************************************************************************');
gotoxy(1,2);write('*');gotoxy(79,2);write('*');
gotoxy(1,3);write('*');gotoxy(79,3);write('*');
gotoxy(1,4);write('*');gotoxy(79,4);write('*');
gotoxy(1,5);write('*');gotoxy(79,5);write('*');
gotoxy(1,6);write('*');gotoxy(79,6);write('*');
gotoxy(1,7);write('*');gotoxy(79,7);write('*');
gotoxy(1,8);write('*');gotoxy(79,8);write('*');
gotoxy(1,9);write('*');gotoxy(79,9);write('*');
gotoxy(1,10);write('*');gotoxy(79,10);write('*');
gotoxy(1,11);write('*');gotoxy(79,11);write('*');
gotoxy(1,12);write('*');gotoxy(79,12);write('*');
gotoxy(1,13);write('*');gotoxy(79,13);write('*');
gotoxy(1,14);write('*');gotoxy(79,14);write('*');
gotoxy(1,15);write('*');gotoxy(79,15);write('*');
gotoxy(1,16);write('*');gotoxy(79,16);write('*');
gotoxy(1,17);write('*');gotoxy(79,17);write('*');
gotoxy(1,18);write('*');gotoxy(79,18);write('*');
gotoxy(1,19);write('*');gotoxy(79,19);write('*');
gotoxy(1,20);write('*');gotoxy(79,20);write('*');
gotoxy(1,21);write('*');gotoxy(79,21);write('*');
gotoxy(1,22);write('*');gotoxy(79,22);write('*');
gotoxy(1,23);write('*');gotoxy(79,23);write('*');


gotoxy(58,6);textcolor(11);write('SMANDA COMPUTER');
gotoxy(59,8);textcolor(11);write('OLYMPIAD TEAM');
gotoxy(54,4);textcolor(7);writeln('**********************');
gotoxy(54,10);textcolor(7);writeln('**********************');
gotoxy(54,4);write('*');gotoxy(75,5);write('*');
gotoxy(54,5);write('*');gotoxy(75,6);write('*');
gotoxy(54,6);write('*');gotoxy(75,7);write('*');
gotoxy(54,7);write('*');gotoxy(75,8);write('*');
gotoxy(54,8);write('*');gotoxy(75,9);write('*');
gotoxy(54,9);write('*');gotoxy(75,10);write('*');
gotoxy(54,10);write('*');gotoxy(75,4);write('*');

gotoxy(63,14);write(' ');gotoxy(77,14);write('*');
gotoxy(63,14);write('*');gotoxy(77,14);write('*');
gotoxy(63,15);write('*');gotoxy(77,15);write('*');
gotoxy(63,16);write('*');gotoxy(77,16);write('*');
gotoxy(63,17);write('*');gotoxy(77,17);write('*');
gotoxy(63,18);write('*');gotoxy(77,18);write('*');
gotoxy(63,19);write('*');gotoxy(77,19);write('*');
gotoxy(63,20);write('*');gotoxy(77,20);write('*');
gotoxy(63,21);write('*');gotoxy(77,21);write('*');
gotoxy(63,22);write('*');gotoxy(77,22);write('*');

gotoxy(63,14);textcolor(9);writeln('***************');
gotoxy(63,22);textcolor(9);writeln('***************');
gotoxy(65,13);textcolor(13);write('PROGRAMMER');
gotoxy(65,15);textcolor(9);write('SUTRISNO');
gotoxy(68,17);write('A');
gotoxy(69,18);write('N');
gotoxy(70,19);write('D');
gotoxy(68,21);write('A. KURDI');

gotoxy(5,13);delay(100);textcolor(12);write(#1);
gotoxy(60,13);delay(100);textcolor(12);write(#1);
gotoxy(7,13);delay(100);textcolor(12);write(#1);
gotoxy(58,13);delay(100);textcolor(12);write(#1);
gotoxy(9,13);delay(100);textcolor(12);write(#1);
gotoxy(56,13);delay(50);textcolor(12);write(#1);
gotoxy(11,13);delay(50);textcolor(12);write(#1);
gotoxy(54,13);delay(100);textcolor(12);write(#1);
gotoxy(13,13);delay(100);textcolor(12);write(#1);
gotoxy(52,13);delay(50);textcolor(12);write(#1);
gotoxy(15,13);delay(50);textcolor(12);write(#1);
gotoxy(50,13);delay(100);textcolor(12);write(#1);
gotoxy(17,13);delay(100);textcolor(12);write(#1);
gotoxy(48,13);delay(80);textcolor(12);write(#1);
gotoxy(19,13);delay(80);textcolor(12);write(#1);
gotoxy(46,13);delay(100);textcolor(12);write(#1);
gotoxy(21,13);delay(100);textcolor(12);write(#1);
gotoxy(44,13);delay(100);textcolor(12);write(#1);
gotoxy(23,13);delay(100);textcolor(12);write(#1);
gotoxy(42,13);delay(100);textcolor(12);write(#1);
gotoxy(25,13);delay(100);textcolor(12);write(#1);

gotoxy(27,13);delay(200);textbackground(8);textcolor(11);write(' ');
gotoxy(28,13);delay(200);textbackground(8);textcolor(11);write('I');
gotoxy(29,13);delay(200);textbackground(8);textcolor(11);write('N');
gotoxy(30,13);delay(200);textbackground(8);textcolor(11);write('T');
gotoxy(31,13);delay(200);textbackground(8);textcolor(11);write('R');
gotoxy(32,13);delay(200);textbackground(8);textcolor(11);write('O');
gotoxy(33,13);delay(200);textbackground(8);textcolor(11);write('D');
gotoxy(34,13);delay(200);textbackground(8);textcolor(11);write('U');
gotoxy(35,13);delay(200);textbackground(8);textcolor(11);write('C');
gotoxy(36,13);delay(200);textbackground(8);textcolor(11);write('T');
gotoxy(37,13);delay(200);textbackground(8);textcolor(11);write('I');
gotoxy(38,13);delay(200);textbackground(8);textcolor(11);write('O');
gotoxy(39,13);delay(200);textbackground(8);textcolor(11);write('N');


gotoxy(11,15);textbackground(black); writeln('0. Exit ');
gotoxy(11,17);textbackground(black); writeln('1. Perhitungan Luas Serta Volume Berbagai Bangun ');
gotoxy(14,19);writeln('Dan Menghitung Konversi ');
pilihan:=9;
while(pilihan<0)>1) do
begin
gotoxy(11,21);TextColor(yellow);write('Tekan 1 Lalu "ENTER" Untuk Melanjutkan!!! ');read(pilihan);
end;

clrscr;
if pilihan=1 then
begin

clrscr;
{Masukkan Animasi}
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);

gotoxy(1,24);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);
write(#16); write(#19); write(#17);write(#16); write(#19); write(#17);


TextColor(12);
gotoxy(1,14);textbackground(black);write('\___________________________ ____________________________/');
gotoxy(1,9);textbackground(black);write('______________________/ \______________________');
gotoxy(24,8);textbackground(black);write('_________________________________');


gotoxy(25,9);TextColor(11);write('..........PLEASE WAIT..........');
gotoxy(1,11);textcolor(7);writeln('*******************************************************************************');
gotoxy(1,13);writeln('*******************************************************************************');

gotoxy(1,12);delay(200);textcolor(13);write(#1200);
gotoxy(2,12);delay(200);write(#1200);
gotoxy(3,12);delay(10);write(#1200);
gotoxy(4,12);delay(200);write(#1200);
gotoxy(5,12);delay(50);write(#1200);
gotoxy(6,12);delay(50);write(#1200);
gotoxy(7,12);delay(50);write(#1200);
gotoxy(8,12);delay(200);write(#1200);
gotoxy(9,12);delay(200);write(#1200);
gotoxy(10,12);delay(100);write(#1200);
gotoxy(11,12);delay(50);write(#1200);
gotoxy(12,12);delay(40);write(#1200);
gotoxy(13,12);delay(200);write(#1200);
gotoxy(14,12);delay(200);write(#1200);
gotoxy(15,12);delay(200);write(#1200);
gotoxy(16,12);delay(200);write(#1200);
gotoxy(17,12);delay(200);write(#1200);
gotoxy(18,12);delay(200);write(#1200);
gotoxy(19,12);delay(10);write(#1200);
gotoxy(20,12);delay(200);write(#1200);
gotoxy(21,12);delay(100);write(#1200);
gotoxy(22,12);delay(500);write(#1200);
gotoxy(23,12);delay(500);write(#1200);
gotoxy(24,12);delay(500);write(#1200);
gotoxy(25,12);delay(50);write(#1200);
gotoxy(26,12);delay(200);write(#1200);
gotoxy(27,12);delay(200);write(#1200);
gotoxy(28,12);delay(100);write(#1200);
gotoxy(29,12);delay(100);write(#1200);
gotoxy(30,12);delay(100);write(#1200);
gotoxy(31,12);delay(50);write(#1200);
gotoxy(32,12);delay(200);write(#1200);
gotoxy(33,12);delay(50);write(#1200);
gotoxy(34,12);delay(200);write(#1200);
gotoxy(35,12);delay(200);write(#1200);
gotoxy(36,12);delay(80);write(#1200);
gotoxy(37,12);delay(200);write(#1200);
gotoxy(38,12);delay(200);write(#1200);
gotoxy(39,12);delay(50);write(#1200);
gotoxy(40,12);delay(40);write(#1200);
gotoxy(41,12);delay(200);write(#1200);
gotoxy(42,12);delay(200);write(#1200);
gotoxy(43,12);delay(200);write(#1200);
gotoxy(44,12);delay(200);write(#1200);
gotoxy(45,12);delay(200);write(#1200);
gotoxy(46,12);delay(10);write(#1200);
gotoxy(47,12);delay(50);write(#1200);
gotoxy(48,12);delay(50);write(#1200);
gotoxy(49,12);delay(50);write(#1200);
gotoxy(50,12);delay(50);write(#1200);
gotoxy(51,12);delay(50);write(#1200);
gotoxy(52,12);delay(50);write(#1200);
gotoxy(53,12);delay(50);write(#1200);
gotoxy(54,12);delay(50);write(#1200);
gotoxy(55,12);delay(50);write(#1200);
gotoxy(56,12);delay(50);write(#1200);
gotoxy(57,12);delay(50);write(#1200);
gotoxy(58,12);delay(20);write(#1200);
gotoxy(59,12);delay(20);write(#1200);
gotoxy(60,12);delay(200);write(#1200);
gotoxy(61,12);delay(20);write(#1200);
gotoxy(62,12);delay(20);write(#1200);
gotoxy(63,12);delay(20);write(#1200);
gotoxy(64,12);delay(20);write(#1200);
gotoxy(65,12);delay(10);write(#1200);
gotoxy(66,12);delay(200);write(#1200);
gotoxy(67,12);delay(20);write(#1200);
gotoxy(68,12);delay(20);write(#1200);
gotoxy(69,12);delay(200);write(#1200);
gotoxy(70,12);delay(200);write(#1200);
gotoxy(71,12);delay(80);write(#1200);
gotoxy(72,12);delay(50);write(#1200);
gotoxy(73,12);delay(20);write(#1200);
gotoxy(74,12);delay(200);write(#1200);
gotoxy(75,12);delay(10);write(#1200);
gotoxy(76,12);delay(100);write(#1200);
gotoxy(77,12);delay(100);write(#1200);
gotoxy(78,12);delay(200);write(#1200);
gotoxy(79,12);delay(50);write(#1200);
gotoxy(34,14);delay(200);write('L');
gotoxy(35,14);delay(200);write('O');
gotoxy(36,14);delay(200);write('A');
gotoxy(37,14);delay(200);write('D');
gotoxy(38,14);delay(200);write('I');
gotoxy(39,14);delay(200);write('N');
gotoxy(40,14);delay(200);write('G');
gotoxy(41,14);delay(240);write('.'); gotoxy(42,14);delay(240);write('.');
gotoxy(43,14);delay(240);write('.');
gotoxy(30,15);delay(100);textcolor(11);write('READING DATA');


lagi:='Y';
while lagi='Y' do
begin
clrscr;
gotoxy(1,1);textbackground(black);textcolor(white);writeln('*******************************************************************************');
gotoxy(2,21);textbackground(black);writeln('=============================================================================');
gotoxy(1,2);write('*');gotoxy(79,2);write('*');
gotoxy(1,3);write('*');gotoxy(79,3);write('*');gotoxy(40,21);write('||');
gotoxy(1,4);write('*');gotoxy(79,4);write('*');gotoxy(40,4);write('||');
gotoxy(1,5);write('*');gotoxy(79,5);write('*');gotoxy(40,5);write('||');
gotoxy(1,6);write('*');gotoxy(79,6);write('*');gotoxy(40,6);write('||');
gotoxy(1,7);write('*');gotoxy(79,7);write('*');gotoxy(40,7);write('||');
gotoxy(1,8);write('*');gotoxy(79,8);write('*');gotoxy(40,8);write('||');
gotoxy(1,9);write('*');gotoxy(79,9);write('*');gotoxy(40,9);write('||');
gotoxy(1,10);write('*');gotoxy(79,10);write('*');gotoxy(40,10);write('||');
gotoxy(1,11);write('*');gotoxy(79,11);write('*');gotoxy(40,11);write('||');
gotoxy(1,12);write('*');gotoxy(79,12);write('*');gotoxy(40,12);write('||');
gotoxy(1,13);write('*');gotoxy(79,13);write('*');gotoxy(40,13);write('||');
gotoxy(1,14);write('*');gotoxy(79,14);write('*');gotoxy(40,14);write('||');
gotoxy(1,15);write('*');gotoxy(79,15);write('*');gotoxy(40,15);write('||');
gotoxy(1,16);write('*');gotoxy(79,16);write('*');gotoxy(40,16);write('||');
gotoxy(1,17);write('*');gotoxy(79,17);write('*');gotoxy(40,17);write('||');
gotoxy(1,18);write('*');gotoxy(79,18);write('*');gotoxy(40,18);write('||');
gotoxy(1,19);write('*');gotoxy(79,19);write('*');gotoxy(40,19);write('||');
gotoxy(1,20);write('*');gotoxy(79,20);write('*');gotoxy(40,20);write('||');
gotoxy(1,21);write('*');gotoxy(79,21);write('*');
gotoxy(1,22);write('*');gotoxy(79,22);write('*');
gotoxy(1,23);write('*');gotoxy(79,23);write('*');
gotoxy(1,24);write('*');gotoxy(79,24);write('*');
gotoxy(27,4);textcolor(14);write('\');gotoxy(56,4);write('/');
textcolor(14);
gotoxy(2,3);textbackground(black);write('\____________________________ _________________________/');
gotoxy(2,2);textbackground(black);write('___________________________/ \________________________');
gotoxy(28,4);textbackground(black);write('____________________________');

textbackground(black);gotoxy(35,3);TextColor(12);writeln(' MENU UTAMA ');
gotoxy(2,6);TextColor(11);writeln('0. Exit');gotoxy(31,6);TextColor(13);write('Silahkan Pilih 0-12 ');
gotoxy(2,8);TextColor(11);writeln('1. Menghitung Luas Dan Volume Balok');
gotoxy(2,10);writeln('2. Menghitung Luas Dan Volume Tabung');
gotoxy(2,12);writeln('3. Menghitung Luas Dan Volume Kerucut');
gotoxy(2,14);writeln('4. Menghitung Luas Dan Volume Bola ');
gotoxy(2,16);writeln('5. Menghitung Luas Dan Volume Kubus');
gotoxy(2,18);writeln('6. Menghitung Luas Dan Volume Limas');
gotoxy(42,8);writeln('7. Menghitung Jumlah Kalor');
gotoxy(4,20);writeln(' Segi Empat');
gotoxy(42,10);writeln('8. Konversi Waktu Dalam Bentuk Detik');
gotoxy(42,12);writeln('9. Konversi Fahrenheit ke Celcius');
gotoxy(42,14);writeln('10. Konversi Waktu Dalam Bentuk Jam');
gotoxy(42,16);writeln('11. Konversi Suhu Reamur ke Celcius');
gotoxy(42,18);writeln('12. Konversi Suhu Celcius ke Reamur');


pilihan:=15;
while(pilihan<0)>12) do
begin
gotoxy(2,24);textbackground(black);TextColor(white);writeln('******************************************************************************');
gotoxy(32,22);textbackground(black);TextColor(yellow);write('Pilihan Anda :=: ');read(pilihan);
gotoxy(25,23);writeln('Tekan 0 Lalu "ENTER" Untuk Keluar');

readln;
end;
if pilihan=0 then
begin
exit
end;
if pilihan=1 then
begin
clrscr;
gotoxy(21,2);write('Masukkan Tinggi Balok : ');readln(a);
gotoxy(21,4);write('Masukkan Lebar Balok : ');readln(b);
gotoxy(21,6);write('Masukkan Panjang Balok : ');readln(c);
d:=2*c*b+2*a*b+2*c*a;
e:=a*b*c;
gotoxy(21,9);writeln('Luas Permukaan Balok : ',d:9:2);
gotoxy(21,11);writeln('Volume Balok Adalah : ',e:9:2);
gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;

if pilihan=2 then
begin
clrscr;
gotoxy(21,2);write('Masukkan jari-Jari : ');readln(a);
gotoxy(21,4);write('Masukkan Tinggi Tabung : ');readln(b);
d:=2*phi*a*a+2*phi*a*b;
e:=phi*a*a*b;
writeln;
gotoxy(21,7);writeln('Luas Permukaan Tabung : ',d:9:2);
gotoxy(21,9);writeln('Volume Tabung : ',e:9:2);
gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;

if pilihan=3 then
begin
clrscr;
gotoxy(21,2);write('Masukkan Jari-Jari : ');readln(a);
gotoxy(21,4);write('Masukkan Tinggi Kerucut : ');readln(b);
c:=sqrt(a*a+b*b);
d:=(phi*a*a)+(phi*a*c);
e:=(phi*a*a*b)/3;
gotoxy(21,7);writeln('Volume Kerucut : ',e:9:2);
gotoxy(21,9);writeln('Luas Kerucut : ',d:9:2);
gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;

if pilihan=4 then
begin
clrscr;
gotoxy(21,2);write('Masukkan Jari-Jari : ');readln(a);
c:=4/3*phi*a*a*a;
d:=4*phi*a*a;
gotoxy(21,7);writeln('Volume Bola : ',c:9:2);
gotoxy(21,9);writeln('Luas Bola : ',d:9:2);
gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;

if pilihan=5 then
begin
clrscr;
gotoxy(21,2);write('Masukkan Panjang Sisi Kubus : ');readln(a);
c:=a*a*a;
d:=6*(a*a);
gotoxy(21,7);writeln('Volume Kubus : ',c:9:2);
gotoxy(21,9);writeln('Luas Kubus : ',d:9:2);
gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;

if pilihan=6 then
begin
clrscr;
gotoxy(21,2);write('Masukkan Panjang Alas : ');readln(a);
gotoxy(21,4);write('Masukkan Lebar Alas : ');readln(b);
gotoxy(21,6);write('Masukkan Tinggi Limas : ');readln(g);
c:=(a*b*g)*1/3;
d:=1*a/2;
e:=1*b/2;
f:=sqrt(d*d+g*g);
h:=sqrt(e*e+g*g);
i:=(2*d*h)+(2*e*f)+(a*b);
gotoxy(21,9);writeln('Volume Limas : ',c:9:2);
gotoxy(21,11);writeln('Luas Limas : ',i:9:2);
gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;

if pilihan=8 then
begin
clrscr;
gotoxy(21,2);write('Masukkan Jumlah Jam : ');readln(j);
gotoxy(21,4);write('Masukkan Jumlah Menit : ');readln(k);
gotoxy(21,6);write('Masukkan Jumlah Detik : ');readln(l);
m:=(j*3600)+(k*60)+l;
gotoxy(21,9);writeln('Hasil Konversi Adalah : ',m,' Detik');
gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;

if pilihan=7 then
begin
clrscr;
gotoxy(21,2);write('Masukkan Massa Benda : ');readln(a);
gotoxy(21,4);write('Masukkan Suhu Awal : ');readln(b);
gotoxy(21,6);write('Masukkan Suhu Akhir : ');readln(c);
gotoxy(21,8);write('Masukkan Kalor Jenis : ');readln(d);
e:=c-b;
f:=a*d*e;
gotoxy(21,12);writeln('Jumlah Kalor Adalah : ',f:9:2,' Joule');

gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;


if pilihan=9 then
begin
clrscr;
gotoxy(21,2);write('Masukkan Suhu Dalam Fahrenheit : ');readln(a);
b:=5/9*(a-32);
gotoxy(21,5);writeln('Suhu Dalam Celcius Adalah : ',b:8:2);
writeln;
gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;

if pilihan=10 then
begin
clrscr;
gotoxy(21,2);write('Masukkan Jumlah Detik : ');readln(j);
if (j/3600)>0 then
begin
k:=j div 3600;
l:=j-(k*3600);
end
else
begin
k:=0;
l:=j;
end;
if (l/60)>0 then
begin
m:=l div 60;
n:=l-(m*60);
end
else
begin
m:=0;
n:=m;
end;
o:=n;
gotoxy(21,6); writeln('Hasil : ',k, ' jam ' ,m,' Menit ' ,o, ' Detik');
gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;

if pilihan=11 then
begin
clrscr;
gotoxy(21,2);write('Masukkan Suhu Dalam Reamur : ');readln(a);
b:=5/4*a;
gotoxy(21,6);writeln('Hasil Konversi Adalah : ',b:8:2,' Derajat Celcius');
gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;

if pilihan=12 then
begin
clrscr;
gotoxy(21,2);write('Masukkan Suhu Dalam Celcius : ');readln(a);
b:=4/5*a;
gotoxy(21,6);writeln('Hasil Konversi Adalah : ',b:8:2,' Derajat Reamur');
gotoxy(18,20);TextColor(11);writeln('Tekan "ENTER" Untuk Kembali Ke Menu Sebelumnya');
readln;
end;
end;

readln;


end;

end.