Minggu, 15 April 2012

KODE PROGRAM /SINTAKS PASKAL (LUAS DAN KELILING PERSEGI PANJANG,LUAS SEGITIGA,LUAS LINGKARAN)


·        Rumus pascal luas persegi panjang

 procedure persegi_panjang;
begin
writeln(‘====================================================’);
writeln(‘PROGRAM MENGHITUNG LUAS DAN KELILING PERSEGI PANJANG’);
writeln(‘====================================================’);
write(‘masukan nilai p = ‘);readln(p);
write(‘masukan nilai l = ‘);readln(l);
luas := p * l;
writeln(‘nilai luas = ‘,luas:2:2);readln;
keliling := 2 * (p + l);
writeln(‘nilai keliling = ‘,keliling:2:2);readln;
end;
  Menentukan nilai panjang sisi luar (pL): pL= 18, lebar sisi luar (lL): lL= 12, panjang sisi dalam (pT): pT= 10, dan lebar sisi dalam (lT): lT= 5.
Menghitung luas total, Ltotal= pL x lL
Menghitung luas tengah, Ltengah= pT x lT
Didapat luas yang diarsir, Larsir= Ltotal-Ltengah

Program pascal:
uses crt;
var pL, lL, pT, lT, Ltotal , Ltengah: integer;
begin
clrscr;
pL:=18; lL:=12; pT:=10; lT:=5;
Ltotal:= pL*lL;
Ltengah:= pT*lT;
writeln('Luas total = ', Ltotal);
writeln('Luas tengah = ', Ltengah);
writeln('Luas yang diarsir= ', Ltotal-Ltengah);
readln;
end.
·        Rumus pascal keliling persegi panjang
function keliling : integer;
begin
keliling := 2*(a+b);
end;
>  maksud dari sintak di atas adalah untuk member tahu bahwa function keliling bertipe data integer. dan keliling := 2*(a+b); untuk mencari hasil keliling dari inputan yang akan di masukan pada saat program running.
begin
clrscr;
writeln (‘luas persegi’)
write(‘panjang:  ‘); readln(a);
write(‘lebar: ‘); readln(b);
writeln;
writeln(‘luas : ‘,luas);
writeln(‘keliling : ‘,keliling);
readln;
end.
maksud dari sintak dia atas adalah untuk menuliskan luas persegi pada saat program running dan write(‘panjang:  ‘); readln(a); write(‘lebar: ‘); readln(b); maksudnya pada saat program ranning kita akan menginput angaka yang akan di masukan dan di taruh di variable a begitu juga dengan lebarnya. dan hasil dari perkalian akan di taruh di luas, begitu juga dengan keliling.
source Code + Output
·        Rumus pascal luas segitiga
Rumus Menghitung Luas Segitiga;
uses crt;
var a,t,ls :integer;
begin
clrscr;
write (‘alas=’); readln(a);
write (‘tinggi=’); readln(t);
ls :=a*t;
writeln (‘Luas Segitiga Adalah=’, ls);
readln;
end.
·        Rumus pascal luas lingkaran
program lingkaran.pas
uses crt;
var r:integer;
var luas,keliling:real;
const phi = 3.14;
begin
clrscr;
write(‘Masukkan jari-jari lingkaran : ‘);
readln(r);
luas := phi*r*r;
keliling := phi*(2*r);
writeln(‘======================’);
writeln(‘Luas lingkaran dengan jari-jari ‘,r,’ adalah ‘,luas:9:2);
writeln(‘Keliling lingkaran dengan jari-jari ‘,r, ‘adalah ‘,keliling:9:2);
readln
end.
keterangan :
uses crt : library untuk memanggil fungsi clrscr
var r : mendeklarasikan variabel jari-jari dengan simbol r
var luas, keliling : mendeklarasikan variabel luas dan keliling yang akan digunakan untuk menyimpan data luas dan keliling.
const phi = 3.14 : constanta untuk phi adalah 3.14 dan nilainya tetap
begin : memulai awal program
clrscr : fungsi untuk membersihkan layar
write : fungsi dalam pascal untuk menampilkan pesan dengan tanda kursor disebelah akhir pesan yang ditampilkan.
writeln : fungsi dalam pascal untuk menampilkan pesan dengan tanda kursor dibawah pesan (ganti baris)
readln(r) : menyimpan data input dari keyboard dalam variabel r
luas := phi*r*r : penulisan rumus luas lingkaran dalam pascal
keliling := phi*(2*r) : penulisan rumus keliling lingkaran dalam pascal
luas:9:2 : menampilkan data luas dengan max 9 karakter didepan tanda koma dengan 2 angka dibelakang koma.
keliling:9:2 : menampilkan data keliling dengan max 9 karakter didepan tanda koma dengan 2 angka dibelakang koma.
readln : menahan tampilan agar tidak secepat kilat
end. : akhir dari program pascal

VN:F [1.6.8_931]

Tidak ada komentar:

Poskan Komentar