PrOgRaMaCiiÖn

• Diseñar un algoritmo que muestre en pantalla un contador de 1 a 10.

Proceso contador_impar
Escribir "el contador de kathe es: "
contadorimpar<-0
Mientras contadorimpar<=10 Hacer
Escribir contadorimpar
contadorimpar<-contadorimpar+1
FinMientras
FinProceso

2. Diseñar un algoritmo que muestre por pantalla un contador de 2 en 2 hasta llegar a 100

Proceso contadorpar
 Escribir "el contador kathe de numeros pares  es: "
 contadorpar<-2
 Mientras contadorpar<=100 Hacer
 Escribir contadorpar;
 contadorpar<-contadorpar+2;
 FinMientras
 FinProceso

3.  Diseñe el algoritmo (ordinograma) de un programa que:

1º) Pida por teclado dos números (datos enteros).
2º) Calcule la suma y multiplicación de ambos números.
3º) Muestre por pantalla:

·         "La suma es mayor.", en caso de que sea mayor que la multiplicación de ambos números.

·         "La multpilicación es mayor.", en caso de que sea mayor que la suma de ambos números.

·         "La suma y multiplicación son iguales.", en caso de que así sea.

PSEUDOCODIGO

PROCESO OPERACIONES_DE_DOS_MUMEROS

Escribir “numero 1 entero”;

Leer  num1;

Escribir  “numero 2 entero”;

Leer num2;

Suma<-n1+n2;

Escribir “;el resultado de la suma es”;

Escribir suma;

Multi<-n1*n2;

Escribir “el resultado de ma multi es “;

Escribir multi;

Si (suma >multi) entonces

Ecribir “la suma es mayor”;

Fin si
si (multi>suma) Entonces
Escribir "La multiplicacion es mayor";
sino
si (multi=suma) Entonces
Escribir "Son iguales";
FinSi
finsi
FinProceso

    4.   Se quiere diseñar el algoritmo de un programa que:

1º) Pida por teclado la nota (dato real) de una asignatura.
2º) En el caso de que la nota sea incorrecta, muestre por pantalla el mensaje:

·         "ERROR: Nota incorrecta, debe ser >= 0 y <= 10".

3º) Repita los pasos 1º y 2º, mientras que, la nota introducida sea incorrecta.
4º) Muestre por pantalla:

·         "APROBADO", en el caso de que la nota sea mayor o igual que 5.

·         "SUSPENDIDO", en el caso de que la nota sea menor que 5.

 Proceso nota_de_asignatura
 escribir "nota real";
 leer nota;
 Mientras (nota <0 o nota>10) Hacer
 escribir "Error:nota incorrectadebe ser >=0y <=10";
 Escribir "la nota nueva";
 Leer nota;
 finmientras
 si nota >=5 Entonces
  Escribir "aprovado";
 Sino
 escribir "suspendido";
 FinSi


 FinProceso

      5. Diseñe el algoritmo (en pseudocódigo) de un programa que:

1º) Pida por teclado el radio (dato real) de una esfera.
2º) En el caso de que el radio sea menor o igual que 0, muestre por pantalla el mensaje:

·         "ERROR: El radio debe ser mayor que cero.".

3º) Repita los pasos 1º y 2º, mientras que, el radio introducido sea incorrecto.
4º) Muestre por pantalla:

·         "El área de una esfera de radio <radio> es: <área>".

Nota 1: Área de una esfera = 4 * pi * radio²

 Proceso AREA_DE_UNA_ESFERA
 escribir "el radio ";
 leer radio
 mientras radio <=0 hacer
 Escribir "error:el radio debe ser menor o igual";
 Escribir "introduzca otro valor del radio";
 leer radio
 FinMientras
 area<-4*3.1416*radio^2
 Escribir "el area de la esfera es"
 Escribir  area


FinProceso

 Proceso SUMA_NUM

 Repetir
 numsu<-0;
 acu<-0;
 rep<-1;
 Escribir "introdusca numero sumados";
 Leer numsu;
 Mientras rep<=numsu Hacer
 Escribir "introdusca un numero",rep;
 Leer num;
 acu<-acu+num;
 rep<-rep+1;
 FinMientras

 Escribir "el resultado de la suma es",acu;
 prom<-acu/rep;
 escribir "el promedio es",prom;
 Escribir "desea introducir mas numeros si/no";
 leer cont;

 Mientras cont="no" y cont="no" y cont="si" y cont="si" Hacer
 escribir "debes escribir si o no";
 Leer cont;
 FinMientras
 Hasta que cont="no" o cont="no";

FinProceso

cronometro

     Proceso cronometro

      horas<-0

      minutos<-0
      segundos<-0
      milisegundos<-0
      Leer i;

      Mientras Verdadero Hacer

      Mientras horas<24 Hacer
      Mientras minutos<60 Hacer
      Mientras segundos<60 Hacer
      Mientras milisegundos<2000 Hacer
      Si milisegundos=0 Entonces
      Escribir horas," ",minutos," ",segundos;
      Sino
      Si milisegundos=1000 Entonces
      Escribir horas,":",minutos,":",segundos;
      Sino

     FinSi

     FinSi
     milisegundos<-milisegundos+1;
     FinMientras
     milisegundos<-0;
     segundos<-segundos+1;
     FinMientras
      segundos<-0;
     minutos<-minutos+1;
     FinMientras
     minutos<-0;
     horas<-horas+1
     FinMientras
     horas<-0
     FinMientras

     FinProceso

Proceso datos_de_hotel

////*gran_hotel_el_soñador*////
////*diana villamarin*////
////*fecha: 1_julio_2011*////

 acuf<-0;

 acum<-0;
 acud<-0;
 acum<-0;
 f<-0;
 m<-0;
 dinero<-15000
 totaldinero<-0
 Escribir "BIENVENIDOS AL GRAN HOTEL EL SOÑADOR";
 Repetir
 escribir "intoduzca el nombre del usuario";
 Leer nombre;
  Escribir "introduzca el dias de hospedaje";
  Leer dias;
  Escribir "introdusca sexo (femenino f=0,masculino m=1)";
  Leer sexo;
  Si (sexo=1) Entonces
   acum<-acum+1;
   Sino
   acuf<-acuf+1;
  FinSi
  hue<-acum+acuf;
  Escribir "introduzca el numero de pieza que sera asignada";
  Leer pieza;
  Escribir "la pieza asignada es la numero;" ,pieza
  Escribir "los dias del usuario en el hotel son: ",dias;
  contador<-thos;
  para contador<-1 hasta 0 con paso 1 hacer
  contador<-contador+1
  escribir thos
  finpara

  escribir "seguira introduciendo mas datos (Si_No)?"
  leer rta
  Hasta que rta="no" o rta="No"
 Escribir "total de huespedes"  ,hue;
 Escribir "el numero de hombres es"  ,acum;
 Escribir "el numero de mujeres es" ,acuf;

 totaldinero<-hue*dinero
 Escribir "en el hotel se ha ingrasado"  ,totaldinero;
FinProceso