tabla de multiplicar

Proceso 1
Escribir "tablas de multiplicar"; Leer pausa;
Escribir "¿que tabla quieres?"; Leer tabla;
I <- 1;
Mientras (I < 50) Hacer
Escribir "I = ",I, " * " ,tabla,"=",I*tabla;
I <- I + 1;
FinMientras

FinProceso

proceso numeros

Proceso 2
Escribir "mostrar los numeros enteros"; Leer pausa;
Escribir "desde el menos diez hasta el diez";
a <- 1; b <- -1;
Mientras (a<11 y b>-11) Hacer
Escribir "a = ",a, "b = ",b;
a <- a + 1; b <- b - 1;
FinMientras

FinProceso

proceso numeros

Proceso numeros naturales
Escribir "mostrar numeros naturales"; Leer pausa;
Escribir "hasta el dies y siete";
I <- 1;
Mientras (I<18) Hacer
Escribir I;
I <- I + 1;
FinMientras


FinProceso

area de un circulo

Proceso cinco
Escribir "calcular el area de un circulo"; Leer pausa;
Escribir "ingresar valor de radio"; Leer radio;
Escribir "ingresar valor de pi";Leer pi;
si (radio>0) Entonces
area <- radio*radio * pi;
Escribir "valor del area es",area;
Sino
Escribir "no sirve un valor de radio nulo o negativo";
FinSi


FinProceso

area de un triangulo rectangulo

Proceso sin_titulo
Escribir "calcular el area de un triangulo rectangulo";Leer pausa;
Escribir "ingresar el valor de la base"; Leer base;
Escribir "ingresar el valor de la altura";leer altura;
si (altura>0) Entonces
area <- base*altura/2;
Escribir "el valor del area es",area;
Sino
Escribir "no sirve un valor de b nulo o negativo";
FinSi

FinProceso

area de un rectangulo

Proceso numero 3

Escribir "calcular el area de un rectangulo"; Leer pausa;

Escribir "ingresar valor de lado a"; Leer a;

Escribir "ingresar valor de lado b"; Leer b;

si (b>0) Entonces

area <- a*b;

Escribir "el valor del area es",area;

Sino

Escribir "no sirve un valor de b nulo o negativo";

FinSi

FinProceso

area de un cuadrado

Proceso numero 2
Escribir "calcular el area de un cuadrado"; Leer pausa;
Escribir "ingresar valor de a"; Leer a;
Escribir "ingresar valor de b"; Leer b;
si (b>0) Entonces
area <- a*b;
Escribir "el resultado es", area;
Sino
Escribir "no sirve un valor de a nulo o negativo";
FinSi

FinProceso

calculo ley de ohm

Proceso numero uno

Escribir "calcular ley de ohm"; Leer pausa;

Escribir "ingresar valor de de voltaje"; Leer voltaje;

Escribir "ingresar valor de resistencia"; Leer resistencia;

si (resistencia>0) Entonces

intensidad <- voltaje/resistencia;

Escribir "el resultado es", intensidad;

Sino

Escribir "no sirve un valor de resistencia nulo o negativo";

FinSi

Escribir "gracias por usar software nacional";