Rabu, 15 April 2015

Program menghitung Luas Permukaan dan Volume


1. Program Menghitung Volume kubus

Program menghitung_volume_kubus;

Uses wincrt;

var
v,p, l, t:integer;

begin
 
clrscr;

writeln ('mencari volume kubus')  ;

write ('Panjang kubus:'); readln (p);

write ('lebar kubus:');readln (l);

write ('tinggi kubus:');readln(t); 

v:=p*l*t;

writeln('maka volumenya adalah:',v);readln;end.


2. Program Menghitung Luas Lingkaran

Program menghitung_luas_lingkaran;

uses wincrt;

var
 r : integer;
 l : real;

const
 phi = 22/7;

begin
 clrscr;
 writeln ('ini adalah program sederhana menghitung luas lingkaran');
 writeln ('silahkan masukan jari-jari lingkaran =');readln (r);
 l:= phi*r*r;
 writeln ('jadi luas lingkarannya adalah =',l:0:1);
end.

3. Program Menghitung Volume dan Luas Kerucut


program  volume_dan_luas_permukaan_kerucut;

uses wincrt;

 var
 alas:real;
 permukaan:real;
 volume:real;
 t:real;
 s:real;
 r:real;
 coba:char;

 begin
  repeat
  clrscr;
   writeln(' Program Luas Permukaan dan Volume Kerucut ');
   writeln('');
   write('masukkan nilai r:    ');readln(r);
   write('masukkan nilai t:    ');readln(t);
    s:=sqrt(r*r+t*t);
    alas:=(pi*r*r);
    volume:=alas*t;
    permukaan:=pi*r*s;
   write('Luas Permukaannya kerucut adalah  ',permukaan:0:1);readln;
   write('volume kerucut adalah   ',volume:0:1);readln;
   write('coba lagi?(Y or N):    ');readln(coba);

  until (coba='N') or (coba='n');

  if coba='N' then write('silahkan mencoba menu lainnya');
 end.

Tidak ada komentar:

Posting Komentar