Diagrama - Circulo

Proceso calculo_area_circular
Escribir "calculo de un area de un circulo";
leer pausa;
Escribir "usted tiene que ingresar datos";
Escribir "ingrese el valor de la base";
Leer x;
Escribir "ingrese el valor de altura ";
Leer A;
area <- 3.14*x*a;
Escribir area;
FinProceso

Diagrama - Dividir

Proceso dividirEscribir "calcular la siguiente division";
Escribir "ingrese el valor de dividendo:";

Leer dividendo;
Escribir "ingrese el valor del divisor:";

Leer divisor;

resto <- dividendo MOD divisor;si (resto=0) Entonces

Escribir "la division es exacta";

Sino

Escribir "la division no es exacta";

FinSi Escribir "este programa fue escrito por denis";

FinProceso