georgipo

//Calculadora básica: +, -, *, / Proceso CalculadoraSegun Acum<-0; Prod<-1; Escribir " ****************** Calculadora ***************************"; Escribir " **************** + - * / **************************"; Repetir Escribir "¿Qué operacion desea realizar? "; Escribir " 1.- Sumar " Escribir " 2.- Restar " Escribir " 3.- Multiplicar " Escribir " 4.- Dividir " Leer op; Escribir " "; Segun op Hacer 1: //Sumas Escribir " Introduzca los numeros que desee sumar, pulsando enter. " Escribir " Para ver el resultado pulse 0"; Leer Num; Mientras Num<>0 Hacer Acum<-Acum + Num; Leer Num; FinMientras Escribir " "; Escribir "La suma es ", Acum; 2: // Resta Escribir " Introduzca el minuendo y a continuación el sustraendo " Leer Minuendo, Sustraendo; Resta<- Minuendo - Sustraendo; Escribir " "; Escribir "La resta es ", Resta; 3: // Producto Escribir " Introduzca los numeros que desee multiplicar, pulsando enter. " Escribir " Para ver el resultado pulse 1"; Leer Num; Mientras Num<> 1 Hacer Prod<-Prod * Num; Leer Num; FinMientras Escribir " "; Escribir "El Producto es ", Prod; 4: // División Escribir " Introduzca el dividendo y a continuación el divisor " Leer Dividendo, Divisor; Si Divisor=0 Entonces Escribir " Error. División entre cero"; Sino Cociente<- Dividendo / Divisor; Escribir " "; Escribir "El cociente es ", Cociente; FinSi De Otro Modo: Escribir op, " Error. Solo realiza las siguientes operaciones: +, -, * y /"; FinSegun Escribir " "; Escribir "¿Quieres volver a empezar. S/N"; Leer seguir; Mientras seguir<>"n" y seguir<>"N" y seguir<>"s" y seguir<>"S" Hacer Escribir "Tienes que escribir S o N."; Leer seguir; FinMientras Hasta Que seguir = "n" o seguir = "N" FinProceso mas algoritmo: algoritmoresuelto.blogspot.com

Proceso s<-1; n<-0; i<-0; minimo<-999999999999; maximo<-0; Mientras s<=5 Hacer Escribir "escriba un numero"; Leer n; Si n>maximo Entonces maximo<- n; finsi si n<minimo ENTONCES minimo <-n; finsi s<-s+1; FinMientras Escribir "el numero minimo es ",minimo; Escribir "el numero maximo es ",maximo; Si maximo mod 2=0 y minimo mod 2=0 Entonces Escribir "SON PARES"; Sino Si maximo mod 2<>0 y minimo mod 2<>0 Entonces i<-maximo+minimo; Escribir "la suma de los impares es ",i; FinSi FinSi Si maximo mod 2 = 0 y minimo mod 2 <> 0 o minimo mod 2= 0 y maximo mod 2 <>0 Entonces Escribir " debe repetirse " ; FinSi FinProceso

Algoritmo 1 Escribir "ingrese el numero"; Leer n; Si N<>Trunc(N) Entonces Escribir 'El numero debe ser entero!'; Sino Si abs(N)>50 Entonces Escribir 'Resultado muy grande!'; Sino r<-1; f<-1; Mientras f<=abs(N) Hacer Si N<0 Entonces r<-(-f)*r; Sino r<-f*r; FinSi f<-f+1; FinMientras Escribir 'Factorial:',r; FinSi FinSi Fin proceso Algoritmo dos Proceso suma_numeros suma<-0; promedio<-0; n<-1; Mientras n<=5 Hacer Escribir "ingrese un numero "; leer num; suma<-suma+num; promedio<-suma/n; n<-n+1; FinMientras Escribir " el promedio es " promedio ; FinProceso Algoritmo tres Proceso algoritmo3 num<-0; n<-1; cont1<-0; cont2<-0; cont3<-0; Mientras n <= 50 Hacer Escribir " ingrese un numero " ; leer num; Si num < 0 Entonces cont1<-cont1+1; Sino Si num > 0 Entonces cont2<-cont2+1 Sino Si num = 0 Entonces cont3<-cont3+1 FinSi FinSi FinSi n<-n+1; FinMientras Escribir " los numeros menores que cero " cont1; Escribir " los numeros mayores que cero " cont2; Escribir " los numeros iguales que cero " cont3; FinProceso Algoritmo 4 Inicio max<-0; num<-0; n<-0; i<-0; Escribir "escriba la cantidad de numeros de la lista"; Leer n; Para i<-1 Hasta n Hacer Escribir "Escriba un numero"; Leer num; si num>max entonces max<-num; FinSi FinPara escribir "el numero mayor es: " max; FinProceso

Proceso juego n1<-0; c2<-0; c3<-0; rel<-0; Mientras n1<6 Hacer Escribir "SOLO SE ACEPTAN RESULTADOS DE 1 A 6"; Escribir "digite resultado del dado 1 y despues dado 2"; Leer dad,dad1; Si dad>6 y dad1>6 o dad<6 y dad1>6 o dad>6 y dad1<6 Entonces Escribir "Resultado no valido"; rel<-rel+1; Sino Si dad>3 y dad1<3 Entonces Escribir "Ganaste"; c3<-c3+1; Sino Escribir "Perdiste"; c2<-c2+1; FinSi FinSi n1<-n1+1; FinMientras Escribir "Numero de jugadores:",n1; Escribir "Total jugadores ganadores:",c3; Escribir "Total jugadores perdedores:",c2; Escribir "total jugadores descalificados:",rel; FinProceso mas algoritmo: http://algoritmoresuelto.blogspot.com/