Algoritma Pemrograman Menghitung Luas Lingkaran

Menghitung luas lingkaran dengan berbagai macam bahasa pemrograman

1.    Java

package LuasLingkaran1;

import java.util.Scanner;

public class LuasLingkaran1 {

            public static void main(String[] args) {

                        // TODO Auto-generated method stub

                        System.out.println("Inputs");

                        Scanner input = new Scanner(System.in);

                         

                         System.out.print("jari-jari =");

                         float r = input.nextFloat();

                    float phi=(float) 3.14;

                    float hasil;

                   

                    hasil= phi*r*r;

                           

                    System.out.println("luas lingkaran: " +hasil);

                        

            }

                                                                  

               }  

2.    C++

#include <iostream>

using namespace std;

int main ()

{

    float r,luas,keliling;

    float phi = 3.14;

    cout<<"program hitung luas lingkaran lingkaran \n";

    cout<<"masukkan jari-jari=";

    cin>>r;

    luas=phi*r*r ;

    cout<<"maka luas="<<luas<<"\n";

   system ("pause");

}

3.    Phyton

r = float (input ("Masukkan Jari-jari = "))

phi = 3.14

luas=phi * r * r

print "Luas lingkaran adalah",luas

4.    C#

using System.IO;

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

namespace LuasLingkaran

{

class Program

{

static void Main (String[] args)  

{     

Console.WriteLine("Program untuk menghitung Luas Lingkaran");              

double Luas;       

Console.Write("Masukkan panjang jari-jari = ");     

string jari = Console.ReadLine();      

double r = double.Parse(jari);              

Luas = 3.14 * r * r;       

Console.WriteLine("Luas Lingkaran = " + Luas);     

Console.ReadKey();          

}

}

}

5.    Fortran

LISTING PROGRAM :

        integer r

        real luas

        write(*,5)

        read(*,15)r

        luas=3.14*r*r

        write(*,20)luas

5      FORMAT('Masukkan Jari-jari :')

15    FORMAT(I5)

20    FORMAT('maka luas lingkaran adalah =',F5.2)

        STOP

        END

6.      Pascal

program mencari_luas_lingkaran;

uses crt;

const pi=3.14;

var

luas,jari : real;

begin

writeln('masukan Jari jari dari sebuah lingkaran : ');

readln(jari);

luas:=pi*jari*jari;

writeln('maka hasil dari ',pi:0:2,' x ',jari:0:2,' x ',jari:0:2,' = ',luas:0:2);

end.

7.    Ruby

phi = 3.14

   printf "Masukkan Diameter : "

   diameter = gets.to_i

   r = diameter/2

   luas = phi*r*r

   puts

   puts "Luas Lingkaran adalah "+luas.to_s

8.    Delphi

procedure TForm1.Button1Click(Sender: TObject);

Var l,r:real;

begin

r:=StrToFloat(edit1.Text);

l:=pi*r*r;

edit1.Text:=FloatToStr(r);

edit2.Text:=FloatToStr(l);

end;

end.

 

9.       Visual Basic

Dim r, luas, pi As Double

Private Sub Command1_Click()
pi = 3.14
r = text1.Text
luas = pi * (r * r)
Label2.Caption = luas
End Sub

Private Sub Command2_Click()
text1.Text = ""
Label2.Caption = ""
text1.SetFocus
End Sub

Disusun oleh Kelompok 4

D1041141013              Diera Desmonda

D1041141015              Dara Nadinda

D1041141019              Aldi Reynaldi

D1041141033              Yahya Risqi

D1041141037              Naufal Harits Pratama