Rabu, 20 April 2011

Kuliaaah......

Sebenarnya disuruh latihan pascal yang program bujur sangkar ajaib berukuran genap.. <Pake P kata Fika>. Tapi karena Algoritmane aja kagak tahu... yahhh gimana ya???? .noleh....Zheni ketawa-ketawa sendiri baca buku "Diary Istri Dodol">>> Inget Zhen...Kuliaaah!!!
Lanjuuut....
Posting Hasil tugas kemarin aje ye, Siapa tahu nanti bermaanfaat. Kemarin ada tugas buat program, Kelompokku dapat 3.
Thats....
1.Mengetahui jari2 dan pusat lingkaran dalam segitiga
2. Menghitung KPK dan FPB 2 bilangan.
3. Mengetahui bilangan merupakan prima atau bukan

Ini diaaaaaa.....
Program Tugas_Kelompok;
uses wincrt;
var x1,y1,x2,y2,x3,y3,k2,k3,h2,h3,x0,y0,r:real;
    pilihan,lagi:char;
    a,b,s,m,n,w:integer;p,q:longint;
label mulai;   
begin
mulai: clrscr;
writeln ('Nama Kelompok:');
writeln ('1. Lina Handayani 09305141010');
Writeln ('2. Nila Widhianti 09305141014');
Writeln ('3. Dewi Susanti   09305141025');
writeln ('==============================');
Writeln ('Pilihan Program');
writeln ('1. Menentukan Titik Pusat dan jari-jari Lingkaran Dalam segitiga yang diketahui tiga titik sudutnya');
writeln ('2. Menentukan Apakah suatu bilangan asli prima atau bukan');
writeln ('3. Menentukan FPB dan KPK dua bilangan asli');
writeln ('4. Lulus program');
writeln;
writeln ('Masukkan Pilihan Anda: ');readln(pilihan);
case pilihan of
'1':begin
writeln ('program menentukan koordinat pusat lingkaran dan jarijari lingkaran dari 3 titik');
writeln ('masukkan koordinat x1'); readln (x1);
writeln ('masukkan koordinat y1'); readln (y1);
writeln ('masukkan koordinat x2'); readln (x2);
writeln ('masukkan koordinat y2'); readln (y2);
writeln ('masukkan koordinat x3'); readln (x3);
writeln ('masukkan koordinat 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);
writeln;
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);
writeln;
x0:=((h3-h2)/(k2-k3));
y0:=((k3*h3-k2*h2)/(k2-k3));
r:=sqrt((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0));
writeln ('Nilai x0 adalah ', x0:2:2);
writeln ('Nilai y0 adalah ', y0:2:2);
writeln ('Nilai r adalah ', r:2:2);
readln;
end;
'2':begin
writeln('Menentukan Apakah suatu bilangan asli prima atau bukan');
write('masukkan suatu bilangan =   ');readln(p);
if p<1 then
begin
writeln(p, 'bukan bilangan prima, masukkan bilangan yang akan di cek yang >=2');
writeln('karena bilangan prima dimulai dari angka 2,,,OK!!???');
end else
if p=2 then
begin writeln('2 merupakan bilangan prima');end else
for q:=2 to p-1 do
begin
if p mod q=0 then
begin
writeln(p,'bukan merupakan bilangan prima');
q:=p-1;
end else
if q=p-1 then
writeln(p,'merupakan bilangan prima');
end;
end;
'3':begin
writeln ('Menentukan KPK dan FBB 2 Bilangan Asli');
write('masukkan bilangan asli pertama a= ');readln(a);
write ('masukkan bilangan asli kedua b= ');readln(b);
m:=a;n:=b;
repeat
s:=m mod n;
if (s<>0) then
begin
m:=n;
n:=s;
end;
until (s=0);
writeln('FPB(',a,',',b,')= ',n);
writeln('KPK(',a,',',b,')= ',a*b div n);
end;
'4': donewincrt;
else writeln ('anda salah memasukkan pilihan');
end;
 write('mau coba lagi? <Y/T>:  ');readln(lagi);
  if upcase(lagi)='Y' then goto mulai;
  donewincrt;
end.


>>>Fika katanya juga pengen buat Blog :D

yaah... sekedar pengoisi waktu luang pas kuliah prokom, heheh