ALGORITMO QUE MUESTRE EL ÁREA Y PERÍMETRO DE UN CÍRCULO

Algoritmo programacion_work
    Definir P, A, r como Real;
    Escribir "ÁREA DEL CÍRCULO";
    Escribir Sin Saltar "RADIO : ";
    Leer r;
    A <- PI * (r * r);
    Escribir "ÁREA : ",(REDON(A*100)/100),"cm.";
    Escribir "";
    Escribir "PERÍMETRO DEL CÍRCULO";
    P <- 2 * PI * r;
    Escribir "PERÍMETRO : ",(REDON(P*100)/100),"cm.";
FinAlgoritmo

print("19. ÁREA Y PERÍMETRO DEL CÍRCULO.")
import math
print("ÁREA DEL CÍRCULO")
r = int(input("INGRESE RADIO : "))
A = math.pi * math.pow(r,2)
print("ÁREA : ", round(A,2))
print()
print("PERÍMETRO DEL CÍRCULO")
P = 2 * math.pi * r
print("PERÍMETRO : ",round(P,2))

#include<stdio.h>
int main() {
    float r, A=0, P=0;
    printf("19. AREA Y PERIMETRO DEL CIRCULO\n\n");            
    printf("Ingrese Radio : ");
    scanf("%f",&r);   
    A = 3.1416 * (r * r);
    P = 2 * 3.1416 * r;
    printf("\nAREA          : %.2f cm. \n",A);            
    printf("PERIMETRO     : %.2f cm. \n", P);
    return 0;
}

#include<iostream>
using namespace std;
int main() {
    float r, A=0, P=0;
    cout << "19. AREA Y PERIMETRO DEL CIRCULO.\n\n";                    
    cout << "Ingrese Radio : ";
    cin >> r;        
    A = 3.1416 * (r * r);
    P = 2 * 3.1416 * r;
    cout << "\nAREA          : " << A << " cm." << endl;
    cout << "PERIMETRO     : " << P << " cm." << endl;
    return 0;
}

using System;
using System.Collections.Generic;
using System.Text;
namespace programacion_work
{
  class circulo
  {
    static void Main(string[] args)
    {
        double r, A = 0, P = 0;
        Console.WriteLine("19. AREA Y PERIMETRO DEL CIRCULO EN C#.\n");
        Console.Write("Ingrese Radio : ");
        r = double.Parse(Console.ReadLine());            
        A = 3.1416 * (r * r);
        P = 2 * 3.1416 * r;
        Console.WriteLine("\nAREA          : " + String.Format("{0,4:##.00}", A));
        Console.WriteLine("PERIMETRO     : " + String.Format("{0,4:##.00}", P));
        Console.ReadLine();
    }
  }
}

package programacion_work;
import java.util.Scanner;
public class circulo {
    public static void main(String[] args) {
        Scanner ingreso=new Scanner(System.in);  
        double r, P=0, A=0;
        System.out.print("19. CÍRCULO - Mostrar el área y perímetro.\n\n");        
        System.out.print("RADIO : ");
        r = Double.parseDouble(ingreso.next());        
        System.out.println("");
        A = 3.1416 * (r * r);
        System.out.println("ÁREA      : " + A + " cm.");
        P = 2 * 3.1416 * r;
        System.out.println("PERÍMETRO : " + P + " cm.");
    }     
}

private void jBtn_CalcularActionPerformed(java.awt.event.ActionEvent evt) {                                              
    double r, A=0;
    r  = Double.parseDouble(jTxt_Radio.getText());
    A = 3.1416 * (r * r);
    DecimalFormat df = new DecimalFormat("#.00");
    jTxt_Area.setText(df.format(A));        
}     

private void jBtn_Calcular1ActionPerformed(java.awt.event.ActionEvent evt) {                                               
    double r, P=0;
    r  = Double.parseDouble(jTxt_Radio1.getText());
    P = 2 * 3.1416 * r;        
    DecimalFormat df = new DecimalFormat("#.00");
    jTxt_Perimetro.setText(df.format(P));
}  

Imports System.Console
Module circulo
    Dim P, A, r As Decimal
    Sub Main()
        WriteLine("19. MOSTRAR EL ÁREA Y PERÍMETRO DE UN CÍRCULO.")
        WriteLine("")
        Write("Ingrese Radio : ")
        r = ReadLine()
        A = Math.PI * (r * r)
        P = 2 * Math.PI * r
        WriteLine("")
        WriteLine("ÁREA          : " & A)
        WriteLine("PERÍMETRO     : " & P)
        ReadLine()
    End Sub
End Module

Private Sub Btn_Calcular_Click(sender As Object, e As EventArgs) Handles Btn_Calcular.Click
    Dim A, r As Decimal
    r = Txt_Radio.Text
    A = Math.PI * (r * r)
    Txt_Area.Text = Format(Val(CDec(A)), "0.00")
End Sub

Private Sub Btn_Calcular1_Click(sender As Object, e As EventArgs) Handles Btn_Calcular1.Click
    Dim P, r As Decimal
    r = Txt_Radio1.Text
    P = 2 * Math.PI * r
    Txt_Perimetro.Text = Format(Val(CDec(P)), "0.00")
End Sub

Sub Area_Circulo()
    Dim r As Double
    r = Range("D15").Value
    Range("G15").Value = 3.1416 * (r * r)
End Sub
Sub Perimetro_Circulo()
    Dim r As Double
    r = Range("D18").Value
    Range("G18").Value = 2 * 3.1416 * r
End Sub

Sub Area_Circulo2()
    Dim r As Double
    r = InputBox("INGRESE RADIO ")
    MsgBox "Área del Círculo  : " & 3.1416 * (r * r)
End Sub
Sub Perimetro_Circulo2()
    Dim r As Double
    r = InputBox("INGRESE RADIO ")
    MsgBox "Perímetro del Círculo  : " & 2 * 3.1416 * r
End Sub

Dim b As Double
Dim h As Double
Private Sub btn_area_Click()
    b = txt_base1.Text
    h = txt_altura1.Text
    txt_area.Text = (b * h)
End Sub
Private Sub btn_perimetro_Click()
    b = txt_base2.Text
    h = txt_altura2.Text
    txt_perimetro.Text = (2 * h) + (2 * b)
End Sub