Wednesday 10 November 2010

Mencari Rumus Matematika Menggunakan Program Turbo Pascal

buat teman-teman yang lagi pusing akhirnya setelah beberapa hari capek nyari akhirnya dapat juga rumusnya ini buat tugas pemogramannya...

1. Rumus Luas Lingkaran :

Uses Crt;
Var r,L,K:Real;
Begin
clrscr;
Write ('masukan jari-jari lingkaran(cm):');
Readln(r);
L:=pi*r*r;
K:=2*pi*r;
Writeln;
Writeln ('luas lingkaran:',L:10:2,'cm2');
Writeln ('keliling lingkaran:',K:10:2,'cm');
End.
Pada baris 7 terdapat penggunaan sintak Read(r), artinya pada baris tersebut program akan berhenti sejenak sampai user mengetikkan sebuah angka untuk nilai variabel 'r' dan menekan tombol ENTER.

2. Luas Segitiga :

Uses wincrt;
Var pjg, lbr, als, tg, NomorMenu:Integer;
l_persegi, l_segitiga, kll_segitiga, kll_persegi:integer;
Begin
clrscr;
writeln('rumus luas segitiga');
write('masukan alas segitiga: '); readln(als);
write('masukan tinggi segitiga: '); readln(tg);
l_segitiga:= als*tg div 2;
writeln('luas segitiga adalah ',l_segitiga);
readln;
end.

ini untuk menjadikan satu rumus Luas Persegi, Luas Segitiga, Keliling Segitiga, dan Keliling Persegi.

uses crt;
label
stop,jump;
var
pjg, lbr, als, tg, NomorMenu:Integer;
l_persegi, l_segitiga, kll_segitiga, kll_persegi:integer;

begin
repeat
stop:
textbackground(5);
clrscr;
writeln('===========================================================');
writeln('= pilihrumus =');
writeln('= 1. Luas Persegi panjang =');
writeln('= 2. Luas Segitiga =');
writeln('= 3. keliling persegi panjang =');
writeln('= 4. exit =');
writeln('===========================================================');

write('Masukan Nomor Pilihan Anda (1/2/3/4): ');
readln(NomorMenu);
case NomorMenu of
1: begin
writeln('rumus luas persegi ');
write('masukan panjang persegi: '); readln(pjg);
write('Masukan Lebar Persegi: '); readln(lbr);
l_persegi:= pjg*lbr;
writeln('luas persegi adalah ',l_persegi);
readln;
end;
2: begin
writeln('rumus luas segitiga');
write('masukan alas segitiga: '); readln(als);
write('masukan tinggi segitiga: '); readln(tg);
l_segitiga:= als*tg div 2;
writeln('luas segitiga adalah ',l_segitiga);
readln;
end;
3: begin
writeln('rumus kll persegi');
write('masukan panjang persegi: '); readln(pjg);
write('Masukan Lebar Persegi: '); readln(lbr);
kll_persegi:=2*(pjg+lbr);
writeln('jadi keliling persegi adalah ',kll_persegi);
readln;
end;
4: begin
exit;
end;
end;
goto stop;
until NomorMenu=4;

end.

semoga bisa membantu kalau ada kesalahan atau komentar bisa langsung tanya saya...
terima kasih yaa ma kunjungannya.

Sunday 7 November 2010


Semuanya terasa sia-sia...
Saat kau berlalu di depanku bersama yang lain...
Sesaat setelah aku mengatakan kalau aku sangat mencintai kamu...
Mungkin semuanya punya maksud dan tujuan yang lain...
atau mungkin memang bukan jodoh buatku...

bukannya aku tidak mau melihatmu, menatap matamu...
tetapai aku tak mau melihatmu karena aku tak rela kau pergi dariku...
aku peracaya kata sang pujangga cinta terkadang tak harus dimiliki...
mungkin ini yang harus aku lakukan...
harus melihat kamu bahagia dengan yang lain...
sekarang hanya mampu tersenyum disaat kau membelakangi aku...
sungguh berat tersenyum ketika barhadapan denganmu...

tersiksa hati tersiksa batin...
hidup seperti tak berguna lagi...
kucoba sabar,sabar, dan terus bersabar pasti ada jalan keluar...