Mengenai Saya

Foto saya
airinda orang yang imut,hehe tapi punya kekurangan yakni sifat ngmbek....

Sabtu, 20 Juni 2009

MENGHITUNG LUAS SEGITIGA


Ini adalah program pascal, tentang program matematika, menghitung luas segitiga, di bawah ini adalah programnya:
Program menghitung_luas_segitiga;
uses crt;
var a,b,c:integer;
s,luas:real;
begin
clrscr;
writeln (’ PROGRAM MEMNGHITUNG LUAS SEGITIGA ’);
writeln (’CREATED BY:AIRINDA EKTRIA K 070793 4B ');
writeln;
writeln (’masukkan a’); readln (a);
writeln (’masukkan b’); readln (b);
writeln (’masukkan c’); readln (c);
s:=(a+b+c)/2;
writeln (’nilai s adalah:’,s:2:2);
luas:=sqrt(s*(s-a)*(s-b)*(s-c));
writeln (’luas segitiga adalah:’ , luas:2:2);
readln;
end.

MENENTUKAN KOORDINJAT PUSAT LINGKARAN DAN JARIJARI LINGKARAN DARI 3 BUAH TITIK


Ini adalah program matematika, menghitung pusat dan jari-jari lingkaran melalui 3 buah titik, ini adalah program pascalnya:
Program menentukan_koordinat_pusat_lingkaran_dan_jarijari_lingkaran_dari_3_buah_titik;
uses crt;
var x1,y1,x2,y2,x3,y3,k2,k3,h2,h3,x0,y0,r:real;
begin
clrscr;
writeln (’welcome’);
writeln (’program menentukan koordinat pusat lingkaran dan jarijari lingkaran dari 3 titik’);
writeln (’ di buat oleh :AIRINDA EKTRIA KUSUMAWATI 070793 4B’);
writeln (’masukkan x1'); readln (x1);
writeln (’masukkan y1'); readln (y1);
writeln (’masukkan x2'); readln (x2);
writeln (’masukkan y2'); readln (y2);
writeln (’masukkan x3'); readln (x3);
writeln (’masukkan 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.

Kamis, 18 Juni 2009

program phytagoras


uses crt;
var a,b,c:real;
begin
clrscr;
textcolor(yellow);
writeln (’welcome’);
writeln (’This is an Aplicative Program to Count Phytagoras’);
writeln (’Created by: airinda ektria 070793 IVB’);
writeln (’masukkan a:’); readln (a);
writeln (’masukkan b:’); readln (b);
c:=sqrt((a*a)+(b*b));
writeln (’nilai c adalah:’, c:2:2);
writeln;
if a>0 then
begin
writeln (’a merupakan bilangan asli’);
end
else if a<0>0 then
begin
writeln (’c merupakan bilangan asli’);
end
else if c<0 then
begin
writeln ('c bukan bilangan asli');
end;
readln;
end.