Pseudo code
Algoritma
Luas_PersegiPanjang
Deklarasi
Panjang, Lebar, Luas : Integer;
Deskripsi
input (panjang);
Deklarasi
Panjang, Lebar, Luas : Integer;
Deskripsi
input (panjang);
Input (lebar);
Luas:= Panjang*Lebar;
Write (Luas Persegi
Panjang=’, Luas);
End.
1.
Bahasa Pascal
Program Luas_Persegi_Panjang;
Var
p,l,Luas : Integer;
Begin
Write('Panjang persegi Panjang ='); Readln(p);
Write('Lebar persegi Panjang ='); Readln(l);
Luas:=p*l;
Writeln('Luas persegi Panjang =',Luas);
End.
Program Luas_Persegi_Panjang;
Var
p,l,Luas : Integer;
Begin
Write('Panjang persegi Panjang ='); Readln(p);
Write('Lebar persegi Panjang ='); Readln(l);
Luas:=p*l;
Writeln('Luas persegi Panjang =',Luas);
End.
2. Bahasa
C++
#include <conio.h>
#include <iostream.h>
main()
{
float panjang, lebar, luas, keliling;
cout<<"Masukkan nilai panjang = ";
cin>>panjang;
cout<<"Masukkan nilai lebar = ";
cin>>lebar;
#include <iostream.h>
main()
{
float panjang, lebar, luas, keliling;
cout<<"Masukkan nilai panjang = ";
cin>>panjang;
cout<<"Masukkan nilai lebar = ";
cin>>lebar;
luas=panjang*lebar;
cout<<endl;
cout<<"Luas persegi panjang adalah = "<<luas<<endl;
getch();
}
cout<<"Luas persegi panjang adalah = "<<luas<<endl;
getch();
}
3. Bahasa
Delphi
Sebelum memulai coding kita harus
membuat interfacenya terlebih dahulu agar dapat menginput data dan memproses
perhitungan. Contohnya seperti di bawah ini :
Coding
diisi pada button hitung. Codingnya adalah :
Var
Panjang, Lebar, Luas : Integer;
Begin
Panjang:=
StrToInt(edit1.text);
Lebar:=
StrToInt(edit2.text);
Luas:=
Panjang*Lebar;
edit3.text:=FloatToStr(Luas);
end;
Coding di atas sudah dapat
memproses perhitungan luas persegi panjang. Jika ingin menghitung ulang maka
saya berikan tombol reset agar inputan yang tadi diberikan dapat terhapus
sendiri. Codingnya adalah :
begin
edit1.text:=’’;
edit2.text:=’’;
edit3.text:=’’;
edit1.SetFocus;
end;
Jika anda ingin keluar dari
program maka akan ada button untuk exit. Dan button tersebut memiliki coding
seperti di bawah ini :
begin
if Application.MessageBox(‘Are
you sure to exit?’, ‘Caution’, MB_YesNo+MB_ICONQUESTION)
=idyes
Then
Application.Terminate;
end;
end.
4. Bahasa
Fortran
program
luaspersegipanjang
!Variable
declaration
integer
:: panjang,lebar,luas
print
*, 'Masukkan panjang persegi panjang ='
read
*, panjang
print
*, 'Masukkan lebar persegi panjang ='
read
*, lebar
luas
= panjang*lebar
print
*, luas
end
program luaspersegipanjang
5. Bahasa
Python
#!/usr/bin/python
#Menghitung Luas Persegi Panjang
print
"Menghitung Luas Persegi Panjang"
prompt="Masukkan
nilai panjang = "
a=input(prompt)
prompt="Masukkan
nilai lebar = "
b=input(prompt)
luas=a*b
print
"Luas = ",luas
6. Bahasa
Ruby
puts
"Menghitung Luas Persegi Panjang"
printf
"Masukkan Panjang = "
panjang=gets.to_i
printf
"Masukkan Lebar = "
lebar=gets.to_i
luas=panjang*lebar
puts
puts
"Luas Persegi Panjang "+luas.to_s
7. Bahasa
Visual Basic
Tidak jauh berbeda dengan delphi,
hanya “Var” nya di ganti menjadi “Dim”
Seperti di bawah ini :
Seperti di bawah ini :
Dim panjang, lebar, luas As Double
Private
Sub Command1_Click()
panjang
= Text1.Text
lebar
= Text2.Text
luas
= panjang * lebar
hasil.Caption
= luas
End
Sub
8. Bahasa
Java Script
<html>
<head>
<title>
Luas Persegi Panjang </title>
</head>
<body>
<script
languange="javascript">
<!--
var
luas, panjang, lebar;
{
panjang=prompt("Masukkan
Panjangnya","");
lebar=prompt("Masukkan
Lebarnya","");
luas=panjang*lebar;
alert(luas)
}
//-->
</script>
</body>
</html>
9. Bahasa
C#
using
System;
using
System.Collections.Generic;
using
System.Linq;
using
System.Text;
namespace
Luas_PersegiPanjang
{
class Program
{
static void Main (string [] args)
{
Console.WriteLine("Menghitung
Luas Persegi Panjang");
int panjang, lebar, luas;
Console.Write("Masukkan
Panjang = ");
panjang =
int.Parse(Console.ReadLine());
Console.Write("Masukkan
Lebar = ");
lebar =
int.Parse(Console.ReadLine());
luas = panjang*lebar;
Console.WriteLine("luas =
" +luas);
Console.ReadLine();
Console.Clear();
}
}
}
Nama Kelompok 3 :
Wensi Sekarsari (D1041141011)
Beby Azalia Aurora (D1041141021)
Evi Fathiyah Muniyati (D1041141031)
Khairini (D1041141047)
No comments:
Post a Comment