Trab

Ejercicios de Algoritmos con Repetitivas

1) Se debe realizar un muestreo con 50 personas para determinar el promedio de peso de los niños, jóvenes, adultos y viejos que existen en su zona habitacional. Se determinan las categorías así:
CATEGORIA EDAD
Niños 0 - 12
Jóvenes 13 - 29
Adultos 30 - 59
Viejos 60 en adelante

Module Module1

SubMain()
Console.WriteLine(" PROGRAMA : CALCULAR EL PORCENTAJE ENTRE NIÑOS ,JOVENES ,ADULTOS Y VIEJOS, QUE HAY EN 50 PERSONAS")
Console.WriteLine()
Console.WriteLine()
Console.WriteLine()

Dim i, edad, cnene, cjoven, cadulto, cviejo, CPN, CPJ, CPA, CPV As Integer
Dim tcnene, tcjoven, tcadulto, tcviejo, p AsDouble

For i = 1 To 10

Console.WriteLine(" NOTA : SI LA PERSONA TIENE MENOS DE UN AÑO DE VIDA INGRESE 0 EN SU EDAD")
Console.WriteLine()
Console.WriteLine()
Console.WriteLine()

Console.WriteLine("digite la edad en años ")
edad = Console.ReadLine

Console.WriteLine("DIGITE PESO EN KILOGRAMOS")P = Console.ReadLine
Console.WriteLine()
Console.WriteLine()

If edad = 0 Then
cnene = cnene + 1
CPN = CPN + P
Else
If edad >= 13 And edad = 30 And edad = 60 Then
cviejo = cviejo + 1
CPV = CPV + P
ElseConsole.WriteLine(" numero no valido")
Console.WriteLine()
Console.WriteLine()
Console.WriteLine()

End If
End If
End If
End If

Next

tcnene = CPN / cnene
tcjoven = CPJ /cjoven
tcadulto = CPA / cadulto
tcviejo = CPV / cviejo
Console.WriteLine(" el porcentaje del peso de los niños es:{0}", tcnene)
Console.WriteLine()
Console.WriteLine()
Console.WriteLine()

Console.WriteLine(" el porcentaje del peso de los jovenes es : {0}", tcjoven)
Console.WriteLine()
Console.WriteLine()Console.WriteLine()

Console.WriteLine(" el porcentaje del peso de los adultos es : {0}", tcadulto)
Console.WriteLine()
Console.WriteLine()
Console.WriteLine()

Console.WriteLine(" el porcentaje del peso de los viejos es : {0}", tcviejo)
Console.Read()

End Sub

End Module

[pic]

[pic]

2) Al cerrar un expendio de naranjas, 15clientes que aún no han pagado recibirán un 15% de descuento si compran más de 10 kilos. Determinar cuánto pagará cada cliente y cuánto percibirá la tienda por compras.

Module Module1

Sub Main()
Dim suma, i, k, pk, p, desc, tp As Integer
suma = 0
i = 1
For i = 1 To 15
Console.WriteLine("digite numero de kilos")
k =Console.ReadLine
Console.WriteLine("digite precio del kilo")
pk = Console.ReadLine
If k > 10 Then
p = k * pk
desc = p * 0.15
tp = p - desc

Console.WriteLine("el total apagar por el cliente es")
Console.WriteLine(tp)
Console.ReadLine()

Elsetp = k * pk

Console.WriteLine("el total apagar por el cliente es")
Console.WriteLine(tp)
Console.ReadLine()

End If
suma = suma + tp
Next
Console.WriteLine("la ganancia que recibira el almacen es de")
Console.WriteLine(suma)
Console.ReadLine()

Console.ReadLine()...