Codigos

2.14
--------------------------------------------------------------------------------------------
Proceso sin_titulo
Escribir 'Ingrese medida en metros'
Leer m
pies=m*3.281
Pulgada=m*39.37
Escribir 'La medida en Pies es: ',pies;
Escribir 'La medida en Pulgada es: ',Pulgada
FinProceso
-------------------------------------------------------------------------------------------
2.15-------------------------------------------------------------------------------------------
Proceso Presentacion
Escribir 'El cambio de divisas en la bolsa de Madrid el 25 de agosto de 1957 fue la sgte :'
Escribir '100 Chelines austriacos = 956,871 pesetas'
Escribir '1 Dolar americanos = 122,499 pesetas'
Escribir '100 Dracmas griegos = 88,607 pesetas'
Escribir '100 Francos Belgas =323,728 pesetas'
Escribir '1 Franco Frances = 20,110 pesetas'
Escribir '1 Libra Esterlina = 178,938 pesetas'
Escribir '100 Liras Italianas = 9,289 pesetas'
FinProceso
------------------------------------------------------------------------------------------
2.16
-------------------------------------------------------------------------------------------
Proceso Cambios
Escribir 'Ingresarun Monto y que salga su equivalente en el cambio dado'
Escribir 'Ingrese monto en Chelines Austriacos'
Leer ca
Escribir 'Ingrese monto en Dracmas Griegos'
Leer dg
Escribir 'Ingrese cantidad en Pesetas'
Leer Pst
cm1<-ca*956.871/100
cm2<-dg*886.07/20110
dl<-Pst/122499
lt<-Pst/92.89
Escribir 'El Cambio de Chelines Austriacos a Pesetas son : ',cm1;
Escribir 'El Cambio de Dracmas Griegosa Francos Franceses son : ',cm2;
Escribir 'El Cambio de Pesetas a Dolares son : ',dl;
Escribir 'El Cambio de Pesetas a Lirias Italianas : ',lt;
FinProceso

-----------------------------------------------------------------------------------------
2.18
-----------------------------------------------------------------------------------------
Proceso Operacions
Escribir 'Realizar Suma RestaMultiplicacion e Division con 2 Numeros Enteros'
Escribir 'Ingrese el primer numero enteros'
Leer num1
Escribir 'Ingrese el segundo numero entero'
Leer num2
sum<-num1+num2
res<-num1-num2
mult<-num1*num2
div<-num1/num2
Escribir 'La suma es :',sum;
Escribir 'La resta es :',res;
Escribir 'La multiplicacion es :',mult;
Escribir 'La division es :',div;
FinProceso------------------------------------------------------------------------------------
2.19 (Incompleto)
------------------------------------------------------------------------------------
Proceso Problema
Definir num1,num2,a,b,res Como Entero
Escribir 'Ingrese el primer Numero'
Leer num1
Escribir 'Ingrese el segundo Numero'
Leer num2
Si num1>num2 Entonces
a<-num1
b<-num2
div<-num1/num2
Sino
a<-num2b<-num1
div<-num2/num1
FinSi
Mientras b!=0 Hacer
res<-b
b<-a MOD b
a<-res
FinMientras
Escribir "El M.C.D. entre ",num1," y ", num2, " es : ",res
Escribir "La Division de los 2 numeros son : ",div
FinProceso

------------------------------------------------------------------------------------
2.21
------------------------------------------------------------------------------------Proceso Problema
n<-99
suma=0
Para i=3 hasta n con paso 3
suma=suma+i
finpara
Escribir suma
FinProceso

-----------------------------------------------------------------------------------
2.22
-----------------------------------------------------------------------------------
Proceso Problema
Escribir 'Ingrese primer numero'
Leer a
Escribir 'Ingrese segundo numero'
Leer bEscribir 'Ingrese tercer numero'
Leer c
Escribir 'Ingrese cuarto numero'
Leer d
Si a>c y a>c y a>d Entonces
Escribir 'El numero mayor es ', a;
Sino
Si b>c y b>d y b>a Entonces
Escribir 'El numero mayor es ', b;
Sino
Si c>a y c>b y c>d Entonces
Escribir 'El numero mayor es ', c;
Sino
Escribir 'El numero mayor es ', d
Fin Si
Fin Si


FinSi

FinProceso...