Area de un triangulo

Escribir es pseudocódigo el algoritmo donde se ingrese la base y altura de un triángulo y muestre como resultado el área.

Programa: AreaTriangulo

Modulo: Principal

Variables: base, altura,área: entero;

Inicio

Escribir (“Ingrese la base del triangulo”)

Leer (base);

Escribir (“Ingrese la altura del triangulo”)

Leer (altura);

Área=base*altura/2

Escribir (“El área del triangulo es:”, area)

fin

/*Area_Triangulo*/

var

altura, base, area: numerico

inicio

        cls()

imprimir ("\nIngrese la base del triangulo:")

leer (base)

imprimir ("\nIngrese la altura del triangulo:")

leer (altura)

area = base * altura / 2

imprimir ("\nEl área del trinagulo es:", "  ", area )

fin

Escribir es pseudocódigo el algoritmo donde el programa le solicite al usuario ingresar su primer nombre, luego su primer apellido y al final el programa muestre, por ejemplo “Hola Juanito Perez, bienvenido.

Programa: NombreApellido

Modulo: Principal

Variables: nom1,ape1,nom,ape: entero;

Inicio

Escribir (“Escribe tu primer nombre”)

Leer (nom1);

Escribir (“Escribe tu primer apellido”)

Leer (ape1);

Nom = nom1

Ape = ape1

Escribir (“Hola,”, nom, ape “Bienvenido”)

fin

/*Programa Nombre_Apellido*/

var

nom1,ape1:cadena

nom, ape: cadena

inicio

        cls()

        imprimir ("\nEscribe tu primer Nombre:  ")

        leer (nom1)

        imprimir ("\nEscribe tu primer Apellido: ")

        leer (ape1)

        nom = nom1

        ape = ape1

        imprimir ("\nHola,", " ", nom, ape, " ", "Bienvenido")

fin

Escribir es pseudocódigo el algoritmo donde este solicite ingresar el radio de un circulo y muestre el área y el perímetro de circulo.

Programa: AreayPerimetroCirculo

Modulo: Principal

Constante: Pi 3.141692

Variables: radio, área, perimetro: entero;

Inicio

Escribir (“Ingrese el radio del circulo”)

Leer (radio);

area = Pi*radio*radio

perimetro = 2*Pi*radio

Escribir (“El área del de circulo es:”, area”)

Escribir (“El perimetro del de circulo es:”, perimetro”)

fin

/*Area_Perimetro_Circulo*/

const

pi=3.1416

var

radio, area, perimetro: numerico

inicio

        cls()

imprimir ("\nIngrese el radio del circulo:")

leer (radio)

area = pi*radio*radio

perimetro = pi*pi*radio

...