dian's blog

MENENTUKAN_BILANGAN_PHYTAGORAS

2009-06-19T03:37:00.001-07:00

PROGRAM MENENTUKAN_BILANGAN_PHYTAGORAS;

Uses Crt;

Var
a,b,c:Real;

Begin
Clrscr;
Writeln (' MENENTUKAN BILANGAN PHYTAGORAS ');
Writeln (' OLEH : Dian ALiza Pratidina_070804_IV B ');
Writeln;

Write ('Masukan a: ');
Readln (a);
writeln;
Write ('Masukan b: ');
Readln (b);

c:= sqrt ((a*a)+(b*b));
Writeln;

Writeln ('Sehingga Nilai c adalah : ',c:2:2);
Writeln;

If a>0 Then
begin
Writeln;
Writeln ('a MERUPAKAN BILANGAN ASLI');
end else if a<0 Then
begin
Writeln ('a BUKAN MERUPAKAN BILANGAN ASLI');
end;
Writeln;
if b>0 Then
begin
Writeln ('b MERUPAKAN BILANGAN ASLI');
end else if b<0 Then
begin
Writeln ('b BUKAN MERUPAKAN BILANGAN ASLI');
end;
Writeln;
if c>0 Then
begin
Writeln ('c MERUPAKAN BILANGAN ASLI');
end else if c<0 Then
begin
Writeln ('c BUKAN MERUPAKAN BILANGAN ASLI');
end;

Writeln;
WriteLn ('Terima Kasih Sudah Menggunakan Program ini');

READLN;

END.

mencari Luas Segitiga

2009-06-19T03:34:00.000-07:00

Program menghitung_luas_segitiga;

uses crt;

var
a,b,c:integer;
s,luas:real;

begin
clrscr;
writeln (' INI ADALAH PROGRAM MENGHITUNG LUAS SEGITIGA ');
writeln (' Oleh Dian Aliza Pratidina 070804 IV B ');
writeln;
write (' masukkan a : '); readln (a);
write (' masukkan b : '); readln (b);
write (' masukkan c : '); readln (c);

s:=(a+b+c)/2;
writeln;
writeln (' didapat nilai s adalah= ',s:2:2);

luas:=sqrt(s*(s-a)*(s-b)*(s-c));
writeln;
writeln (' sehingga luas segitiga adalah= ' , luas:2:2);
writeln ;
writeln (' terima kasih sudah menggunakan program ini');
readln;
end.

Mencari Jari-Jari Lingkaran dari Tiga Buah Titik

2009-06-19T03:20:00.000-07:00

PROGRAM Menentukan_Koordinat_Pusat_dan_Jarijari_Lingkaran_dari_3_Buah_Titik;

Uses Crt;

Var x1,y1,x2,y2,x3,y3:Real;
k2,k3,h2,h3,Xo,Yo,r:Real;

Begin
Clrscr;

Write ('MENENTUKAN KOORDINAT PUSAT&JARI-JARI LINGKARAN DARI TIGA BUAH TITIK');
Write (' OLEH DIAN ALIZA P. 070804 (4B) ');
Writeln;
writeln;

Write ('Masukan x1 : ');Readln (x1);
Write ('Masukan y1 : ');Readln (y1);
Write ('Masukan x2 : ');Readln (x2);
Write ('Masukan y2 : ');Readln (y2);
Write ('Masukan x3 : ');Readln (x3);
Write ('Masukan y3 : ');Readln (y3);
Writeln;

k2:=(-1*((x2-x1)/(y2-y1)));
k3:=(-1*((x3-x1)/(y3-y1)));
Writeln ('NILAI k2 ADALAH : ',k2:2:2);
Writeln ('NILAI k3 ADALAH : ',k3:2:2);
Write;

h2:=((y1+y2)/(2))+(((x2*x2)-(x1*x1))/((2)*(y2-y1)));
h3:=((y1+y3)/(2))+(((x3*x3)-(x1*x1))/((2)*(y3-y1)));
Writeln ('NILAI h2 ADALAH : ',h2:2:2);
Writeln ('NILAI h3 ADALAH : ',h3:2:2);
Write;

Xo:=((h3-h2)/(k2-k3));
Yo:=((k3*h3-k2*h2)/(k2-k3));

r:= sqrt ((x1-Xo)*(x1-Xo)+(y1-Yo)*(y1-Yo));
Writeln ('NILAI Xo ADALAH : ',Xo:2:2);
Writeln ('NILAI Yo ADALAH : ',Yo:2:2);
Write;

Writeln ('NILAI r ADALAH : ', r:2:2);
Writeln;

Writeln ('Terima Kasih Sudah Menggunakan Program Ini');

READLN;
END.

bilangan prima

2009-05-31T22:07:00.000-07:00

Program Mencetak_Bilangan_Prima;
Uses crt;
Const batas=500;
var
prima : array [1..batas] of boolean; { bilangan prima }
batas_geser, { batas pergeseran }
i,j : integer; { counter / cacah }

Begin
clrscr;
For i:=1 to Batas do
prima [i] :=true;
batas_geser:=trunc(sqrt(batas));
i:=2;
{ proses penggeseran }
While i<=batas_geser do
Begin
If prima [i] then
Begin
j:=i+i;
While j<=batas do
Begin
prima [j] :=false;
j:=j+i;
End;
End;
i:=i+1;
End;

{ cetak hasil proses....}

Writeln (' Bilangan Prima antara 1 s/d 500 ', Batas);
writeln (' OLeh dian aliza pratidina 070804 Math 4_B ');
Writeln ('----------------------------------------------------');
Writeln;
j:=1;
For i:=2 to Batas do
Begin
If prima[i] then
Begin
If J > 8 Then
Begin
j:=1;
Writeln;
End
Else
Begin
write(' ',i:3);
j:=j+1;
End;
End;
End;
writeln;writeln ('Selesai...');
end.

Program Menentukan Banyak dan Jumlah Bilangan dari Bilangan Pecahan;

2009-05-31T05:59:00.000-07:00

Uses crt;

Var
jumlah:real;
x,n:integer;

Begin
Clrscr;

Writeln ('__________________________Selamat Datang di________________________');
Writeln ('PROGRAM MENENTUKAN BANYAK DAN JUMLAH BILANGAN DARI BILANGAN PECAHAN');
Writeln (' Oleh :Dian Aliza Pratidina ');
writeln (' 070804 ');
Writeln;

n:=25;
jumlah:=0;

for x:=1 to n-1 do
begin
write ('1/',x*x,' , ');
jumlah:=jumlah+1/(x*x);
end;

write ('1/',n*n);
jumlah:=jumlah+1/(n*n);
writeln;

writeln;
writeln ('Banyaknya:',n);
writeln ('Jumlah:',jumlah:2:2);
writeln;
writeln ('_______________________________terima kasih_________________________');

readln;

End.

tugas prosedur menu matriks

2009-05-17T23:36:00.000-07:00

program Menu_pilihan_MATRIKS;

begin

uses crt;

var
Mat_A,Mat_B,Mat_C:array[1..10,1..10] of integer;
ordo_x,ordo_y:integer;
x,y,z,koor_brs:integer;
L,K,s,a,t,p:real;
pilih:byte;

procedure input_penjumlahan_matriks;
begin
writeln ('ini adalah program menghitung penjumlahan matriks');
writeln('Tentukan Ordo Matriks[x,y]');
readln (ordo_x,ordo_y);
writeln('input Matriks (A):');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_A[x,y]);
end;
end;
writeln('input Matriks (B): ');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_B[x,y]);
end;
end;
end;

procedure input_pengurangan_matriks;
begin
writeln ('ini adalah program menghitung pengurangan matriks');
writeln('Tentukan Ordo Matriks[x,y]');
readln (ordo_x,ordo_y);
writeln('input Matriks (A): ');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_A[x,y]);
end;
end;
writeln('input Matriks (B): ');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_B[x,y]);
end;
end;
end;

procedure input_perkalian_matriks;
begin
writeln('Tentukan Ordo Matriks');
readln (ordo_x,ordo_y);
writeln('input Matriks (A): ');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_A[x,y]);
end;
end;
writeln('input Matriks (B): ');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_B[x,y]);
end;
end;
end;

procedure input_transpost_matriks;
begin
writeln('Tentukan Ordo Matriks');
readln (ordo_x,ordo_y);
writeln('input Matriks (A): ');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_A[x,y]);
end;
end;
end;

procedure rumus_penjumlahan_matriks;
begin
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
Mat_C[x,y]:= Mat_A[x,y] + Mat_B[x,y];
end;
end;
end;

procedure rumus_pengurangan_matriks;
begin
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
Mat_C[x,y]:= Mat_A[x,y] - Mat_B[x,y];
end;
end;
end;

procedure rumus_perkalian_matriks;
begin
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
Mat_C[x,y]:=0;
for z:=1 to ordo_x do
begin
Mat_C[x,y]:=Mat_C[x,y] + Mat_A[z,y]*Mat_B[x,z];
end;
end;
end;
end;

procedure rumus_transpost_matriks;
begin
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
Mat_C[x,y]:= Mat_A[y,x];
end;
end;
end;

procedure output_penjumlahan_matriks;
begin
writeln;
writeln('maka penjumlahan matriks A dan B = ');
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
write(Mat_C[x,y]:5);
end;
write;readln;
end;
end;

procedure output_pengurangan_matriks;
begin
writeln;
writeln('maka pengurangan matriks A dan B = ');
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
write(Mat_C[x,y]:5);
end;
write;readln;
end;
end;

procedure output_perkalian_matriks;
begin
writeln;
writeln('maka perkalian matriks A dan B = ');
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
Mat_C[x,y]:=0;
for z:=1 to ordo_x do
begin
Mat_C[x,y]:=Mat_C[x,y]+(Mat_A[z,y]*Mat_B[x,z]);
end;
write(Mat_C[x,y]:5);
end;
writeln;
readln;
end;
end;

procedure output_transpost_matriks;
begin
writeln;
writeln ('hasil transpost matrik adalah : ');
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
Mat_C[x,y]:=Mat_A[y,x];
write(Mat_C[x,y]:5);
end;
writeln;readln;
end;
end;

procedure Penjumlahan_matriks;
begin
writeln;
input_penjumlahan_matriks; readln;
rumus_penjumlahan_matriks; read;
output_penjumlahan_matriks; read;
writeln('tekan ENTER untuk pilih program lain'); readln;
end;
procedure PIL1;
begin
writeln;
writeln;
input_pengurangan_matriks; readln;
rumus_pengurangan_matriks; read;
output_pengurangan_matriks; read;
writeln('tekan ENTER untuk pilih program lain'); readln;
end;
procedure PIL2;
begin
writeln;
input_perkalian_matriks; readln;
rumus_perkalian_matriks; read;
output_perkalian_matriks; readln;
writeln('tekan ENTER untuk pilih program lain'); readln;
end;
procedure PIL3;
begin
writeln;
input_transpost_matriks; readln;
rumus_transpost_matriks; read;
output_transpost_matriks;readln;
writeln('tekan ENTER untuk pilih program lain'); readln;
end;

begin
while true do
begin
textcolor(yellow);
clrscr;
write('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');writeln;
write('~~~~~SELAMAT DATANG DI PROGRAM MENU MATRIKS~~~~');writeln;
write('~~~~~~~~~~~~~dian aliza pratidina~~~~~~~~~~~~~~');writeln;
write('************** NIM : 070804 *****************');writeln;
write('***********************************************');writeln;
write('=================== MENU ==================');writeln;
write('= 1. penjumlahan matriks =');writeln;
write('= 2. pengurangan matriks =');writeln;
write('= 3. perkalian matriks =');writeln;
write('= 4. transpost matriks =');writeln;
write('= 5. exit =');writeln;
write('===============================================');writeln;
pilih:=0;
while(pilih<1)>5) do
begin
write('Silahkan pilih menu : ');read(pilih);
if (pilih<1)>5) then
end;
case pilih of
1: penjumlahan_matriks;
2: PIL1;
3: PIL2;
4: PIL3;
5: exit;
end;
end;
END.

Program Pascal Pilihan Menu

2009-04-13T07:02:00.000-07:00

Program Mencari_Luas_dan_Keliling_Bangun_Datar;
Uses crt;
Var a,b,c,t,r,pjg,lbr,s: integer;
L,K: real;

Procedure menu;

Begin
writeln ('1. Segitiga');
writeln ('2. Lingkaran');
writeln ('3. Pesegi Panjang');
writeln ('4. Persegi');
End;

Procedure Segitiga;

Begin
writeln ('Menghitung Luas dan Keliling Segitiga');
write ('Panjang a= '); readln (a);
write ('Panjang b= '); readln (b);
write ('Panjang c= '); readln (c);
write ('Tinggi Segitiga= '); readln (t);
L:= (a*t)/2;
K:= (a+b+c);
write ('Luas Segitiga = ', L:2:2); readln;
write ('Keliling Segitiga = ', K:2:2); readln;
End;

Procedure Lingkaran;

const phi=3.14;
Begin
writeln ('Menghitung Luas dan Keliling Lingkaran');
write ('Panjang r= '); readln (r);
L:= phi*r*r;
K:= 2*phi*r;
write ('Luas Lingkaran adalah ', L:2:2); readln;
write ('Keliling Lingkaran adalah ', K:2:2); readln;

end;

Procedure Persegi_Panjang;

Begin
writeln ('Menghitung Luas dan Keliling Persegi_Panjang');
write ('p= '); readln (pjg);
write ('l= '); readln (lbr);
L:= pjg*lbr;
K:= (2*pjg)+(2*lbr);
write ('Luas Persegi_Panjang adalah = ',L:2:2);readln;
write ('Keliling Persegi_Panjang adalah = ',K:2:2);readln;
End;

Procedure Persegi;

Begin
writeln ('Menghitung Luas dan Keliling Persegi');
write ('panjang sisi= '); readln (s);
L:= s*s;
K:= 4*s;
write ('Luas Persegi adalah ',L:2:2); readln;
write ('Keliling Persegi adalah ',K:2:2); readln;
End;

Var pil:char;

Begin
Clrscr;
writeln ('program menghitung luas dan keliling bangun datar');
writeln ('oleh : dian aliza_070804');
writeln ('matematika_IV B');
writeln ('Berikut pilihan menu yang dapat Anda pilih : ');
Menu;
write ('Menu yang Anda pilih adalah '); readln (pil);
Case pil of
'1': begin segitiga; end;
'2': begin lingkaran; end;
'3': begin persegi_panjang; end;
'4': begin persegi; end;
End; readln;

End.

Program Pascal Untuk Mencari FPB dengan Algoritma Euclid

2009-04-06T00:08:00.000-07:00

Dalam Bahasa Pascal

program Menentukan_FPB_dengan_Menggunakan_Algoritma_Euclid;

uses crt;

var
x,y,a,b,k,l:longint;

begin
clrscr;
writeln ('------------------------------------------');
writeln ('~~~~~~~~~~~~~~selamat_datang~~~~~~~~~~~~~~');
writeln ('program menentukan FPB dengan Algoritma Euclid');
writeln ('------------------------------------------');

writeln ('Masukan Bilangan Pertama : ');
readln (k);
writeln ('Masukan Bilangan Kedua : ');
readln (l);

if k>l then
begin
a:=k;
b:=l;

end else
begin
a:=l;
b:=k;

end;

writeln;
y:= a mod b;
x:= b div b;

write (a);
write ('=');
write (x);
write ('*');
write (b);
write ('+');
writeln (y);

repeat
a:=b;
b:=y;

y:= a mod b;
x:= a div b;

write (a);
write ('=');
write (x);
write ('*');
write (b);
write ('+');
writeln (y);

until y=0;

writeln ('nilai FPB-nya adalah : ');
write (b);

readln;

end.

Tugas Geometri Analitik

2009-03-24T01:52:00.000-07:00

- Diketahui: a,b dan c adalah sebuah vektor

- Ditanyakan: Buktikan vektor dari c = a.b . b/|b|*|b|

- penyelesaian :

c = proyeksi a pada b
d = a- proyeksi a pada b atau d=a-c

Maka :
a = c + d
(karena a sejajar b,maka vektor c = (k . b)
a = k . b + d
a . b = ( k . b + d) . b (*b)
a . b = k.b . b + b . d
d tegak lurus b,maka b.d = |b|*|d |*cos90=0
a . b = k.b.b + b . d
a . b = k .b*b
k = a . b*b/|b|*|b|
k.b = a . b . b/|b|*|b|
karena c= k.b maka
c = a . b . b/ |b|*|b|
Qed

ANALISA PENDAHULUAN PROGRAM KOMPUTER

2009-03-14T06:16:00.001-07:00

1. Sistem Persamaan Linear Tiga Variabel

Misal dik :
Ex + Fy + Gz = H ……(1)
Ix + Jy + Kz = L ……(2)
Mx + Ny + Oz = P ……(3)

Penyelesaian :

a. eliminasi persamaan (1) dan (2)
Ax + By + Cz = D (*E)
Ex + Fy + Gz = H (*A)
----------------------------
(AE)x + (BE)y + (CE)z = DE
(EA)x + (FA)y + (GA)z = HA
---------------------------- -
(BE–FA)y – (CE–GA)z = (DE–HA) ……pers.(4)

b. eliminasi persamaan (1) dan (3)
Ax + By + Cz = D (*M)
Mx + Ny + Oz = P (*A)
------------------------------
(AM)x + (BM)y + (CM)z = DM
(MA)x + (NA)y + (OA)z = PA
------------------------------ -
(BM–NA)y – (CM–OA)z = (DM–PA) ...pers. (5)

c. eliminasi persamaan (3) dan (4)
(BE–FA)y – (CE–GA)z = (DE–HA) (*(BM–NA))
(BM–NA)y – (CM–OA)z = (DM–PA) (*(BE–FA))
--------------------------------------------------------
{(BE–FA)(BM–NA)}y – {(CE–GA)(BM–NA)}z = {(DE–HA)(BM–NA)}
{(BM–NA)(BE–FA)}y – {(CM–OA)(BE–FA)}z = {(DM–PA)(BE–FA)}
---------------------------------------------------------------------- -
{(CE–GA)(BM–NA) - (CM–OA)(BE–FA)}z = {(DE–HA)(BM–NA)} - {(DM–PA)(BE–FA)}

Maka :
z = {(DE–HA)(BM–NA) - {(DM–PA)(BE–FA)} /{(CE–GA)(BM–NA) - (CM–OA)(BE–FA)}

d. dari persamaan (4)
(BE–FA)y – (CE–GA)z = (DE–HA)
(BE–FA)y = {(DE–HA) + (CE–GA)}z

Maka :
y = {(DE–HA) + (CE–GA)}z/(BE – FA)

e. dari persamaan (1)
Ex + Fy + Gz = H
Ex = H – Fy – Gz
Maka :
x = H - Fy – Gz/E

2. Keliling dan Luas Lingkaran dengan 'r' yang Diketahui

Misalkan diketahui :

phi = 22/7
r = 49 cm

ditanyakan :
Keliling dan luas lingkaran

Penyelesaian :
a. keliling lingkaran
= 2*phi*r
= 2*22/7*49
= 2156
= 308 cm

b. luas lingkaran
= phi*r*r
= 22/7*49*49
= 22/7*2401.
= 52822/7
= 7546 cm persegi

3. Menentukan Jumlah 10 Bilangan Ganjil Pertama

Misalkan diketahui :

deret aritmetika 1, 3, 5, 7, 9, 11, 13, 15, 17, 19
maka :
a = 1 , b = 2 dan n = 10

ditanyakan :
jumlah 10 bilangan ganjil pertama

penyelesaian :

jumlah 10 bilangan ganjil dimisalkan Sn, sehingga
Sn = (n/2)*{2a + (n – 1)*b}
= (10/2)*{2(1) + (10 – 1)*2}
= 58*(2 + 18)
= 5*20
= 100

jadi, jumlah 10 bilangan ganjil pertama adalah 100

4. Mencari Faktor Persekutuan Terbesar dari Dua Bilangan Positif

diketahui :

Bilangan a dan b positif

ditanyakan :

Faktor Persekutuan Terbesar (FPB) dari a dan b

penyelesaian :

adanya teorema FPB yang menyatakan bahwa

a = bq + r dengan 0 < r < b

b = rq' + r' dengan 0 < r' < r

r = r'q'' + r'' dengan 0 < r'' < r'

rj-2 = (rj-1)qj + rj dengan 0 < rj < rj-1

maka
rj-1 = (rj)qj

dimana rj = faktor persekutuan terbesar dari a dan b