Program menghitung volume dengan Turbo Pascal

uses srt;
    var
    vol,sisi:integer;
begin
    clrscr;
    writeln("Menghitung Volume");
    write("Sisi : ");readln(sisi);
    vol:=sisi*sisi*sisi;
    writeln("Volume Kubus : ",vol);
    readln;
end.

Program menghitung volume dengan C++

#include "iostream.h"
void main(){
    int vol,sisi;
    cout <<"Menghitung Volume"<<endl;
    cout <<"Sisi : ";cin>>sisi;
    vol=sisi*sisi*sisi;
    cout <<"Volume Kubus : "<<vol;
}

-----------------------------------------
#include "stdio.h"
void main(){
    int vol,sisi;
    printf ("Menghitung Volume\n");
    printf ("Sisi : "); scanf("%i",&sisi);
    vol=sisi*sisi*sisi;
    printf ("Volume :%i",vol);
    }

Program menghitung luas persegi panjang dengan C++

#include <iostream.h>
void main()
{
int x,y,z;
cout <<"Program Menghitung Luas Persegi Panjang\n";
cout <<"Input Nilai Panjang : ";cin>>x;
cout <<"Input Nilai Lebar : ";cin>>y;
z=x*y;
cout <<endl;
cout <<"Nilai Luas Adalah :"<<z<<endl;
}
#

Program menghitung persegi panjang dengan Turbo pascal

uses crt;
var
    P,L,Luas:longint;
begin
    clrscr;
    write('Input Panjang :');readln(P);
    write('Input Laebar :');readln(L);
    Luas :=P*L;
    writeln('Luas Persegi Panjang :',Luas);
    readln;
end.

------------------------------------------------------------------
uses crt;
var
    Panjang,Lebar,Luas :integer;
begin
    clrscr;
    writeln('Program Mengjitung Persegi Panjang');
    writeln('----------------------------------');
    writeln('Input Nilai Panjang : ');readlan(Panjang);
    writeln('Input Nilai Lebar : ');readln(Lebar);

    Luas :=Panjang*Lebar;
    writeln('----------------------------------');
    writeln('Program Latihan Pertama Kaldius');
    writeln('Nilai Luas adalah :',Luas);
    readln;
end.

Tentang Saya

Nama : Samuel Julpan Wahyu Sibarani
TTL : Medan, 10 Juli 1996
JK : Laki-Laki
Alamat : Jln.Pahlawan,Gg Lumumba No 12 Medan