Program cetak Bilangan Prima (Pascal)

Berikut ini adalah tampilan program yang mencetak semua bilangan prima yang < 1000

Untuk dowload program dan source codenya, silahkan gunakan link dibawah ini:

• dropbox
• mediafire
• dropbox (mirror)
• mediafire (mirror)

Time Converter (Pascal Programming)

program time_konv;
uses crt;
const
 m = 60;
 h = 60*m;
 d = 24*h;

var
 r: string;
 d1,h1,h2,m1,m2,s1,l : integer;
 s: longint;
begin
clrscr;
 writeln('This Program will convert how many seconds you give to day(s), hour(s), minute(s) and second(s).');
 writeln;
 writeln;
 write('Please input how many second(s) you wanna give : ');readln(s);
 writeln;
  d1:= s div d;
  h1:= s mod d;
  h2:= h1 div h;
  m1:= h1 mod h;
  m2:= m1 div m;
  s1:= m1 mod m;
  r:= 'Result : ';
  l:= length(r) + 2;
 write(r);
 writeln('- ',d1,' day(s)');
 writeln('- ':l,h2,' hour(s)');
 writeln('- ':l,m2,' minute(s)');
 writeln('- ':l,s1,' second(s)');
readkey;
end.

{Created by : Sylvert 'Syv' Tahalea}

Program Pecahan Uang

program pu;

var
i,n,x: integer;
k : array [1..10] of integer;

begin
write('Masukkan banyak uang yang anda punya : ');readln(n);

k[1]:=1000;
k[2]:=500;
k[3]:=200;
k[4]:=100;
k[5]:=50;
k[6]:=20;
k[7]:=10;
k[8]:=5;
k[9]:=2;
k[10]:=1;

for i:= 1 to 10 do
 begin
   if n >= k[i] then
    begin
      x:= n div k[i];
      n:= n mod k[i];
      writeln(k[i],' ',x);
    end;
 end;
readln;
end.

Program Bintang

program bintang;

var
b,i,j,n,m: integer;
label l;
begin
write('Masukkan sebuah bilangan ganjil : ');readln(n);
if (n mod 2) = 0 then goto l;
i:=1;
m:=n;
while i < n+2 do
 begin
  if m>0 then
  write(' ':m);
  if i mod 2 <> 0 then
   begin
    for j:= 1 to i do
     begin
      write('*');
     end;
    if m > 0 then
   if m > 0 then
   m:= m-1
   else m:= 0;
   end;
   i:= i+1;
  
   writeln;
 end;
 l:
readln;
end.

Program Akar Kuadrat

program drill_32;
uses crt;
var
a,b,c,d,x1,x2 : real;
begin
clrscr;
writeln('Program ini untuk menghitung akar kuadrat dari persamaan ax^2+bx+c = 0');
writeln('Baik imaginer maupun real.');
writeln;
write('Masukkan nilai a : ');readln(a);
write('Masukkan nilai b : ');readln(b);
write('Masukkan nilai c : ');readln(c);
d:= sqr(b)-4*a*c;
if d >= 0 then
begin
x1:= (-b - sqrt(d))/2*a;
x2:= (-b + sqrt(d))/2*a;
writeln;
writeln('Akar dari persamaan ',a:0:2,'x^2 + ',b:0:2,'x + ',c:0:2,' = 0 adalah real.');
writeln('X1 = ',x1:0:2);
writeln('X2 = ',x2:0:2);
end;
if d < 0 then
begin
writeln('Akar dari persamaan ',a:0:2,'x^2 + ',b:0:2,'x + ',c:0:2,' = 0 adalah Imaginer.');
writeln('X1 = (',-b:0:2,' - sqrt(',d:0:2,'))/',2*a:0:2,')');
writeln('X2 = (',-b:0:2,' + sqrt(',d:0:2,'))/',2*a:0:2,')');
writeln;
writeln;
writeln('By : Sylvert');
end;
readkey;
end.

Bilangan Pangkat n

program pangkat_n;
uses crt;
var
bildasar,pangkat,bilawal,bilakhir : integer;
begin
clrscr;
writeln('Program Pangkat');
writeln;
write('Masukkan sebuah bilangan : ');readln(bildasar);
write('Masukkan pangkat awal    : ');readln(bilawal);
write('Masukkan pangkat akhir   : ');readln(bilakhir);
writeln;
writeln;
writeln('Pangkat       Kelipatan ',bildasar);
writeln;
for pangkat := bilawal to bilakhir do
 begin
  write(pangkat:4);
  writeln(exp(ln(bildasar)*pangkat):20:0);
 end;
writeln;
writeln('Created by : Unknown');
write('Modified by : Sylvert Tahalea');
readkey;
end.

PROGRAM HITUNG LUAS

program hitung_luas;
uses crt;
var
n: byte;
luas,p,l,t : real;
begin
clrscr;
writeln(' ============================');
writeln('|                            |');
writeln('|   PROGRAM MENGHITUNG LUAS  |');
writeln('|    1. PERSEGI PANJANG      |');
writeln('|    2. SEGITIGA             |');
writeln('|    3. LINGKARAN            |');
writeln('|    4. TRAPESIUM            |');
writeln('|    5. SELESAI              |');
writeln('|                            |');
writeln(' ============================');
writeln;
write('Masukkan pilihan anda : ');readln(n);
 case n of
 1: begin
    clrscr;
    writeln('Menghitung Luas Persegi Panjang');
    write('Masukkan panjang : ');readln(p);
    write('Masukkan lebar   : ');readln(l);
    luas := p*l;
    writeln('Luas persegi panjang adalah : ',luas:0:2);
    readkey;
    end;
 2: begin
    clrscr;
    writeln('Menghitung Luas Segitiga');
    write('Masukkkan tinggi : ');readln(t);
    write('Masukkan alas    : ');readln(p);
    luas:= (1/2)*p*t;
    writeln('Luas segitiga adalah : ',luas:0:2);
    readkey;
    end;
 3: begin
    clrscr;
    writeln('Menghitung Luas Lingkaran');
    write('Masukkan jari-jari : ');readln(p);
    luas:=pi*sqr(p);
    writeln('Luas lingkaran adalah : ',luas:0:2);
    readkey;
    end;
 4: begin
    clrscr;
    writeln('Menghitung Luas Trapesium');
    write('Masukkan besar sisi A : ');readln(p);
    write('Masukkan besar sisi B : ');readln(l);
    write('Masukkan tinggi       : ');readln(t);
    luas:= (p+l)*(1/2)*t;
    writeln('Luas trapesium adalah : ',luas:0:2);
    readkey;
    end;
 5: halt;
 else writeln('Pilihan anda tidak ada.');readkey;
 end;
end.

METODE SIMPSON KOMPOSIT DALAM BAHASA PASCAL

program simpson_komposit;
uses crt;
var
a,b,h,jtrap,jsimp,xi,isimp : real;
i,n:integer;

function f(x:real):real;
begin
f:=exp((2/3)*ln(x));
end;

begin
clrscr;
writeln('PROGRAM HITUNG INTEGRAL MENGGUNAKAN METODE SIMPSON KOMPOSIT');
write('Masukkan batas bawah    : ');readln(a);
write('Masukkan batas atas     : ');readln(b);
write('Masukkan banyak partisi : ');readln(n);

if n mod 2 = 1 then halt;

h:= (b-a)/(n);

jtrap:=0;
jsimp:=0;

for i:= 1 to n-1 do
 begin
 xi:=a+i*h;
  if i mod 2 = 0 then
   jtrap:= jtrap+f(xi)
 end;
for i:= 1 to n do
 begin
 xi:=a+i*h;
  if i mod 2 = 1 then
   jsimp:= jsimp+f(xi)
 end;

isimp:=(h/3)*(f(a)+f(b)+2*jtrap+4*jsimp);
writeln('Nilai integral adalah : ',isimp:1:5);
readkey;
end.

{coded by : Sylvert Tahalea and Christian Halim}
{dosen pembimbing : Francis Y Rumlawang, S.Si, M.Si}

For Math'10

program umur;
uses crt;
var
a,b,c,d,e,f,x,y,z: integer;
begin
clrscr;
write('Masukkan tanggal lahir : ');readln(a,b,c);
write('Masukkan tanggal hari ini : ');readln(d,e,f);
x:=d-a;
if x < 0 then
 begin
  x:=30+x;
  e:=e-1;
 end;
y:=e-b;
if y < 0 then
 begin
  y:=12+y;
  f:=f-1;
 end;
z:=f-c;
writeln('Umur anda adalah : ',z,' tahun, ',y,' bulan, ',x,' hari.');
readkey;
end.