Proceso ejercicio_3
definir a como real;
Escribir ("Introduzca la cantidad de hombres");
leer a;
definir b como real;
Escribir ("introduzca la cantidad de mujeres");
Leer b;
definir c como real;
c<-a+b;
definir d como real;
d<-(a/c)*100;
definir e como real;
e<-(b/c)*100;
escribir ("El pórcentaje de hombres es; "),d;
escribir ("El porcentaje de mujeres es: "),e;
FinProceso
Proceso sin_titulo
Definir a como numerico;
Escribir "Ingrese un numero entre 1 y 1000";
Leer a;
Definir b Como Logico;
b<-Verdadero;
si a=0 Entonces
escribir "El cero no puede ser representado";
b<-Falso;
FinSi
si a<>trunc(a) entonces
Escribir "El numero debe ser entero";
b<-falso;
FinSi
si a>1000 Entonces
Escribir "Muy alto";
b<-Falso;
FinSi
si a<0 entonces
Escribir "El numero tiene que ser positivo";
b<-falso;
FinSi
si b Entonces
si a=1000 entonces
escribir "M";
Sino
Dimension nu(10), nd(10), nc(10);
Definir nu,nd,nc como caracter;
nu(0)<-" "; nu(1)<-"I"; nu(2)<-"II";nu(3)<-"III";nu(4)<-"IV";nu(5)<-"V";nu(6)<-"VI";nu(7)<-"VII";nu(8)<-"VIII";nu(9)<-"IX";
nd(0)<-" "; nd(1)<-"X"; nd(2)<-"XX";nd(3)<-"XXX";nd(4)<-"XL";nd(5)<-"L";nd(6)<-"LX";nd(7)<-"LXX";nu(8)<-"LXXX";nu(9)<-"XC";
nc(0)<-" "; nc(1)<-"C"; nc(2)<-"CC";nc(3)<-"CCC";nc(4)<-"CD";nc(5)<-"D";nc(6)<-"DC";nc(7)<-"DCC";nc(8)<-"DCCC";nu(9)<-"CM";
FinSi
finsi
Definir cent,dec,uni como entero;
cent<-trunc(a/100)%10;
dec<-trunc(a/10)%10;
uni<- a%10;
Escribir nc(cent),nd(dec),nu(uni);
FinProceso
Proceso Letras_numeros
Definir a,b,f Como Entero;
Definir c,d,e Como Caracter;
Dimension c(10);
Dimension d(10);
Dimension e(5);
Escribir "Ingrese un numero entre 1 y 100: ";
Leer a;
f<-a;
c(0)<-"Cero";c(1)<-"Uno";c(2)<-"Dos";c(3)<-"Tres";c(4)<-"Cuatro";c(5)<-"Cinco";c(6)<-"Seis";c(7)<-"Siete";c(8)<-"Ocho";c(9)<-"Nueve";
e(0)<-"Once";e(1)<-"Doce";e(2)<-"Trece";e(3)<-"Catorce";e(4)<-"Quince";
d(0)<-"Dies";d(1)<-"Veinte";d(2)<-"Treinta";d(3)<-"Cuarenta";d(4)<-"Cincuenta";d(5)<-"Sesenta";d(6)<-"Setenta";d(7)<-"Ochenta";d(8)<-"Noventa";d(9)<-"Cien";
Si a=0 | a=1 | a=2 | a=3 | a=4 | a=5 | a=6 | a=7 | a=8 | a=9 Entonces
Escribir c(a);
Sino
Si a=11 | a=12 | a=13 | a=14 | a=15 Entonces
a<-a-11;
Escribir e(a);
Sino
Si a=10 | a=20 | a=30 | a=40 | a=50 | a=60 | a=70 | a=80 | a=90 | a=100 Entonces
a<-trunc(a/10);
a<-a-1;
Escribir d(a);
Sino
Si a<>1 | a<>2 | a<>3 | a<>4 | a<>5 | a<>6 | a<>7 | a<>8 | a<>9 | a<>10 | a<>11 | a<>12 | a<>13 | a<>14 | a<>15 | a<>20 | a<>30 | a<>40 | a<>50 | a<>60 | a<>70 | a<>80 | a<>90 | a<>100 Entonces
f<-a;
a<-trunc(a/10);
a<-a-1;
b<-f%10;
Escribir d(a)," Y ", c(b);
FinSi
FinSi
FinSi
FinSi
FinProceso
Proceso numeros_multiplos_de_7
Definir a,b Como Entero;
Escribir "Numeros multiplos de 7 hasta n numero";
Escribir "Hasta que numero";
Leer a;
Para b<-7 Hasta a Con Paso 7 Hacer
Escribir b;
FinPara
FinProceso
Proceso Multidimensional
Definir c Como Entero;
Definir a como cadena;
Dimension a(3,6);
c<-0;
Para c<-0 Hasta 2 Con Paso 1 Hacer
Escribir "Nombre: ";
Leer a(c,0);
Escribir "Apellido: ";
Leer a(c,1);
Escribir "Direccion: ";
Leer a(c,2);
Escribir "correo electronico: ";
Leer a(c,3);
Escribir "Edad: ";
Leer a(c,4);
Escribir "Telefono: ";
Leer a(c,5);
FinPara
Para c<-2 Hasta 0 Con Paso -1 Hacer
Escribir "Valores de la fila ",c;
Escribir a(c,0);
Escribir a(c,1);
Escribir a(c,2);
Escribir a(c,3);
Escribir a(c,4);
Escribir a(c,5);
FinPara
FinProceso
Proceso Matriz
Definir c Como Entero;
Definir a como cadena;
Dimension a(3,3);
c<-0;
Para c<-0 Hasta 2 Con Paso 1 Hacer
Escribir "Nombre: ";
Leer a(c,0);
Escribir "Apellido: ";
Leer a(c,1);
Escribir "Direccion: ";
Leer a(c,2);
FinPara
Para c<-2 Hasta 0 Con Paso -1 Hacer
Escribir "Valores de la fila ",c;
Escribir a(c,0);
Escribir a(c,1);
Escribir a(c,2);
FinPara
FinProceso
Proceso Hipotenusa
Definir CatA,CatB Como Real;
Escribir "Ingrese el valor del cateto 1";
Definir a Como Real;
Leer a;
Escribir "Ingrese el valor del Cateto 2";
Definir b Como Real;
Leer b;
Definir c Como Real;
c<-(a^2+b^2)^0.50;
Escribir "La hipotenusa es: ", c;
FinProceso
