Radio De Giro

Proceso área
Leer r;
area<-r*r*3.1416;
Escribir area;
FinProceso






























Proceso area_triangulo
Escribir "Universidad Autónoma De Tamaulipas";
Escribir "Facultad de Ingeniería Arturo Narro Siller";
Escribir "Diseño estructurado de algoritmos";
escribir "ingresar base"
Leer bescribir "ingresar la altura"
leer h
area<-b*h /2;
Escribir "el area de un triangulo es:", area;
FinProceso


Proceso area_de_un_poligono_cualquiera
Escribir "Universidad Autónoma De Tamaulipas";
Escribir "Facultad de Ingeniería Arturo Narro Siller";
Escribir "Diseño estructurado de algoritmos";
Escribir "pedir apotema";
leer a
escribir "pedir numero de lados"leer l
escribir "pedir longitud de un lado"
leer ll
p<-l*ll;
area<-p*a/2;
escribir "el area del poligono regular es:", area
FinProceso.



Proceso area_de_un_rombo
Escribir "Universidad Autonoma De Tamaulipas";
Escribir "Facultad de Ingeniería Arturo Narro Siller";
Escribir "Diseño estructurado de algoritmos";
escribir "introduce la diagonal mayor"
Leer dma
escribir"introduce la diagonal menor"
leer dme
area<-dma*dme/2
Escribir "el area del rombo es:", area
FinProceso


Proceso volumen_De_un_cilindro
Escribir "Universidad Autonoma De Tamaulipas";
Escribir "Facultad de Ingeniería Arturo Narro Siller";
Escribir "Diseño estructurado de algoritmos";
escribir "introduce el radio de la base"
Leer r
escribir "introduce la altura delcilindro"
leer h
ab<-3.1416*r*r
volumen<-ab*h;
Escribir "el volumen de un cilindro es:", volumen
FinProceso

Proceso volumen_De_un_cono
Escribir "Universidad Autonoma De Tamaulipas";
Escribir "Facultad de Ingeniería Arturo Narro Siller";
Escribir "Diseño estructurado de algoritmos";
escribir "introduce el radio de la base"
Leer r
escribir "introduce la altura del cono"
leer hab<-3.1416*r*r
volumen<-ab*h/3;
Escribir "el volumen de cono es:", volumen
FinProceso

Proceso edad
Escribir "Universidad Autónoma De Tamaulipas";
Escribir "Facultad de Ingeniería Arturo Narro Siller";
Escribir "Diseño estructurado de algoritmos";
Escribir "introduce año de nacimiento";
Leer an;
Escribir "introduce año actual";
Leer ac;
edad<-ac-an;
Escribir "la edad es:",edad;
FinProceso

Proceso área_total_de_un_cilindro
Escribir "Universidad Autónoma De Tamaulipas";
Escribir "Facultad de Ingeniería Arturo Narro Siller";
Escribir "Diseño estructurado de algoritmos";
Escribir "radio de la base";
Leer r;
Escribir "altura";
Leer h;
r1<-2*3.1416*r*h;
r2<-2*3.1416*r*r;
at<-r1+r2
Escribir "el area total es: ",at;
FinProceso

Proceso hipotenuzaEscribir "Universidad Autónoma De Tamaulipas";
Escribir "Facultad de Ingeniería Arturo Narro Siller";
Escribir "Diseño estructurado de algoritmos";
Escribir "introduce cateto 1";
Leer c1;
Escribir "introduce cateto 2";
Leer c2;
c<-c1*c1+c2*c2;
hipotenuza<-RC(c);
Escribir "la hipotenuza es:",hipotenuza
FinProceso

Proceso positivo_o_negativo
num1<-0;
Escribir"Universidad Autonoma de Tamaulipas";
Escribir "Diseño Estructurado De Algoritmos";
Escribir "Introduce un numero";
Leer num1;
Si (num1>0) Entonces
Escribir "es positivo";
finsi
si (num1<0) entonces
Escribir "es negativo";
finsi
si (num1=0) entonces
escribir "es cero";
FinSi
finproceso

Proceso multiplo
Escribir "Universidad Autónoma DeTamaulipas";
Escribir "Facultad de Ingeniería Arturo Narro Siller";
Escribir "Diseño estructurado de algoritmos";
Escribir "ingrese el primer numero"
Leer n1;
Escribir "ingrese el segundo numero"
Leer n2;
Si n1>n2 Entonces
residuo<-n1%n2
Si residuo=0 Entonces
Escribir n1," es multiplo de ",n2;
Sino
Escribir n1," no es multiplo de ",n2
FinSi
Sino
Si...