Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Algoritmia » ventas

Algoritmia - ventas

Volver
Nuevo Tema
<<>>
 
Vista:

ventas

Publicado por nadia (3 intervenciones) el 12/01/2023 03:38:31
Se necesitan realizar controles de stock de discos duros de diferentes capacidades, es necesario ingresar el stock inicial de al menos 3 modelos, y la cantidad de ventas a realizar, en cada egreso se deberá registrar los modelos de discos duros a descontar del stock, es necesario informar cantidad de ventas totales, cantidad de discos duros por modelos y stock sobrante de cada uno de los modelos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 28
Ha aumentado 1 puesto en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

ventas

Publicado por Horroroso (32 intervenciones) el 02/02/2023 00:06:06
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Module MainModule
    Sub Main()
        Dim model1 As Integer
        Dim model2 As Integer
        Dim model3 As Integer
        Dim sales As Integer
        Dim totalSales As Integer = 0
        Dim model1Sold As Integer = 0
        Dim model2Sold As Integer = 0
        Dim model3Sold As Integer = 0
        Console.WriteLine("Ingrese el stock inicial para el modelo 1:")
        model1 = Integer.Parse(Console.ReadLine())
        Console.WriteLine("Ingrese el stock inicial para el modelo 2:")
        model2 = Integer.Parse(Console.ReadLine())
        Console.WriteLine("Ingrese el stock inicial para el modelo 3:")
        model3 = Integer.Parse(Console.ReadLine())
        Console.WriteLine("Ingrese la cantidad de ventas a realizar:")
        sales = Integer.Parse(Console.ReadLine())
        For i As Integer = 1 To sales
            Console.WriteLine("Ingrese la cantidad de discos duros del modelo 1 a vender en la venta " & i & ":")
            Dim model1Sale As Integer = Integer.Parse(Console.ReadLine())
            Console.WriteLine("Ingrese la cantidad de discos duros del modelo 2 a vender en la venta " & i & ":")
            Dim model2Sale As Integer = Integer.Parse(Console.ReadLine())
            Console.WriteLine("Ingrese la cantidad de discos duros del modelo 3 a vender en la venta " & i & ":")
            Dim model3Sale As Integer = Integer.Parse(Console.ReadLine())
            model1 -= model1Sale
            model1Sold += model1Sale
            model2 -= model2Sale
            model2Sold += model2Sale
            model3 -= model3Sale
            model3Sold += model3Sale
            totalSales += model1Sale + model2Sale + model3Sale
        Next
        Console.WriteLine("Cantidad total de ventas: " & totalSales)
        Console.WriteLine("Cantidad de discos duros vendidos del modelo 1: " & model1Sold)
        Console.WriteLine("Cantidad de discos duros vendidos del modelo 2: " & model2Sold)
        Console.WriteLine("Cantidad de discos duros vendidos del modelo 3: " & model3Sold)
        Console.WriteLine("Stock sobrante del modelo 1: " & model1)
        Console.WriteLine("Stock sobrante del modelo 2: " & model2)
        Console.WriteLine("Stock sobrante del modelo 3: " & model3)
    End Sub
End Module

Este código le permite al usuario ingresar el stock inicial de al menos 3 modelos de discos duros y la cantidad de ventas a realizar. Luego, usa un bucle For para registrar la cantidad de discos duros a descontar del stock en cada venta. Finalmente, imprime la cantidad total de ventas, la cantidad de discos duros vendidos por modelo, y el stock sobrante de cada modelo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar