ALGORITMO QUE MUESTRA EL ÁREA Y PERÍMETRO DE UN ROMBO

Categoría de Estructura Secuencial

Algoritmo para calcular el área y perímetro de un rombo

💻 Hacer un programa que muestre el área y perímetro de un rombo.

ÁREA DEL ROMBO : AREA = (D * d) / 2
PERÍMETRO DEL ROMBO : PERÍMETRO = 4L

Análisis :

Área del rombo :
ÁREA DEL ROMBO : PI * (r * r)

Perímetro del rombo :
PERÍMETRO DEL ROMBO : 2 * PI * r

PSeInt Estricto : DESCARGA EL CÓDIGO

Algoritmo programacion_work
    Definir P, A, D, dd, l como Real;
    Escribir "ÁREA DEL ROMBO";
    Escribir Sin Saltar "DIAMETRO MAYOR : ";
    Leer D;
    Escribir Sin Saltar "DIAMETRO MENOR : ";
    Leer dd;
    A <- (D * dd)/2;
    Escribir "ÁREA : ",A,"cm.";
    Escribir "";
    Escribir "PERÍMETRO DEL ROMBO";
    Escribir Sin Saltar "LADO : ";
    Leer l;
    P <- 4 * l;
    Escribir "PERÍMETRO : ",P,"cm.";
FinAlgoritmo

Python :

VER EL CÓDIGO

print("ÁREA Y PERÍMETRO DEL ROMBO.")
import math
D  = float(input("DIAMETRO MAYOR : "))
dd = float(input("DIAMETRO MENOR : "))
A = (D * dd) / 2
print("ÁREA : ", round(A,2))
print()
l = float(input("INGRESE LADO : "))
P = 4 * l
print("PERÍMETRO : ",round(P,2))

Python con Interfaz Gráfica :

área y el perímetro de un rombo en Python

import tkinter as tk

def calcularArea():
    D = float(diametro_mayor_entry.get())
    dd = float(diametro_menor_entry.get())
    A = (D * dd) / 2
    area_label["text"] = "\nÁREA: " + str(round(A, 2) )+ "cm."

def calcularPerimetro():
    l = float(lado_entry.get())
    P = 4 * l
    perimetro_label["text"] = "PERÍMETRO: " + str(round(P, 2)) + "cm."

window = tk.Tk()
window.title("Área y Perímetro del Rombo")
window.geometry("320x270")

diametro_mayor_label = tk.Label(window, text="Diámetro mayor:")
diametro_menor_label = tk.Label(window, text="Diámetro menor:")
lado_label = tk.Label(window, text="Lado: ")
area_label = tk.Label(window, text="\nÁREA: ")
perimetro_label = tk.Label(window, text="PERÍMETRO: ")

diametro_mayor_label.pack()
diametro_mayor_entry = tk.Entry(window)
diametro_mayor_entry.pack()
diametro_menor_label.pack()
diametro_menor_entry = tk.Entry(window)
diametro_menor_entry.pack()

lado_label.pack()
lado_entry = tk.Entry(window)
lado_entry.pack()
area_label.pack()
perimetro_label.pack()
tk.Label(window, text="").pack()

calcular_button = tk.Button(window, text="Calcular Área", command=calcularArea)
calcular_button.pack()
calcular_button2 = tk.Button(window, text="Calcular Perímetro", command=calcularPerimetro)
calcular_button2.pack()

window.mainloop()

Lenguaje C :

#include<stdio.h>
int main() {
    float D, dd, l, A=0, P=0;
    printf("AREA Y PERIMETRO DEL ROMBO\n\n");            
    printf("Ingrese Diametro Mayor : ");
    scanf("%f",&D);
    printf("Ingrese Diametro Menor : ");
    scanf("%f",&dd);
    A = (D * dd)/2;        
    printf("AREA                   : %.2f cm. \n",A);            
    printf("\nIngrese Lado           : ");
    scanf("%f",&l);
    P = 4 * l;
    printf("PERIMETRO              : %.2f cm. \n", P);
    return 0;
}

Dev C++ :

#include<iostream>
using namespace std;
int main() {
    float D, dd, l, A=0, P=0;
    cout << "AREA Y PERIMETRO DEL ROMBO.\n\n";                    
    cout << "Ingrese Diametro Mayor : ";
    cin >> D;        
    cout << "Ingrese Diametro Menor : ";
    cin >> dd;            
    A = (D * dd)/2;
    cout << "AREA                   : " << A << " cm." << endl;
    cout << "\nIngrese Lado           : ";
    cin >> l;  
    P = 4 * l;        
    cout << "PERIMETRO              : " << P << " cm." << endl;
    return 0;
}

C# - C Sharp :

using System;
using System.Collections.Generic;
using System.Text;
namespace programacion_work
{
  class rombo
  {
    static void Main(string[] args)
    {
        double D, dd, l, A = 0, P = 0;
        Console.WriteLine("AREA Y PERIMETRO DEL ROMBO EN C#.\n");
        Console.Write("Ingrese Diametro Mayor : ");
        D = double.Parse(Console.ReadLine());
        Console.Write("Ingrese Diametro Menor : ");
        dd = double.Parse(Console.ReadLine());
        A = (D * dd) / 2;
        Console.WriteLine("AREA                   : " + String.Format("{0,4:##.00}", A));
        Console.Write("\nIngrese Lado           : ");
        l = double.Parse(Console.ReadLine());
        P = 4 * l;
        Console.WriteLine("PERIMETRO              : " + String.Format("{0,4:##.00}", P));
        Console.ReadLine();
    }
  }
}

Java NetBeans :

package programacion_work;
import java.util.Scanner;
public class rombo {
    public static void main(String[] args) {
        Scanner ingreso=new Scanner(System.in);  
        double D, dd, A, L, P;
        System.out.print("ROMBO - Mostrar el área y perímetro.\n\n");        
        System.out.print("INGRESE DIAMETRO MAYOR : ");
        D = Double.parseDouble(ingreso.next());
        System.out.print("INGRESE DIAMETRO MENOR : ");
        dd = Double.parseDouble(ingreso.next());                        
        A = (D * dd)/2;
        System.out.println("ÁREA                   : " + A + " cm.");
        System.out.println("");
        System.out.print("INGRESE LADO           : ");
        L = Double.parseDouble(ingreso.next());
        P = 4 * L;
        System.out.println("PERÍMETRO              : " + P + " cm.");                
    }      
}

Java NetBeans - FORMULARIOS [POO]:

private void jBtn_CalcularActionPerformed(java.awt.event.ActionEvent evt) {                                              
    double D, dd, A;
    D  = Double.parseDouble(jTxt_DMayor.getText());
    dd  = Double.parseDouble(jTxt_DMenor.getText());
    A = (D * dd)/2;
    jTxt_Area.setText(String.valueOf(A));
}

private void jBtn_Calcular1ActionPerformed(java.awt.event.ActionEvent evt) {                                               
    double L, P;       
    L  = Double.parseDouble(jTxt_Lado.getText());
    P = 4 * L;
    jTxt_Perimetro.setText(String.valueOf(P));
}

Visual Basic .NET Console:

Imports System.Console
Module circulo
    Dim P, A, D, dd, l As Decimal
    Sub Main()
        WriteLine("MOSTRAR EL ÁREA Y PERÍMETRO DE UN ROMBO.")
        WriteLine("")
        Write("Ingrese Diametro Mayor : ")
        D = ReadLine()
        Write("Ingrese Diametro Menor : ")
        dd = ReadLine()
        A = (D * dd) / 2
        WriteLine("ÁREA                   : " & A)
        WriteLine("")
        Write("Ingrese Lado           : ")
        l = ReadLine()
        P = 4 * l
        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 A, D, dd As Decimal
    D = Txt_DMayor.Text
    dd = Txt_DMenor.Text
    A = (D * dd) / 2
    Txt_Area.Text = A
End Sub

Private Sub Btn_Calcular1_Click(sender As Object, e As EventArgs) Handles Btn_Calcular1.Click
    Dim P, l As Decimal
    l = Txt_Lado.Text
    P = 4 * l
    Txt_Perimetro.Text = P
End Sub

Excel VBA :

Sub Area_Rombo()
    Dim D As Double
    Dim dd As Double
    D = Range("C15").Value
    dd = Range("D15").Value
    Range("G15").Value = (D * dd) / 2
End Sub

Sub Perimetro_Rombo()
    Dim l As Double
    l = Range("D18").Value
    Range("G18").Value = 4 * l
End Sub

Excel – InputBox :

Sub Area_Rombo2()
    Dim D As Double
    Dim dd As Double
    D = InputBox("DIAMETRO MAYOR ")
    dd = InputBox("DIAMETRO MENOR ")
    MsgBox "Área del Rombo  : " & (D * dd) / 2
End Sub

Sub Perimetro_Rombo2()
    Dim l As Double
    l = InputBox("INGRESE LADO ")
    MsgBox "Perímetro del Rombo  : " & (4 * l)
End Sub

VBA – Formulario [POO] :

Dim D As Double
Dim dd As Double
Dim l As Double
Private Sub btn_area_Click()
    D = txt_DiametroMe.Text
    dd = txt_DiametroMa.Text
    txt_area.Text = (D * dd) / 2
End Sub

Private Sub btn_perimetro_Click()
    l = txt_Lado.Text
    txt_perimetro.Text = 4 * l
End Sub

. . . .

Política de cookies

Política de Privacidad

Aviso Legal y Términos De Uso