Universidad Autónoma Gabriel René
Moreno
INGENIERIA EN CIENCIAS DE LA COMPUTACION Y
TELECOMUNICACIONES
PRACTICO 3
Materia: Introducción a la Informática
Docente: Angelica Garzón
Alumno: Ingrid Elizabeth Camacho Leaños
EJERCICIO2
Algoritmo PromedioYSumaMultiplos
// Declarar variables
Definir N, numero, sumaMultiplos2y4, cantidadMultiplos2y4, sumaMultiplos3y5, cantidadMultiplos3y5 Como
Entero
Definir promedioMultiplos3y5 Como Real
Definir contador Como Entero
// Inicializar variables
sumaMultiplos2y4 <- 0
cantidadMultiplos2y4 <- 0
sumaMultiplos3y5 <- 0
cantidadMultiplos3y5 <- 0
contador <- 1
// Leer cantidad de números a procesar
Escribir "Ingrese la cantidad de números a procesar:"
Leer N
// Leer y procesar los números
mientras contador <= N Hacer
Escribir "Ingrese el número ", contador, ":"
Leer numero
// Verificar si es múltiplo de 2 o 4
Si numero Mod 2 = 0 O numero Mod 4 = 0 Entonces
sumaMultiplos2y4 <- sumaMultiplos2y4 + numero
cantidadMultiplos2y4 <- cantidadMultiplos2y4 + 1
FinSi
// Verificar si es múltiplo de 3 o 5
Si numero Mod 3 = 0 O numero Mod 5 = 0 Entonces
sumaMultiplos3y5 <- sumaMultiplos3y5 + numero
cantidadMultiplos3y5 <- cantidadMultiplos3y5 + 1
FinSi
contador <- contador + 1
FinMientras
// Calcular promedio de los múltiplos de 3 y 5
Si cantidadMultiplos3y5 > 0 Entonces
promedioMultiplos3y5 <- sumaMultiplos3y5 / cantidadMultiplos3y5
Escribir "El promedio de los múltiplos de 3 y 5 es:", promedioMultiplos3y5
Sino
Escribir "No se ingresaron múltiplos de 3 y 5"
FinSi
// Mostrar suma de los múltiplos de 2 y 4
Escribir "La suma de los múltiplos de 2 y 4 es:", sumaMultiplos2y4
FinAlgoritmo
N Múltiplos de 2 y 4 Múltiplos de 3 y 5
(Suma) (Promedio)
5, 10, 15, 20, 25 Suma = 36 Promedio = 15
2, 3, 4, 5, 6 Suma = 6 Promedio = 4
1, 7, 11, 13, 17 Suma = 0 No se ingresaron
múltiplos de 3 y 5
EJERCICIO2
Algoritmo ejercicio2
Definir numero Como Entero
numero <- 3000
Mientras numero >= 100 Hacer
Si numero Mod 2 = 0 Entonces
Escribir numero
FinSi
numero <- numero - 1
FinMientras
FinAlgoritmo
Número
Par
3000
2998
2996
...
102
100
EJERCICIO3
Algoritmo ejercicio_3
Escribir 'ingrese la cantidad de numero'
Leer n
Mientras n=0 Hacer
Escribir 'Ingrese un numero mayor a cero'
Leer n
FinMientras
c=0
c2=0
a=0
a2=0
Escribir 'Iniciando proceso'
Mientras n>0 Hacer
Leer num
si num mod 4=0 Entonces
c=c+1
a=a+num
FinSi
si num mod 7=0 Entonces
c2=c2+1
a2=a2+num
FinSi
n=n-1
FinMientras
prom=0
si c>0 Entonces
prom=a/c
FinSi
prom2=0
si c2>0 Entonces
prom2=a2/c2
FinSi
Escribir 'el promedio de los multiplos de 4 es: ', ConvertirATexto(prom)
Escribir 'el promedio de los multiplos de 7 es: ', ConvertirATexto(prom2)
FinAlgoritmo
n num num mod num mod Salida= a2/c2(prom2) Salida=a/c(prom)
4=0
7=0
Múltiplos de 7 Múltiplos de 4
4 12 V F
21 F v Prom2=21 Prom=13
4 V F
20 V F
EJERCICIO4
Algoritmo ejercicio_4
Escribir 'ingrese la cantidad de numero'
Leer n
Mientras n=0 Hacer
Escribir 'Ingrese un numero mayor a cero'
Leer n
FinMientras
c=0
a=0
Escribir 'Iniciando proceso'
Mientras n>0 Hacer
Leer num
si num mod 2=1 Entonce
FinSi
n=n-1
FinMientras
prom=0
c=c+1
a=a+num
si c>0 Entonces
prom=a/c
FinSi
Escribir 'la suma de los numeros impares es: ', ConvertirATexto(a)
Escribir 'el promedio de los numeros impares es: ', ConvertirATexto(prom)
FinAlgoritmo
n num si num mod 2=1 Salida= suma (a) Salida=a/c(prom)
impares impares
4 12 F
25 v Suma=46 Prom=23
4 F
21 V
EJERCICIO5
Algoritmo ejercicio_5
Escribir 'ingrese la cantidad de numero'
Leer n
Mientras n=0 Hacer
Escribir 'Ingrese un numero mayor a cero'Leer n FinMientras a=''
Escribir 'Iniciando proceso'
Mientras n>0 Hacer
Leer num
si num>=150 y num<=550 y num mod 2=1 Entonces
a=Concatenar(a,Concatenar(', ',ConvertirATexto(num)))
FinSi
n=n-1
FinMientras
Escribir 'Los numeros impares entre 550 y 150 son: ', (a)
FinAlgoritmo
n num num>=150ynum<=550 num mod 2=1 'Los numeros impares entre
550 y 150 son:
4 12 F
165 V V 165
198 V F
89 F
EJERCICIO6
Algoritmo ejercicio_6
Escribir 'ingrese la cantidad de numero'
Leer n
Mientras n=0 Hacer
Escribir 'Ingrese un numero mayor a cero'
Leer n
FinMientras
pp=0,ne=0
ce=0 total=n
Escribir 'Iniciando proceso'
Mientras n>0 Hacer
Leer num
si num<>0 Entonces
si num>0 Entonces
po=po+1
SiNo
ne=ne+1
FinSi
SiNo
ce=ce+1
FinSi
n=n-1
FinMientras
pp=(po/total)*100
pn=(ne/total)*100
pc=(ce/total)*100
Escribir 'el porcentaje de los numeros positivos es: ', (pp)
Escribir 'el porcentaje de los numeros negativos es: ', (pn)
Escribir 'el porcentaje de los numeros neutros(0) es: ', (pc)
FinAlgoritmo
n num Si num>0 Si num<0 Si num=0 Porcentanje de números
pp=(po/total)*100
po=po+1 ne=ne+1 ce=ce+1 pn=(ne/total)*100
pc=(ce/total)*100
4 12 V F F Positivos(pp)= 50%
-1 F V F Negativos(pn)=25%
0 F F V Neutro(pc)=25%
20 V F F
EJERCICIO7
Algoritmo ejercicio_7
Escribir 'ingrese la cantidad de numero'
Leer n
Mientras n=0 Hacer
Escribir 'Ingrese un numero mayor a cero'
Leer n
FinMientras
c=0
c2=0
a=0
a2=0
Escribir 'Iniciando proceso'
Mientras n>0 Hacer
Leer num
si num <>0 Entonces
si num mod 2=0 Entonces
c=c+1
a=a+num
SiNo
c2=c2+1
c2=c2+1
FinSi
FinSi
n=n-1
FinMientras
prom=0
si c>0 Entonces
prom=a/c
FinSi
prom2=0
si c2>0 Entonces
prom2=a2/c2
FinSi
Escribir 'el promedio de los numeros pares es: ', ConvertirATexto(prom)
Escribir 'el promedio de los numeros impares es: ', ConvertirATexto(prom2)
FinAlgoritmo
n num num mod 2=0 num mod 2=1 Salida= a2/c2(prom2) Salida=a/c(prom)
c=c+1
a=a+num c2=c2+1 Impares Pares
c2=c2+1
4 12 V F
21 F V Prom2=14 Prom=8
4 V F
17 F V
EJERCICIO8
Algoritmo ejercicio_8
Escribir 'ingrese la cantidad de numero'
Leer n
Mientras n=0 Hacer
Escribir 'Ingrese un numero mayor a cero'
Leer n
FinMientras
c=0
c2=0
c3=0
Escribir 'Iniciando proceso'
Mientras n>0 Hacer
Leer num
si num mod 4=0 Entonces
c=c+1
FinSi
si num mod 7=0 Entonces
c2=c2+1
FinSi
si num mod 3=0 y num mod 5=0 Entonces
c3=c3+1
FinSi
n=n-1
FinMientras
Escribir 'la cantidad de multiplos de 4 es: ', ConvertirATexto(c)
Escribir 'la cantidad de multiplos de 7 es: ', ConvertirATexto(c2)
Escribir 'la cantidad de multiplos de 3 y 5 es: ', ConvertirATexto(c3)
FinAlgoritmo
n num num mod 4=0 num mod 7=0 num mod 3=0 Salida= Salida= Salida=
c=c+1 y num mod
c2=c2+1 5=0
C C2 C3
5 7 F V F
8 V F F 2 2 1
15 F F V
14 F V F
12 V F F
EJERCICIO9
Algoritmo ejercicio_9
Escribir 'ingrese la cantidad de numero'
Leer n
Mientras n=0 Hacer
Escribir 'Ingrese un numero mayor a cero'
Leer n
FinMientras
a=0
Escribir 'Iniciando proceso'
Mientras n>0 Hacer
Leer num
si num<a Entonces
Escribir num, ' num es menor que ', a
FinSi
a=num
n=n-1
FinMientras
FinAlgoritmo
n Num>0 num<a Salida=
5 7 F
5 V 5 es menor que 7
15 F
13 V 13 es menor que 15
12 V 12 es menor que 13
.
EJERCICIO10
Algoritmo ejercicio_10
Escribir 'ingrese la cantidad de numero'
Leer n
Mientras n=0 Hacer
Escribir 'Ingrese un numero mayor a cero'
Leer n
FinMientras
Escribir 'Iniciando proceso'
Leer num
may=num
men=num
Mientras n-1>0 Hacer
Leer num
si num>may Entonces
may=num
FinSi
si num<men Entonces
men=num
FinSi
n=n-1
FinMientras
Escribir 'El numero mayor del conjuto es: ', may
Escribir 'El numero menor del conjuto es: ', men
FinAlgoritmo
n Num num>may num<men 'El numero 'El numero menor del
may=num mayor del conjuto es: ', men
men=num may=num men=num conjuto es: ', may
n-1>0
5 7 F F
5 F V
15 V F 15 5
13 F F
12 F F
EJERCICIO11
Algoritmo ejercicio_11
Escribir "Inserte dia de la semana:"
leer n
si n >= 1 y n <= 7 Entonces si n= 1
Entonces
Escribir "Lunes"
FinSi
si n= 2 Entonces
Escribir "Martes"
FinSi
si n= 3 Entonces
Escribir "Miercoles"
FinSi
si n= 4 Entonces
Escribir "Jueves"
FinSi
si n= 5 Entonces
Escribir "Viernes"
FinSi
si n= 6 Entonces
Escribir "Sabado"
FinSi
si n= 7 Entonces
Escribir "Domingo"
FinSi
sino
Escribir "ERROR"
FinSi
n n >= 1 y N=1 N=2 N=3 N=4 N=5 N=6 N=7 Salida
n <= 7
3 5 F F F F V F F viernes
1 V F F F F F F lunes
6 F F F F F V F Sábado
EJERCICIO12
Algoritmo ejercicio_12
Escribir 'introdusca el tiempo que le tomo la maraton en minutos'
Leer min
Mientras min=0 Hacer
Escribir 'introdusca el tiempo que le tomo la maraton en minutos
mayor a (0)'
Leer min
FinMientras
d=40
v=d/(min/60)
Escribir 'la velocidad promedio es: ', v,' km/hrs'
FinAlgoritmo
Min v=d/(min/60)
Salida= v km/hrs'
d=40
v=40/(136/60)
136 17.65 km/hrs'
v=40/(112/60)
112 21.43 km/hrs'
EJERCICIO13
Algoritmo ejercicio_13
Escribir 'introdusca la temperatura en grados celsius'
Leer tem
Mientras tem=0 Hacer
Escribir 'introdusca la temperatura en grados celsius mayor a
(0)'
Leer tem
FinMientras
f=tem*(9/5) +32
Escribir 'La temperatura en grados Fahrenheit es: ', f,' °F'
FinAlgoritmo
tem f=tem*(9/5)
+32 Salida= f , °F'
f=t12*(9/5)
12 +32 53,6 °F'
f=42*(9/5) +32
42 107,6 °F'
EJERCICIO14
Algoritmo ejercicio_14
Escribir 'Escribirla altura del cilindro'
Leer h
Escribir 'escribir el radio del cilindro'
Leer r
Mientras h=0 y r=0 Hacer
Escribir 'introdusca la altura y el radio mayor a (0)'
Leer h
Leer r
FinMientras
a=2*2*3.1416*(r+h)
v=3.1416*r*r*h
Escribir 'el area del cilindro es:', a, 'cm2'
Escribir 'el volumen del cilindro es: ', v, 'cm3'
FinAlgoritmo
h r Volumen Área Salida Salida de
v=3.1416*r*r*h a=2*2*3.1416*(r+h) volumen cm3 área cm2
5 v=3.1416*5*5*10 a=2*2*3.1416*(5+10) 785.4cm3
10 188,50cm2
7 v=3.1416*7*7*20 a=2*2*3.1416*(7+20) 3078,77cm3
20 339.29cm2
EJERCICIO15
Algoritmo ejercicio_15
Escribir 'ingrese la cantidad de numero'
Leer num
si num mod 6=0 y num mod 9=0 Entonces
Escribir 'este numero es multiplo de 6 y 9'
SiNo
Escribir 'este numero no es multiplo de 6 y 9'
FinSi
FinAlgoritmo
num Salida
num mod 6=0 y num mod 9=0
F Escribir 'este numero no es
12 multiplo de 6 y 9'
V
18 Escribir 'este numero es
multiplo de 6 y 9'
EJERCICIO16
Algoritmo ejercicio_16
Escribir 'ingrese 3 numeros'
Leer a,b,c
si a>b Entonces
si a>c Entonces
Escribir 'el numero ', a , ' es el mayor de los 3'
FinSi
FinSi
si b>a Entonces
si b>c Entonces
Escribir 'el numero ',b, ' es el mayor de los 3'
FinSi
FinSi
si c>b Entonces
si c>a Entonces
Escribir 'el numero ',c, ' es el mayor de los 3'
FinSi
FinSi
FinAlgoritmo
Na Nb Nc Si a>b y a>c Si b>a y b>c Si c>a y c>b salida
15 100 F F V El numero 100 es
10 el mayor de los 3
145 65 F V F El numero 145 es
20 el mayor de los 3
56 12 F V F El numero 56 es
5 el mayor de los 3
GENERAR Y MOSTRAR LOS TERMINOS DE LAS SIGUIENTES
SERIE
1) var
n, c: integer;
begin n c c<=n pantalla
writeln('Ingrese Numero'); 4 1v 1
readln(n); 2v 2
c := 1; 3v 3
4v 4
while c <= n do
5f 5
begin
writeln(c);
c := c + 1;
end;
end.
2) var
n c c hasta n pantalla
n, c: integer;
4 1v 2
begin 2v 4
writeln('Ingrese Numero'); 3v 6
readln(n); 4f 8
for c := 1 to n do
begin
writeln(c * 2);
end;
end.
3)
var
a, b, s: integer;
a b b hasta a s pantalla
begin 5 1v 1 1
writeln('Ingrese 2v 2 2
numero'); 3v 4 4
4v 8 8
readln(a);
5v 16 16
s := 1; 6f
for b := 1 to a do
begin
writeln(s);
s := s * 2;
end;
end.
4)
var n aux c c<=n s pantalla
n, aux, s, c: integer; 5 3 1v 1 1
begin 5 2v 4 4
7 3v 9 9
writeln('Ingrese n');
9 4v 16 16
readln(n);
11 5v 25 25
aux := 3;
6f
s := 1;
c := 1;
while c <= n do
begin
writeln(s);
c := c + 1;
s := s + aux;
aux := aux + 2;
end;
end.
5)
var n s c c<=n pantalla
n, s, c: integer; 7 1 1v 1
begin 4 2v 4
writeln('Ingrese numero'); 7 3v 7
10 4v 10
readln(n);
13 5v 13
s := 1;
16 6v 16
c := 1;
19 7v 19
while c <= n do
8f
begin
writeln(s);
s := s + 3;
c := c + 1;
end;
end.
