ALL IN ONE: Mencari Rumus Matematika Menggunakan Program Turbo Pascal

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.


Tidak ada komentar:

Poskan Komentar

Copyright © ALL IN ONE Urang-kurai