Fundamentos de Programacion

Algoritmo de Promedios  Escribir "Cual es tu nombre"  Leer nombre;  Escribir "Ingrese el numero de notas a calcular"  Leer x;    acum<-0;    Para i<-1 Hasta x Con Paso 1 Hacer   Escribir "Ingrese la nota ", i " :"   Leer nota;      acum<-acum+nota;  Fin Para      final<-acum/x;  Escribir "El promedio de ", nombre, " es de: ", final      si final>4 entonces   Escribir " Usted es una maquina, fiera, mastodonte :v "  SiNo   Escribir "usted esta reprobado"  FinSi   FinAlgoritmo

Algoritmo sin_titulo  Escribir "ingresa un numero"  Leer n;  Para i<-1 hasta 2 Con Paso 1 Hacer   c<-n^2;   t<-n^3;   Escribir "Su numero al cuadrado es: " c;   Escribir "Su numero al cubo es: " t;  FinPara FinAlgoritmo  

Algoritmo Determinar_edad  definir a?o,mes,dia Como Entero  a?o<-0   mes<-0  dia<-0  escribir "ingrese fecha de nacimiento"  Escribir "A?o de nacimiento"  leer a?o  Escribir "Mes de nacimiento"  leer mes  escribir "Dia de nacimiento"  leer dia    Escribir dia,"/",mes,"/",a?o    Escribir "Ingrese fecha actual"  Escribir "A?o"  leer a?o1  Escribir "Mes"  leer mes1  escribir "Dia"  leer dia1    Escribir "Fecha actual es: ",dia1,"/",mes1,"/",a?o1  edad<-(a?o1-a?o)      Si (mes1< mes) Entonces   edad<-edad- 1;  FinSi    Si mes1= mes Entonces      Si (dia1 < dia) Entonces    edad <- edad - 1;   FinSi     FinSi  Escribir "La edad actual de la persona es de: ",edad," a?os";   FinAlgoritmo

Algoritmo cant_dinero  Definir monto Como Entero    bill20mil<-20000  bill10mil<-10000  bill5mil<-5000  billmil<-1000  mon500<-500  mon100<-100  mon50<-50  mon10<-10  mon5<-5  decision<-"si"    Mientras decision="si" Hacer   monto<-0   cant20mil<-0   cant10mil<-0   cant5mil<-0   cantmil<-0   cant500<-0   cant100<-0   cant50<-0   cant10<-0   cant5<-0         Repetir    Escribir "ingrese monto"    leer monto   Hasta Que monto>0      mientras monto>=bill20mil    monto<-monto-bill20mil    cant20mil<-cant20mil+1       Finmientras   escribir "La cantidad de billetes de $20000 son: " ,cant20mil   Mientras  monto>=bill10mil    monto<-monto-bill10mil    cant10mil<-cant10mil+1       FinMientras   Escribir "la cantidad de billetes de $10000 son: ", cant10mil   Mientras  monto>=bill5mil    monto<-monto-bill5mil    cant5mil<-cant5mil+1       FinMientras   Escribir "la cantidad de billetes de $5000 son: ", cant5mil      Mientras  monto>=billmil    monto<-monto-billmil    cantmil<-cantmil+1       FinMientras   Escribir "la cantidad de billetes de $1000 son: ", cantmil      Mientras  monto>=mon500    monto<-monto-mon500    cant500<-cant500+1       FinMientras   Escribir "la cantidad de monedas de $500 son: ", cant500      Mientras  monto>=mon100    monto<-monto-mon100    cant100<-cant100+1       FinMientras   Escribir "la cantidad de monedas de $100 son: ", cant100   Mientras  monto>=mon50    monto<-monto-mon50    cant50<-cant50+1       FinMientras   Escribir "la cantidad de monedas de $50 son: ", cant50   Mientras  monto>=mon10    monto<-monto-mon10    cant10<-cant10+1       FinMientras   Escribir "la cantidad de monedas de $10 son: ", cant10   Mientras  monto>=mon5    monto<-monto-mon5    cant5<-cant5+1       FinMientras   Escribir "la cantidad de monedas de $5 son: ", cant5   Escribir "Desea continuar si/no"   leer decision     Fin Mientras   FinAlgoritmo

Algoritmo sin_titulo  cantpalabras=1;  Continuar=1;    Repetir   Escribir  "Escriba una frase.";   Leer frase;   Para i=1 Hasta longitud(frase) Hacer    Si subcadena(frase,i,i) = " " Entonces     cantpalabras=cantpalabras+1;    FinSi   FinPara   Si frase="" Entonces    cantpalabras=0;   FinSi   escribir"La frase tiene ", cantpalabras, " palabras.";   Escribir  "";   Escribir  "?Volver a intentar 1(si)/2(no)?";   Leer Continuar;   cantpalabras=1;  Hasta Que Continuar=2 FinAlgoritmo  

Algoritmo sin_titulo  definir num Como Entero    Escribir "Ingrese numero entre 1 y 1000"  leer num  si num = 1000 Entonces   Escribir 'su numero romano es:'   Escribir 'M'  SiNo   c<-trunc(num/100) mod 10   d<-trunc(num/10) mod 10   u<-num mod 10   Segun u Hacer    1:     r<-"I"    2:     r<-"II"    3:     r<-"III"    4:     r<-"IV"    5:     r<-"V"    6:     r<-"VI"    7:     r<-"VII"    8:     r<-"VIII"    9:     r<-"IX"   FinSegun         Segun d Hacer    1:     r<-"X"+r    2:     r<- "XX"+r    3:     r<- "XXX"+r    4:     r<-"XL"+r    5:     r<-"L"+r    6:     r<-"LX"+r    7:     r<-"LXX"+r    8:     r<-"LXXX"+r    9:     r<-"XC"+r   FinSegun      Segun c Hacer    1:     r<-"C"+r    2:     r<-"CC"+r    3:     r<-"CCC"+r    4:     r<-"CD"+r    5:     r<-"D"+r    6:     r<-"DC"+r    7:     r<-"DCC"+r    8:     r<-"DCCC"+r    9:     r<-"CM"+r   FinSegun            escribir "su numero romano es:", r     FinSi FinAlgoritmo

Algoritmo sin_titulo  Para H<-0 hasta 24 Con Paso 1 Hacer   Para M<-0 Hasta 59 Con Paso 1 Hacer    Para S<-0 Hasta 59 Con Paso 1 Hacer     Escribir  "La hora es " h ":", m ":", s     Esperar 1 Segundos     Borrar Pantalla    FinPara   FinPara  FinPara FinAlgoritmo

Algoritmo sin_titulo  Dimension matriz[3,3]  Para f<-1 Hasta 3 Con Paso 1 Hacer   Para c<-1 Hasta 3 Con Paso 1 Hacer    Leer n    matriz[f,c]<-n   FinPara  FinPara  Para f<-1 hasta 3 Con Paso 1 Hacer   Para c<-1 hasta 3 Con Paso 1 Hacer    Escribir matriz[f,c]   FinPara  FinPara  Escribir "Los numeros en diagonal son: " matriz[1,1] ":", matriz[1,3] ":", matriz[2,2] ":", matriz[3,1] ":", matriz[3,3] FinAlgoritmo  

Algoritmo sin_titulo  Dimension arreglo[10]  Para i<-1 hasta 10 Con Paso 1 Hacer   Leer num   arreglo[i]<-num  FinPara  Para i<-1 hasta 10 Con Paso 1 Hacer   Escribir arreglo[i]  FinPara  Borrar Pantalla  Para i<-1 Hasta 10 Con Paso 1 Hacer   si arreglo[i]<0 Entonces    Escribir arreglo[i]   SiNo    Escribir "No son negativos"   FinSi  FinPara FinAlgoritmo