Algoritmo para calcular el perímetro de un cuadrado
💻 Hacer un programa que muestre el área y perímetro de un cuadrado.
ÁREA DEL CUADRADO : AREA = L * L
PERÍMETRO DEL CUADRADO : PERÍMETRO = 4 * L
Análisis :
ÁREA DEL CUADRADO : Lado x Lado (L*L)
• Perímetro de un Cuadrado :
PERÍMETRO DEL CUADRADO : Suma de cada uno de sus lados, que es igual a 4 x Lado (4L)
PSeInt Estricto :
DESCARGA EL CÓDIGO
Algoritmo programacion_work
Definir P, L, A como Real;
Escribir "ÁREA DEL CUADRADO";
Escribir Sin Saltar "LADO : ";
Leer L;
A <- L * L;
Escribir "ÁREA : ",A;
Escribir "";
Escribir "PERÍMETRO DEL CUADRADO";
P <- 4 * L;
Escribir "PERÍMETRO : ",P;
FinAlgoritmo
Python :
print("17. ÁREA Y PERÍMETRO DEL CUADRADO.")
import math
print()
print("ÁREA DEL CUADRADO")
L = int(input("INGRESE LADO : "))
A = math.pow(L,2)
print("ÁREA : ", round(A,2))
print()
print("PERÍMETRO DEL CUADRADO")
P = 4 * L
print("PERÍMETRO : ",round(P,2))
Lenguaje C :
#include<stdio.h>
int main() {
float l, A=0, P=0;
printf("17. AREA Y PERIMETRO DEL CUADRADO\n\n");
printf("Ingrese Lado : ");
scanf("%f",&l);
A = (l * l);
P = 4 * l;
printf("\nAREA : %.2f cm. \n",A);
printf("PERIMETRO : %.2f cm. \n", P);
return 0;
}
Dev C++ :
#include<iostream>
using namespace std;
int main() {
float l, A=0, P=0;
cout << "17. AREA Y PERIMETRO DEL CUADRADO.\n\n";
cout << "Ingrese Lado : ";
cin >> l;
A = (l * l);
P = 4 * l;
cout << "AREA : " << A << "cm." << endl;
cout << "PERIMETRO : " << P << "cm." << endl;
return 0;
}
C# - C Sharp :
using System;
using System.Collections.Generic;
using System.Text;
namespace programacion_work
{
class cuadrado
{
static void Main(string[] args)
{
double l, A = 0, P = 0;
Console.WriteLine("17. AREA Y PERIMETRO DEL CUADRADO EN C#.\n");
Console.Write("Ingrese Lado : ");
l = double.Parse(Console.ReadLine());
A = (l * l);
P = 4 * l;
Console.WriteLine("\nAREA : " + String.Format("{0,4:##.00}", A));
Console.WriteLine("PERIMETRO : " + String.Format("{0,4:##.00}", P));
Console.ReadLine();
}
}
}
Java NetBeans :
package programacion_work;
import java.util.Scanner;
public class cuadrado {
public static void main(String[] args) {
Scanner ingreso=new Scanner(System.in);
double A=0, P=0, L;
System.out.print("17. CUADRADO - Mostrar el área y perímetro.\n\n");
System.out.print("INGRESE LADO : ");
L = Double.parseDouble(ingreso.next());
A = L * L;
System.out.println("");
System.out.println("ÁREA : " + A + " cm.");
P = 4 * L;
System.out.println("PERÍMETRO : " + P + " cm.");
}
}
Java NetBeans - FORMULARIOS [POO]:
private void jBtn_CalcularActionPerformed(java.awt.event.ActionEvent evt) {
double A=0, L;
L = Double.parseDouble(jTxt_Lado.getText());
A = L * L;
jTxt_Area.setText(String.valueOf(A));
}
private void jBtn_Calcular1ActionPerformed(java.awt.event.ActionEvent evt) {
double P=0, L;
L = Double.parseDouble(jTxt_Lado2.getText());
P = 4 * L;
jTxt_Perimetro.setText(String.valueOf(P));
}
Visual Basic .NET Console:
Imports System.Console
Module cuadrado
Dim P, L, A As Decimal
Sub Main()
WriteLine("17. MOSTRAR EL ÁREA Y PERÍMETRO DE UN CUADRADO.")
WriteLine("")
Write("Ingrese Lado : ")
L = ReadLine()
A = L * L
P = 4 * L
WriteLine("")
WriteLine("ÁREA : " & A)
WriteLine("PERÍMETRO : " & P)
ReadLine()
End Sub
End Module
Visual Basic .NET Formularios :
Private Sub Btn_Calcular_Click(sender As Object, e As EventArgs) Handles Btn_Calcular.Click
Dim L, A As Decimal
L = Txt_Lado.Text
A = L * L
Txt_Area.Text = A
End Sub
Private Sub Btn_Calcular1_Click(sender As Object, e As EventArgs) Handles Btn_Calcular1.Click
Dim L, P As Decimal
L = Txt_Lado1.Text
P = 4 * L
Txt_Perimetro.Text = P
End Sub
Excel VBA :
Sub Area_Cuadrado()
Dim L As Integer
L = Range("D15").Value
Range("G15").Value = (L * L)
End Sub
Sub Perimetro_Cuadradoo()
Dim L As Integer
L = Range("D18").Value
Range("G18").Value = (4 * L)
End Sub
Excel – InputBox :
Sub Area_Cuadrado2()
Dim L As Double
L = InputBox("INGRESE LADO ")
MsgBox "Área del Cuadrado : " & (L * L)
End Sub
Sub Perimetro_Cuadrado2()
Dim L As Double
L = InputBox("INGRESE LADO ")
MsgBox "Perímetro del Cuadrado : " & (4 * L)
End Sub
VBA – Formulario [POO] :
Dim L As Double
Private Sub btn_area_Click()
L = txt_lado1.Text
txt_area.Text = (L * L)
End Sub
Private Sub btn_perimetro_Click()
L = txt_lado2.Text
txt_perimetro.Text = 4 * L
End Sub
.
.
.
.