Programación III

Asignatura: Laboratorio de Programación III

Curso: 6° Informática

Profesora: Evangelina Rivero

Seguimos trabajando con Pseint!!

Ciclos: Para, Mientras y Repetir hasta

Material de trabajo desde el 01  hasta el 15 de Junio inclusive.

Actividades:

1) Continuamos trabajando con las funciones de repetición

2) Vamos a trabajar con el siguiente video: https://www.youtube.com/watch?v=Bj9skSSCcEA es muy importante que vayan realizando cada una de las actividades propuestas en el vídeo en sus computadoras y luego transcribirlas en las carpetas. Recuerden copiar también el diagrama de flujo.

3) Realizamos en las computadoras los siguientes ejercicios:

1) Hacer un algoritmo en Pseint para calcular el resto y cociente por medio de restas sucesivas.

Algoritmo Division_RestasSucesivas
 Definir n,d,resto,conta Como Entero;
 resto <- 0; conta <- 0;
 Escribir 'Numerador';
 Leer n;
 Escribir 'Denominador';
 Leer d;
 Repetir
  n <- n-d;
  resto <- n;
  conta <- conta+1;
 Hasta Que n<d
 Escribir 'El resto es: ',resto;
 Escribir 'El cociente es: ',conta;
FinAlgoritmo

Diagrama de flujo

Diagrama Nassi-Shneiderman

2) Hacer un algoritmo en Pseint para determinar la media de una lista indefinida de números positivos, se debe acabar el programa al ingresar un número positivo.

Algoritmo Suma_Numeros
 Definir n,media,conta Como Entero;
 Definir i Como Real;
 Escribir 'Ingrese un número';
 Leer n;
 media <- 0; conta <- 0; i <- 0;
 Mientras (n>=0) Hacer // El valor centinela es un número menor que cero
  media <- media+n;
  conta <- conta+1;
  Leer n; // mientra n sea mayorr que cero, el bucle continua     
 FinMientras
 i <- media/conta;
 Escribir 'La media es: ',i;
FinAlgoritmo

Diagrama de flujo

Diagrama Nassi-Shneiderman

3) Hacer un algoritmo en Pseint para calcular la suma de los primeros cien números con un ciclo repetir.

Algoritmo Suma_Numeros_Repetir
 Definir suma,conta Como Entero;
 conta <- 0; suma <- 0;
 Repetir
  conta <- conta+1;
  suma <- suma+conta;
 Hasta Que conta=100
 Escribir 'La suma es: ',suma;
FinAlgoritmo

Diagrama de flujo

4) Hacer un algoritmo en Pseint parar calcular la media de los números pares e impares, sólo se ingresará diez números.

Algoritmo media_Numeros
 Definir conta,conta1,conta2 Como Entero;
 Definir n,suma1,suma2,media1,media2 Como Real;
 conta <- 0; conta1 <- 0; conta2 <- 0;
 // conta 1 y 2 son los contadores de los números
 // positivos (conta1) y negativos (conta2)
 suma1 <- 0; suma2 <- 0;
 media1 <- 0; media2 <- 0;
 // Suma 1,2 y Media 1 y 2 también son
 // para los números positivos y negativos
 Repetir
  Leer n;
  Si (n>0) Entonces
   suma1 <- suma1+n;
   conta1 <- conta1+1;
  SiNo
   suma2 <- suma2+n;
   conta2 <- conta2+1;
  FinSi
  conta <- conta+1;
 Hasta Que conta=10
 media1 <- suma1/conta1;
 media2 <- suma2/conta2;
 Escribir 'La media de los números positivos es: ',media1;
 Escribir 'La media de los números negativos es: ',media2;
FinAlgoritmo

Diagrama de flujo

Diagrama Nassi-Shneiderman

5) Se quiere saber cuál es la ciudad con la población de más personas, son tres provincias y once ciudades, hacer un algoritmo en Pseint que nos permita saber eso.

Algoritmo Ciudad_Mayor_Poblacion
 Definir conta1, conta2,ciudad, _mayor  como Entero;
 conta1 <- 1;
 mientras (conta1 <= 3) Hacer
  _mayor <- 0;
  conta2 <- 1;
  Mientras (conta2 <= 11) Hacer
   Leer ciudad;
   si (ciudad > _mayor) entonces
    _mayor <- ciudad;
   FinSi
   conta2 <- conta2 + 1;
  FinMientras
  Escribir "La población mayor de la provincia ",conta1," es: ",_mayor;
  conta1 <- conta1 + 1;
 FinMientras
 
 
FinAlgoritmo

Diagrama de flujo

Diagrama Nassi-Shneiderman

6) Hacer un algoritmo en Pseint que permita al usuario continuar con el programa.

Algoritmo Leer_respuesta
 Definir respuesta como caracter;
 respuesta <- 's';
 Mientras (respuesta ='s') Hacer
  Escribir "¿Desea continuar?";
  Escribir "S/N";
  Leer respuesta;
 FinMientras
 
FinAlgoritmo

Diagrama de flujo

Diagrama Nassi-Shneiderman

7) Hacer un algoritmo en Pseint que imprima la tabla de multiplicar de los números del uno nueve.

Algoritmo Tabla_Multiplicar
 Definir i, j, producto Como Entero;
 para i <- 1 hasta 9 hacer
  Escribir "Tabla del ",i;
  para j <- 1 hasta 10 hacer
   producto <- i * j;
   Escribir i," por ",j," = ",producto;
  FinPara
 FinPara
 
FinAlgoritmo

Diagrama de flujo

Diagrama Nassi-Shneiderman

35. Hacer un algoritmo en Pseint que nos permita saber cuál es el número mayor y menor, se debe ingresar sólo veinte números.

Algoritmo Tabla_Multiplicar
 Definir i Como Entero;
 Definir max,min,num Como Real;
 Leer num;
 max <- num;
 min <- num;
 Para i<-1 Hasta 20 Hacer
  Leer num;
  Si (num>max) Entonces
   max <- num;
  FinSi
  Si (num<min) Entonces
   min <- num;
  FinSi
 FinPara
 Escribir 'El número menor es: ',min;
 Escribir 'El número mayor es: ',max;
FinAlgoritmo

Diagrama de flujo

Diagrama Nassi-Shneiderman