Programando paso a paso (Y)



Operadores y Expresiones
expresiones

Operadores y expreciones


PROGRAMAS EN PSeInt

AREA DE UN CIRCULO
Proceso area_del_circulo
Escribir "Area del trapecio";
Escribir "Ingrese el valor de la Base mayor";
Leer  Base_mayor;
Escribir "Ingrese el valor de la Base mayor";
Leer Base_menor;
Escribir "Ingrese el valor de la altura";
Leer altura;
area<-(Base_mayor+Base_menor) /2*altura;
Escribir "El area del trapecio es:",area ;
FinProceso

El programa tendrá el siguiente resultado


OPERACIONES BÁSICAS
Proceso Operaciones_Basicas
Escribir "Ingrese un numero entero";
Leer  Numero_A;
Escribir "Ingrese otro numero entero";
Leer Numero_B;
suma<-Numero_A + Numero_B;
Escribir "resultado de la suma""  ",suma;
Escribir "   ";
resta<-Numero_A - Numero_B;
Escribir "resultado de la resta""  ",resta;
Escribir "   ";
multiplicacion<-Numero_A * Numero_B;
       Escribir "resultado de la multiplicacion""  " ,multiplicacion;
Escribir "   ";
divicion<-Numero_A / Numero_B;
Escribir "resultado divicion""  ",divicion;
Escribir "   ";
restodeladivision<-Numero_A MOD Numero_B;
Escribir "resultado del restante de la divicion""  ",restodeladivion;
Escribir "   ";
Escribir "Gracias por usar el programa";
Fin Proceso




Condicional del SI


Proceso Suma_o_Multiplicacion_de_dos_numeros
Escribir "Escriba un numero entero";
Leer numero1;
Escribir "Escriba otro numero entero";
Leer numero2;
suma<-numero1+numero2;
multiplicacion<-numero1*numero2;
Escribir "La suma es:",suma;
Escribir "   ";
Escribir "La multiplicacion es:",multiplicacion;
Escribir "  ";
Si suma>multiplicacion Entonces
Escribir "La suma es mayor.";
Sino
Si suma<multiplicacion Entonces
Escribir "La suma es menor que la multiplicacion";
Sino
Escribir "La suma y la multiplicacion son iguales";
FinSi
FinSi
FinProceso 


Condicional   Según


Proceso Signos_del_Zodiaco
Escribir "LISTADO DE SIGNOS DEL ZODIACO";
Escribir "1. Aries";
Escribir "2. Tauro";
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 "Por favor escriva el numero de su signo";
Leer Numero;
Segun Numero Hacer
1,5,9:
Escribir "El signo esta asociado a la categoria del Fuego";
2,6,10:
Escribir "El signo esta asociado a la categoria del Tierra";
3,7,11:
Escribir "El signo esta asociado a la categoria del Aire";
4,8,12:
Escribir "El signo esta asociado a la categoria del Agua";
De Otro Modo:
Escribir "El numero que usted indrodujo no esta asociado a nunguna categoria";
FinSegun

Si Numero>13 Entonces
Escribir "Error  "  , Numero,    "   No esta asociado a ningun signo";
FinSi
FinProceso

                                          Al ejecutar




Proceso tabla_de_multiplicar
tabla<-0;
respuesta<-0;
on<-'s';
contador<-0;
Mientras on='s' Hacer
Escribir "Que tabla desea multiplicar";
Leer tabla;
Escribir "La tabla de multi´licar del  ",tabla,"  es:";
Para contador<-1 Hasta 15 Con Paso 1 Hacer
respuesta<-tabla*contador;
Escribir tabla,"  por " ,contador, " igual a ", respuesta;
FinPara
Escribir "Para continuar escriba s/n";
Leer on;
FinMientras
Escribir "Gracias tao";
FinProceso
                                                                 Al ejecutar


Condicional Para
                                         
Proceso progama
Para numero<-1 Hasta 100 Con Paso 5 Hacer
Escribir numero;
FinPara
FinProceso                                                   Al Ejecutar


Condicional Mientras



Proceso condicional_mientras
contador<-2;
Mientras (contador<102) Hacer
Escribir "",contador;
contador<-contador+2;
FinMientras
FinProceso                                                  Al ejecutarce

Hay 2 formas de hacerlo


1.
Proceso promedio

Escribir "Ingrese un numero";
Leer numero1;
Escribir "ingrese otro numero";
Leer numero2;
promedio<-(numero1+numero2)/2;
Escribir "El promero es:",promedio;
Escribir "Desea continuar oprima 0, para terminar escriba 1";
Leer numero;
Mientras numero=0 Hacer
Escribir "Ingrese un numero";
   Leer numero1;
   Escribir "ingrese otro numero";
   Leer numero2;
promedio<-(numero1+numero2)/2;
   Escribir "El promero es:",promedio;
Escribir "Desea continuar oprima 0, para terminar escriba 1";
Leer numero;
FinMientras
   Escribir "Grasias por utilizar el programa";
FinProceso 

2.
Proceso promedio
numero<-0;
Mientras numero=0 Hacer
Escribir "Ingrese un numero";
   Leer numero1;
   Escribir "ingrese otro numero";
   Leer numero2;
promedio<-(numero1+numero2)/2;
   Escribir "El promero es:",promedio;
Escribir "Desea continuar oprima 0, para terminar escriba 1";
Leer numero;
FinMientras
   Escribir "Grasias por utilizar el programa";
FinProceso 









Condicional Para


Proceso tabla_de_multiplicar
tabla<-0;
respuesta<-0;
on<-'s';
contador<-0;
operacion<-'';
Escribir "Si desea multiplicar escriba m. Si desea dividir escriba d";
        Leer operacion;
Si operacion='m' Entonces

Mientras on='s' Hacer
Escribir "Que tabla desea multiplicar";
Leer tabla;
Escribir "La tabla de multi´licar del  ",tabla,"  es:";
Para contador<-1 Hasta 15 Con Paso 1 Hacer
respuesta<-tabla*contador;
Escribir tabla,"  por " ,contador, " igual a ", respuesta;
FinPara
Escribir "Para continuar escriba s/n";
Leer on;
FinMientras
Sino

Mientras on='s' Hacer
Escribir "Que tabla desea dividir";
Leer tabla;
Escribir "La tabla de multi´licar del  ",tabla,"  es:";
Para contador<-1 Hasta 15 Con Paso 1 Hacer
respuesta<-tabla/contador;
Escribir tabla," dividido " ,contador, " igual a ", respuesta;
FinPara
Escribir "Para continuar escriba s/n";
Leer on;
FinMientras
FinSi
Escribir "Gracias tao";
FinProceso

                                              Al ejecutar
Para Multiplicar

                                                        Para Dividir

1 comentario: