Programando paso apaso


consulta
View more presentations from javierdj2012.












 
algoritmos
signos zodiacales
Proceso Numeros_Sodiacales
Escribir "1.Aries        ";
Escribir "2.Rauro        ";
Escribir "3.Geminis      ";
Escribir "4.Cancer       ";
Escribir "5.Leo          ";
Escribir "6.Virgo        ";
Escribir "7.Libra        ";
Escribir "8.Escorpion    ";
Escribir "9.Sagitario    ";
Escribir "10.Capricornio ";
Escribir "11.Acuario     ";
Escribir "12.Pisis       ";
Escribir "porfavor digite el numero correspondiente a su nsigno";
Leer Numero;
Segun Numero Hacer
1,5,9:
Escribir "La categoria a la que pertenece su signo es Fuego";
2,6,10:
Escribir "La categoria a la que pertenece su signo es Tierra";
3,8,12:
Escribir "La categoria a la que pertenece su signo es Agua";
4,7,11:
Escribir "La categoria a la que pertenece su signo es Aire";
FinSegun
Si Numero > 12 Entonces
Escribir  "el " ,Numero, " no esta asociado a ningun signo";
FinSi
Si Numero < 1 Entonces
Escribir "este " ,Numero, " no esta asociado a ningun signo";
FinSi
FinProceso



promedios


Proceso promedio
numero<-1;
Mientras numero=1 Hacer
Escribir "porfavor escriba un numero";
Leer numero1;
Escribir "porfavor escriba otro numero";
Leer numero2;
promedio<-(numero1+numero2)/2;
Escribir "su promedio es ",promedio;
Escribir "si desea continuar digite 1 si desea finalizar otro";
Leer numero;
FinMientras
Escribir "gracias";
FinProceso




contador

Proceso contador
Para numero<-0 Hasta 20 Con Paso 2 Hacer
Escribir numero;
FinPara
FinProceso





tabalas de multiplicar


Proceso multiplicaciones
tabla<-0;
respuesta<-0;
souich<-'s';
i<-0;
Mientras souich='s' Hacer
Escribir "que multiplicacion deseas realizar";
Leer tabla;
Escribir "la tabla del " ,tabla
Para i<-1 Hasta 15 Con Paso 1 Hacer
respuesta<-tabla*i;
Escribir tabla, " por ",i, " es igual a: " ,respuesta;
FinPara
Escribir "desea otra tabla s/n";
Leer souich;
FinMientras
Escribir "garcias por utilisar el programa";
FinProceso





divicion y multiplicacion

Proceso multiplicaciones_y_diviciones
tabla<-0;
dos<-0;
divicion<-0;
respuesta<-0;
souich<-'s';
i<-0;
Escribir "para realizar una multiplicacion escriba 1 si desea una divicion otro numero";
Leer dos;
Si dos=1 Entonces
Mientras souich='s' Hacer
Escribir "que multiplicacion deseas realizar";
Leer tabla;
Escribir "la tabla del " ,tabla
Para i<-1 Hasta 15 Con Paso 1 Hacer
respuesta<-tabla*i;
Escribir tabla, " por ",i, " es igual a: " ,respuesta;
FinPara
Escribir "desea otra tabla s/n";
Leer souich;
FinMientras
Sino
Mientras souich='s' Hacer
Escribir "que divicion deseas realizar";
Leer divicion;
Escribir "la divicion del " ,divicion
Para i<-1 Hasta 15 Con Paso 1 Hacer
respuesta<-divicion/i;
Escribir divicion, " entre ",i," es igual a ",respuesta;
FinPara
Escribir "desea otra divicion s/n";
Leer souich;
FinMientras
FinSi
Escribir "garcias por utilisar el programa";
FinProceso














2 comentarios:

Suscribirse a: Entradas (Atom)