Ejercicios y códigos de la Guía 2
INDICACIONES: A continuación se
presenta una serie de ejercicios se solicita desarrollarlos de manera ordenada,
haga uso de vectores ciclos y valide los datos. Cada ejercicio debe contar con
la opción de repetir las acciones; además validar el ingreso de los datos cuando
sean numéricos. Se entregaran los ejercicios en una carpeta con caratula.
Resultados idénticos con otros grupos anulara la nota del ejercicio.
1. Realizar un programa que genere 100
números, y luego me indique una lista de opciones de lo que quiero obtener si
son los números primos, los pares e impares. Al seleccionar cualquiera de estas
opciones me debe generar el resultado deseado, además, debe mostrar la opción
de repetir el ejercicio.
2. Realice un programa que permita al
usuario elegir entre varios ejercicios:
a) Calcular el área de una esfera.
b) Calcular el perímetro de un
círculo.
c)
Determinar el área de un cubo.
Para
solucionar este ejercicio debe tomar en cuenta lo siguiente:
Todas las medidas requeridas para
el usuario deben ser en milímetros.
Las respuestas deben mostrarse en
centímetros, centímetros cuadrados o centímetros cúbicos dependiendo del
ejercicio.
Al mostrar el resultado, debe de
inmediato volver a mostrar el menú con las opciones y también ofrecer la opción
salir.
3. La comercial BUENO, BONITO Y BARATO
desea un programa que le permita ingresar el nombre del cliente, además ingrese
el precio individual y el total de unidades de un listado de X productos
comprados. Además debe generar al final el precio Total a pagar.
4.
Realice un programa que permita ingresar un listado de 3 notas, a 12
estudiantes de la carrera de ingeniería en sistemas ciclo I, las notas corresponden
a laboratorio 1 y 2 que equivalen al 30% cada una, así mismo al parcial final.
También
debe generar:
El nombre del estudiante que tenga la nota máxima
Guia2
Proceso
Ejercicio1
Definir x,a,b,c como enteros;
Definir op como cadena;
Escribir "operaciones";
Escribir "Para los Numeros pares 1
";
Escribir "Para los Numeros impares
2 ";
Escribir "Para los Numeros primos
3 ";
Repetir
Escribir "que operacion
desea realizar";
leer op;
Hasta Que op = "1"|op =
"2"|op = "3"
si op = "1" entonces
Para x<-2 Hasta 100 Con
Paso 2 Hacer
Escribir "
pares ", x;
FinPara
sino
si op="2" Entonces
Para x<-1 Hasta 100 Con Paso 2 Hacer
Escribir "
impares ", x;
FinPara
sino
si op="3"
Entonces
Para
a<-1 Hasta 100 Con Paso 1 Hacer
c<-0;
Para
b<-1 Hasta a Con Paso 1 Hacer
Si
a%b=0 Entonces
c<-c+1;
FinSi
FinPara
si
c = 2 entonces
Escribir
a;
FinSi
FinPara
finsi
finsi
FinSi
FinProceso
Proceso
Ejercicio2
Definir opc como entero;
Definir continuar como cadena;
Definir area, esfera, radio, perimetro,
lado Como Real;
Repetir
Escribir "Calcular el área de una
esfera PRESIONE*1";
Escribir "Calcular el perímetro de
un círculo PRESIONE*2";
Escribir "Determinar el área de un
cubo PRESIONE*3";
Leer opc;
Segun opc Hacer
1:
Escribir
"Ingrese el radio de la esfera: ";
Leer radio;
area<-4*Pi*(radio*radio);
Escribir "Area
es igual a: ", area, "m^2";
2:
Escribir
"Ingrese el radio del círculo: ";
Leer radio;
perimetro<-Pi*(radio
* 2);
Escribir
"Perimetro es igual a: ", perimetro, "cm";
3:
Escribir
"Ingrese el valor de uno de sus lados en centimetros";
Leer lado;
area<-6 *
(lado*lado);
De Otro Modo:
Escribir "Valor
invalido";
FinSegun
Escribir "Desea continuar? Si/No
";
Leer continuar;
Hasta
Que continuar = "No" || continuar = "no"
FinProceso
Proceso
comercial
definir a,precio,unidades como real;
definir b como cadena;
escribir "ingrese Producto";
leer b;
escribir "ingrese precio
individual";
leer precio;
escribir "total unidades";
leer unidades;
a<-precio*unidades;
escribir "total apagar es $",
a;
FinProceso
Proceso
Ejer5
Definir cantidad, a,b,c como entero;
Definir seguir como cadena;
Repetir
Escribir "Ingrese la cantidad de
libros a manejar: ";
Leer cantidad;
b<-cantidad + 1;
Dimension Libros[b,5];
a<-1;
Para a<-1 Hasta cantidad Con Paso 1
Hacer
Escribir "Ingrese
título";
Leer Libros[a,1];
Escribir "Ingrese
autor";
Leer Libros[a,2];
Escribir "Ingrese
nombre";
Leer Libros[a,3];
Escribir "Ingrese año de
edición";
Leer Libros[a,4];
Escribir "Ingrese codigo
del libro";
Leer Libros[a,5];
FinPara
Para a<-1 Hasta cantidad Con Paso 1
Hacer
Para b<-1 Hasta cantidad
Con Paso 1 Hacer
Si Libros[a,4] <
Libros[b,4] Entonces
Para
c<-1 Hasta 5 Con Paso 1 Hacer
Libros[b,
b]<- Libros[a,c];
Libros[a,c]
<- Libros[b,c];
Libros[b,
c]<-Libros[b, b];
Fin Para
FinSi
FinPara
FinPara
Para a<-1 Hasta cantidad Con Paso 1
Hacer
Escribir "Titulo",
Libros[a,1], "Autor", Libros[a,2], "Nombre", Libros[a,3],
"Edición", Libros[a,4], "Codigo", Libros[a,5];
Fin Para
Escribir "Desea continuar
Si/No";
Leer seguir;
Hasta
Que seguir = "no" || seguir = "No" || seguir =
"NO";
FinProceso
Proceso
inpares
definir impar como entero;
escribir "numeros impares";
Para impar<-99 Hasta 1 Con Paso -2
Hacer
escribir "impar";
FinPara
FinProceso
Proceso
multiplos
Definir a,b,c como entero;
Escribir "hasta que numeros
quieres generar los multiplos";
leer a;
Escribir "multiplos de 7";
leer b;
Para c<-1 Hasta a Con Paso 1 Hacer
si c%b=0 entonces
escribir c;
FinSi
FinPara
FinProceso
Proceso
Ejerc8
definir a,b,c Como Entero;
b<-0;
c<-0;
Para a<-1 Hasta 1000 Con Paso 1
Hacer
b<-a*a;
Si a < 100 Entonces
c<-c + b;
Escribir b;
FinSi
FinPara
Escribir "Sumatoria: ", c;
FinProceso
Proceso
Romanos
Definir Numero como Numerico;
Escribir "Ingrese un número entre
1 y 1000";
Leer Numero;
Definir SePuedeConvertir Como Logico;
SePuedeConvertir<-Verdadero;
Si Numero=0 Entonces
Escribir "No existe
ningún símbolo para representar el 0";
SePuedeConvertir<-Falso;
FinSi
Si Numero<>trunc(numero) Entonces
Escribir "El número debe
ser entero";
SePuedeConvertir<-Falso;
FinSi
Si Numero>1000 Entonces
Escribir "Muy
alto";
SePuedeConvertir<-Falso;
FinSi
Si Numero<0 Entonces
Escribir "Debe ser
positivo";
SePuedeConvertir<-Falso;
FinSi
Si SePuedeConvertir Entonces
Si Numero=1000 Entonces
Escribir
"M";
Sino
Dimension nu[10],
nd[10], nc[10];
Definir nu,nd,nc
Como Caracter;
nu[0]<-'';
nu[1]<-'I'; nu[2]<-'II'; nu[3]<-'III'; nu[4]<-'IV'; nu[5]<-'V';
nu[6]<-'VI'; nu[7]<-'VII'; nu[8]<-'VIII'; nu[9]<-'IX';
nd[0]<-'';
nd[1]<-'X'; nd[2]<-'XX'; nd[3]<-'XXX'; nd[4]<-'XL'; nd[5]<-'L';
nd[6]<-'LX'; nd[7]<-'LXX'; nd[8]<-'LXXX'; nd[9]<-'XC';
nc[0]<-'';
nc[1]<-'C'; nc[2]<-'CC'; nc[3]<-'CCC'; nc[4]<-'CD'; nc[5]<-'D';
nc[6]<-'DC'; nc[7]<-'DCC'; nc[8]<-'DCCC'; nc[9]<-'CM';
Definir
centenas,decenas,unidades como numeros;
centenas<-trunc(Numero/100)
% 10;
decenas<-trunc(Numero/10)
% 10;
unidades<-Numero
% 10;
Escribir
nc[centenas],nd[decenas],nu[unidades];
FinSi
FinSi
FinProceso
Proceso
PLANILLA_DE_PAGO
Definir nombre como cadena;
definir sueldo,isss,afp,renta,total
Como Real;
Definir a Como Entero;
a<-1;
Mientras a<=15 Hacer
a<-a+1;
Escribir "Ingrese
nombre";
leer nombre;
escribir "ingrese
sueldo";
leer sueldo;
renta<-sueldo*0.10;
Escribir "la renta es
", renta;
isss<-sueldo*0.03;
Escribir "el isss es
", isss;
afp<-sueldo*0.0625;
Escribir "el afp es
", afp;
total<-(sueldo-renta-isss-afp);
Escribir "El sueldo es
", total;
FinMientras
FinProceso
Proceso
Ejerc11
Dimension Capital[7,2];
Capital[1,1]<-"Belice";
Capital[2,1]<-"Costa
Rica";
Capital[3,1]<-"El
Salvador";
Capital[4,1]<-"Guatemala";
Capital[5,1]<-"Honduras";
Capital[6,1]<-"Nicaragua";
Capital[7,1]<-"Panamá";
Para a<-1 Hasta 7 Con Paso 1 Hacer
Escribir "Ingrese la
capital de: ", Capital[a,1];
Leer Capital[a,2];
FinPara
Para a<-7 Hasta 1 Con Paso -1 Hacer
Escribir "País: ",
Capital[a,1], " Capital: ", Capital[a,2];
FinPara
FinProceso
Proceso
Ejerc14
Definir renta, retencion, porc, sueldo
como real;
Dimension Empleado[20,2];
Para a<-1 Hasta 20 Con Paso 1 Hacer
Escribir "Ingrese el
sueldo del empleado ", a;
Leer Empleado[a,1];
Fin Para
Para a<-1 Hasta 20 Con Paso 1 Hacer
Si Empleado[a,1] > 472.01
& Empleado[a,1] < 710.94 Entonces
Empleado[a,2]<-
16.92 + 0.10*(Empleado[a,1] - 472);
Sino Si Empleado[a,1] >
710.95 & Empleado[a,1] < 912.17 Entonces
Empleado[a,2]<-
38.76 + 0.10*(Empleado[a,1] - 710.94);
Sino Si
Empleado[a,1] > 912.18 & Empleado[a,1]<1945.50 Entonces
Empleado[a,2]<-
58.89 + 0.20*(Empleado[a,1] - 912.17);
Sino Si
Empleado[a,1] > 1945.51 Entonces
Empleado[a,2]<-
265.56 + 0.30*(Empleado[a,1] - 1945.50);
Sino
si Empleado[a,1] < 472.00 Entonces
Empleado[a,2]<-
0;
FinSi
FinSi
FinSi
Fin Si
Fin si
Fin Para
Para a<-1 Hasta 20 Con Paso 1 Hacer
Escribir "Empleado
", a, " Salario: ", Empleado[a,1], " Renta: ",
Empleado[a,2];
Fin Para
FinProceso
Proceso
cuadrados
definir contador,elnum,cuadrado como
entero;
definir espacio como cadena;
cuadrado<-0;
espacio<-"=";
Para contador<-1 Hasta 100 Con Paso
1 Hacer
cuadrado<-contador*contador;
escribir
contador,espacio,cuadrado;
FinPara
FinProceso
No hay comentarios.:
Publicar un comentario