Program mencari faktorial dengan rekursi(korina7031 n veruka8056) Desember 20, 2009

program rekursi;
uses wincrt;
var
x:integer;
function faktorial(a:integer):integer;
begin
if a=0 then
faktorial:=1
else
faktorial:=a*faktorial(a-1);
end;
begin clrscr;
for x:=1 to 5 do
writeln(x,’!=’,faktorial(x));
readln;
end.

program menu(korina731 n veruka8056)

program men;
uses wincrt;
var
pil:integer;
begin
writeln(‘menu’);
writeln(‘1 ayam’);
writeln(‘2 pecel’);
write(‘pilihan anda:’);readln(pil);
clrscr;
case pil of
1:writeln(‘ayam’);
2:writeln(‘pecel’);
end;
end.

program menghitung waktu telepon(korina7031 n veruka8056)

Program waktu_telapon;
uses wincrt;
var
a,b,c,d,e,f,g,h,i:integer;
j,k,l,m:integer;
begin
writeln(‘masukkan waktu awal telepon’);
write(‘jam:’);readln(a);
write(‘menit:’);readln(b);
write(‘detik:’);readln(c);
writeln(‘masukkan waktu akhir telepon’);
write(‘jam:’);readln(d);
write(‘menit:’);readln(e);
write(‘detik:’);readln(f);
j:=(a*3600)+(b*60)+c;
k:=(d*3600)+(e*60)+f;
l:=k-j;
g:=l div 3600;
m:=l mod 3600;
h:=m div 60;
i:=m mod 60;
writeln(‘lama telepon’);
writeln(g,’ jam’);
writeln(h,’ menit’);
writeln(i,’ detik’);
end.

program konversi dari detik(korina7031 n veruka8056)

program detik;
uses wincrt;
var
a:longint;
b,c,d,e,f,g:integer;
begin
write(‘masukkan detik:’);readln(a);
b:=a div 86400;
c:=a mod 86400;
d:=c div 3600;
e:=c mod 3600;
f:=e div 60;
g:=e mod 60;
writeln(b,’ hari’);
writeln(d,’ jam’);
writeln(f,’ menit’);
writeln(g,’ detik’);
end.

program mencari biaya telepon(korina7031 n veruka8056)

Program waktu_telapon;
uses wincrt;
var
a,b,c,d,e,f,g,i:integer;
j,k,l,m:integer;
h:word;
begin
writeln(‘masukkan waktu awal telepon’);
write(‘jam:’);readln(a);
write(‘menit:’);readln(b);
write(‘detik:’);readln(c);
writeln(‘masukkan waktu akhir telepon’);
write(‘jam:’);readln(d);
write(‘menit:’);readln(e);
write(‘detik:’);readln(f);
j:=(a*3600)+(b*60)+c;
k:=(d*3600)+(e*60)+f;
l:=k-j;
g:=l div 5;
h:=g*200;
writeln(‘biaya telepon:’,h);
end.

Program mencari akar-akar persamaan kuadrat(korina7031 n veruka8056)

Program akar;
uses wincrt;
var
a,b,c:integer;
x1,x2,d:real;
begin
writeln(‘akar-akar pers kuadrat’);
write(‘a:’);readln(a);
write(‘b:’);readln(b);
write(‘c:’);readln(c);
d:=b*b-(4*a*c);
if d=0 then
begin
writeln(‘akar-akarnya kembar’);
x1:=(-b)/2*a;
writeln(x1);

end;
if d>0 then
begin writeln(‘akar-akarnya berbeda’) ;
x1:= ((-b)+(sqrt(d)) )/2*a;
x2:= ((-b)-(sqrt(d)) )/2*a;
writeln(x1);
writeln(x2);
end;
if d<0 then
begin
writeln('imajiner');
end;
end.

program entri matriks(korina7031 n veruka8056)

Program entri;
uses wincrt;
var
matriks:array[1..5,1..5]of integer;
i,j,m,n:integer;
begin
write(‘masukkal berapa baris:’);readln(m);
write(‘masukkan berapa kolom:’);readln(n);
for i:= 1 to m do
begin
for j:= 1 to n do
begin
writeln(‘nilai[‘,i,’,’,j,’]=’);readln(matriks[i,j] );
end;
writeln;
end;
for i:= 1 to m do
begin for j:= 1 to n do
write(matriks[i,j]);
writeln;
end;
end.

program perkalian 2 matriks(by korina7031 n veruka8056)

Program Perkalian2matrik;
uses wincrt;
var
x,y,z:array[1..25,1..25]of real;
i,j,k,p,q,r:byte;
Begin
gotoxy(30,1);writeln(‘PERKALIAN DUA MATRIKS’);
writeln(‘By:KORINA PUSPITASARI’);
Writeln(‘==========================================================================’);
writeln;
writeln(‘Masukkan 2 matrik yang anda inginkan’);
write(‘Baris matriks X:’);readln(p);
write(‘Kolom matriks X/Baris matriks Y:’);readln(q);
write(‘Kolom matriks Y:’);readln(r);
writeln(‘Komponen matriks X’);
for i:= 1 to p do
begin
for j:= 1 to q do
begin
write(‘X[‘,i,’,’,j,’]=’);readln(x[i,j]);
end;
writeln;
end;
writeln(‘Komponen matriks Y’);
for i:= 1 to q do
begin
for j:= 1 to r do
begin
write(‘Y[‘,i,’,’,j,’]=’);readln(y[i,j]);
end;
writeln;
end;
for i:=1 to p do
begin
for j:=1 to r do
begin
z[i,j]:=0;
for k:=1 to r do
z[i,j]:=z[i,j]+x[i,k]*y[k,j];
end;
end;
clrscr;
writeln( ‘matriks X’);
for i:= 1 to p do
begin
writeln;
for j:= 1 to q do
write(x[i,j]:10:1);
writeln;
end;
writeln;
writeln(‘matriks Y’);
for i:= 1 to q do
begin
writeln;
for j:= 1 to r do
write (y[i,j]:10:1);
writeln;
end;
writeln;
writeln(‘Hasil Kali Kedua matriks tersebut adalah’);
for i:=1 to p do
begin
writeln;
for j:=1 to r do
write(z[i,j]:10:1);
end;
end.

program menghitung keliling dan luas lingkaran(by korina7031 n veruka8056)

program luas_lingkaran;
uses wincrt;
const phi=3.14;
var r,L,kel:real;
begin
write(‘jari-jari:’);readln(r);
L:=phi*r*r;
kel:=2*phi*r;
writeln(‘L:’,L:6:2);
writeln(‘keliling:’,kel:6:2);
end.

program mencari volum tabung(by korina7031 n veruka)

program volum_tabung;
uses wincrt;
const
phi=3.14;
var
r,t,v:real;
begin
writeln(‘jari-jari:’);readln(r);
write(‘tinggi:’);readln(t);
v:=phi*r*r*t;
writeln(‘volum:’,v:5:2);
end.