Algoritma dan Pemrograman untuk Menghitung Volume Balok

Anggota Kelompok :

1.        Andre Indra Prakasa (D1041141025)

2.        Jefri H. Simanjuntak (D1041141027)

3.        M.Kharur Rozin (D1041141035)

4.        Glen H.O Mangundap (D1041141059)

5.        M. Furqan (D1041141065)

  

1.     Algoritma

Begin

Input Panjang, Lebar, Tinggi

Volume  = Panjang*Lebar*Tinggi
Print Volume
End

2.     Pascal

program menghitung_volume_Balok;
uses crt;
var p,l,t:integer;
      v:real;
begin
clrscr;
writeln('Menghitung Volume Balok');
writeln('masukan panjang cm=');
readln(p);
writeln('masukan lebar cm=');
readln(l);
writeln('masukan tinggi cm=');
readln(t);
V:=p*l*t;
writeln('volume balok pxlxt=',V:5:2,'cm');
readln;
end.

3.     C++

#include <iostream>

using namespace std;

int main()

{

float panjang, lebar, tinggi, volume;

cout << "Panjang = " ;

cin >> panjang ;

cout << "Lebar = " ;

cin >> lebar ;

cout << "Tinggi = " ;

cin >> tinggi ;

volume = panjang * lebar * tinggi ;

cout << "Volume = " << volume ;

}

4.     Java

Import java.until.Scanner;

Class VolumeBalok

{

            Public static void main(String[ ] args)

            {

                        Scanner balok=new Scanner(System.in);

                       

                        System.out.println(“Sistem Penghitung Volume Balok :”);

                        System.out.println(“==================================”);

                        System.out.println(“Masukan Panjang Balok :”);

                        double panjang=balok.nextDouble();

                        System.out.println(“Masukan Lebar Balok :”);

                        double lebar=balok.nextDouble();

                        System.out.println(“Masukan Tinggi Balok :”);

                        double tinggi=balok.nextDouble();

                        double VolumeBlk=panjang*lebar*tinggi;

                        System.out.println(“Volume Balok adalah  :”+VolumeBlk+””);

            }

}

5.     Delphi

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);

var
kode:integer;
P,L,T,VOL,LUAS:REAL;
SVOL,SLUAS:STRING;

begin
VAL(EDIT1.Text,P,KODE);

VAL(EDIT2.Text,L,KODE);
VAL(EDIT3.Text,T,KODE);
VOL:=P*L*T;
LUAS:=(2*P*L)+(2*P*T)+(2*L*T);
STR(VOL:10:2,SVOL);
STR(LUAS:10:2,SLUAS);
EDIT4.Text:=SVOL;
EDIT5.Text:=SLUAS;
end;

6.     PHP

<?php

include_once "rumus.php";

$p = $_POST['panjang'];

$l = $_POST['lebar'];

$t = $_POST['tinggi'];

$x = $_GET['x'];

switch($x){

// volume balok

case "vbalok":

echo "<form action=\"\" method=\"post\">

<span>Panjang<br/>

<input type=\"text\" name=\"panjang\">

</span><br/>

<span>Lebar<br/>

<input type=\"text\" name=\"lebar\">

</span><br/>

<span>Tinggi<br/>

<input type=\"text\" name=\"tinggi\">

</span><br/>

<span>

<input type=\"submit\" name=\"jumlahkan\" value=\"Jumlahkan !\">

</span><br/>";

if($_POST){

if(empty($p)){

$err = "Panjang Balok Masih Kosong!";

}else if(empty($l)){

$err = "Lebar Balok Masih Kosong!";

}else if(empty($t)){

$err = "Tinggi Balok Masih Kosong!";

}if (isset($err)){

echo $err;

}else{

echo "<b>Hasilnya = </b>".strip_tags(volbalok($p,$l,$t));

}

}

7.     Cobol

IDENTIFICATION DIVISION.
       PROGRAM-ID. VOLUME.
       AUTHOR. DINA.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 JUMLAH.
           02 PANJANG PIC 9(2).
           02 LEBAR PIC 9(2).
           02 TINGGI PIC 9(2).
           02 VOLUME PIC 9(2).
      
PROCEDURE DIVISION.
       MULAI.
           DISPLAY '----------MASUKKAN INPUTAN----------'.
           DISPLAY 'PANJANG : '.
           ACCEPT PANJANG.
           DISPLAY 'LEBAR : '.
           ACCEPT LEBAR.
           DISPLAY 'TINGGI : '.
           ACCEPT TINGGI.
           COMPUTE VOLUME= PANJANG * LEBAR * TINGGI.
           DISPLAY '******PERHITUNGAN VOLUME BALOK******'.
           DISPLAY 'PANJANG :', PANJANG.
           DISPLAY 'LEBAR :', LEBAR.
           DISPLAY 'TINGGI :', TINGGI.
           DISPLAY 'VOLUME BALOK :', VOLUME.
           ACCEPT VOLUME.
       SELESAI.
           STOP RUN.