Category Archives: Program Komputer

Program Sederhana Mencari Luas dan Keliling Persegi Panjang

program Menghitung_Luas_dan_keliling_persegi_panjang;
uses wincrt ;
var p,l,K,A: real;
begin
clrscr;
writeln (‘Selamat Datang di Program Sederhana Mencari Luas dan Keliling Persegi Panjang’);
writeln;
write (‘Masukkan nilai panjang persegi panjang = ‘); readln (p);
write (‘Masukkan nilai lebar persegi panjang = ‘); readln (l);
writeln;

A := p*l;

writeln (‘Maka luasnya adalah = ‘, A:3:2);

K := 2*(p+l);

writeln (‘Maka kelilingnya adalah = ‘, K:3:2);

end.

Advertisements

Program Sederhana Mencari Luas dan Keliling Persegi dengan Turbo Pacal

program Menghitung_luas_dan_keliling_persegi;
uses wincrt ;
var
s,L,K:real ;
begin
clrscr;
writeln (‘Selamat Datang di Program Sederhana Mencari Luas dan Keliling Persegi’);
writeln;
write (‘Masukkan nilai sisi persegi = ‘); readln (s);

L:=s*s;

writeln (‘Luas persegi tersebut adalah = ‘, L:3:2);

K:=4*s;

write (‘Adapun kelilingnya adalah = ‘, K:3:2);

end.

Program Sederhana Mencari Luas dan Keliling Lingkaran dengan Turbo Pascal

program menghitung_luas_lingkaran;
uses wincrt;
var
r,l,k: real ;
const
phi = 22/7;
begin
clrscr;
writeln (‘ ***Program Sederhana Mencari Luas dan Keliling Lingkaran***’);
writeln ;
write (‘Masukan nilai jari jari = ‘); readln (r);

L:= phi*r*r;

writeln (‘Luas lingkarannya adalah = ‘, L:3:2);

K := 2*phi*r;

writeln (‘Keliling lingkarannya adalah = ‘, K:5:2);

end.