Blog for Learning

| lesson material | material summary | questions and answers | definitions | types and examples | other information | materi pelajaran | ringkasan materi | pertanyaan dan jawaban | definisi | jenis-jenis dan contoh-contoh | informasi lainnya |

Powered by Blogger.

Contoh program menghitung luas persegi panjang dalam berbagai bahasa

Contoh program menghitung luas persegi panjang dalam berbagai bahasa 

Assalamu’alaikum Wr Wb
Kali ini saya akan posting tentang Contoh program menghitung luas persegi panjang dalam berbagai bahasa. Berikut beberapa bahasa pemrograman yang akan saya berikan.
1.      C++
2.      C
3.      Pascal
4.      Visual Basic
5.      Python
6.      Php
7.      Batch (MS-DOS)
8.      Java
9.      C#
10.  Delphi
11.  Ruby
12.  JavaScript
13.  Shell Script
14.  Fortran
15.  Procedural Language (PL) / Structured Query Language (SQL)


Berikut beberapa contoh programnya :

C++
C
Header file
#include<conio.h>
#include<iostream.h>
#include<stdio.h>
#include<conio.h>
Deklarasi
int p, l, luas;
int p, l, luas=0;
Input
cout<<”Masukkan panjang: “;
cin>>p;
cout<<”Masukkan lebar: “;
cin>>l;
Printf(“Masukkan panjang: “);
Scanf(“%d”, &p);
Printf(“\n Masukkan lebar: “);
Scanf(“%d”, &l);
Proses
Luas=p*l;
luas=p*l;
Output
cout<<”luas persegi panjang adalah “<<luas;
Printf(“\n Luas Persegi Panjang : %d”, luas );


Pascal
Visual Basic
Header file
Program Luas_Persegi_Panjang;

Deklarasi
Var
p,l,Luas : Integer;
Dim panjang, lebar, luas As Double

Input
Begin
Write('Panjang persegi Panjang ='); Readln(p);
Write('Lebar persegi Panjang ='); Readln(l);
Private Sub Command1_Click()
panjang = Text1.Text
lebar = Text2.Text

Proses
Luas:=p*l;
luas = panjang * lebar
Output
Writeln('Luas persegi Panjang =',Luas);
End.
hasil.Caption = luas
End Sub


Python
Php
Header file
def luas_pp();
<?php
if (isset ($_POST["input-data"]))
Deklarasi


Input
print (‘ ‘)
x = float(input(‘Masukkan panjang : ‘))
print (‘ ‘)
y = float(input(‘Masukkan lebar : ‘))

{
$panjang=$_POST["panjang"];
$lebar=$_POST["lebar"];

Proses
c = x*y
$luas= $panjang*$lebar;
Output
print (‘ ‘)
print (‘luas persegi panjang :‘, c)

echo "Panjang Persegi Panjang Adalah : $panjang <br>";
echo "Lebar Persegi Panjang Adalah : $lebar <br>";
echo "Rumus : $panjang * $lebar <br>";
echo "Hasil : $luas";
}
?>


Batch
Java
Header file
@echo off
title PersegiPanjang

Deklarasi

int panjang, lebar;
Input
Set /p a= Panjang   =
Set /p b= Lebar     =

System.out.println(“Masukkan panjang = “);
panjang = nilai.nextlnt();
System.out.println(“Masukkan lebar = “);
lebar = nilai.nextlnt();
Proses
set /a c=%a%*%b%
echo
Luas = panjang * lebar;
Output
     echo Hasil     = %c%
echo
pause
System.out.println(“Luas persegi panjang = “+Luas);


C#
Delphi
Header file
private void hitungluas()


Deklarasi
        {
            int p, l, luas;
Var Panjang, Lebar, Luas : Integer;
Begin

Input
           p = int.Parse(txtpanjang.Text);
            l = int.Parse(txtlebar.Text);
Panjang:= StrToInt(edit1.text);
Lebar:= StrToInt(edit2.text);
Proses
luas = p * l;
Luas:= Panjang*Lebar;
Output
txthasilvoid.Text = luas.ToString();}
edit3.text:=FloatToStr(Luas);
end;


Ruby
JavaScript
Header file
puts "Menghitung Luas Persegi Panjang"

<html>
<head>
<title>Marvel</title>
</head>
<body background="">
<body>
<center>
<font size="20" color="red" >
<script>
/*
document.write("marvel polii")
*/

Deklarasi


Input
            printf "Masukkan Panjang = "
            panjang=gets.to_i
            printf "Masukkan Lebar = "
            lebar=gets.to_i
var p=prompt ("Masukkan nilai panjang");
p=parseInt(p);
var l=prompt ("Masukkan nilai lebar");
l=parseInt(l);
Proses
            luas=panjang*lebar
            puts
var luas;
luas=p*l;
Output
            puts "Luas Persegi Panjang "+luas.to_s
document.write ("Luas persegi panjang adalah "+luas);
</script>
</font>
</center>
</body>
</html>


Shell Script
Fortran
Header file
#!/bin/bash
echo “=Persegi= “;
program luaspersegipanjang
Deklarasi

!Variable declaration
integer :: panjang,lebar,luas
Input
echo -n “Masukkan Panjang : “;
read panjang;
echo -n “Masukkan Lebar : “;
read lebar;

print *, 'Masukkan panjang persegi panjang ='
read *, panjang
print *, 'Masukkan lebar persegi panjang ='
read *, lebar
Proses
let luas=$panjang*$lebar;
luas = panjang*lebar
Output
echo “Luas Persegi : $luas”;
print *, luas
           
end program luaspersegipanjang


PL / SQL
Header file
SET SERVEROUTPUT ON;
Deklarasi
DECLARE
P NUMBER (3) := 10;
L NUMBER (3) := 5;
Input

Proses
LUAS NUMBER (3);
BEGIN
LUAS := P*L;
Output
DBMS_OUTPUT.PUT_LINE (‘LUAS PERSEGI PANJANG : ‘ || LUAS);
END;
  
Sekian postingan saya kali ini mengenai Contoh program menghitung luas persegi panjang dalam berbagai bahasa.  Contoh diatas hanya programnya saja, untuk implementasinya secara langsung ada beberapa bahasa pemrograman yang harus ditambahkan syntax-syntax tertentu untuk bisa dijalankan. Semoga bermanfaat dan selamat belajar 😊. 

Wassalamu’alaikum Wr Wb
1 Komentar untuk "Contoh program menghitung luas persegi panjang dalam berbagai bahasa"

https://irwantoadi926.blogspot.com

Silahkan berkomentar sesuai artikel

 
Copyright © 2015 - 2024 Blog for Learning - All Rights Reserved
Template By Kunci Dunia
Back To Top