0votos

Crear un Diccionario de 100 artículos. en Gambas

por Guizans hace 12 días

Mi solución escrita en Gambas.

Crea un diccionario con 100 artículos (A elegir, da igual la referencia) como claves y 10 precios decimales como valores. Da igual el lenguaje a usar.

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
' Gambas module file 
 
Private articulos As New String[100] 
Private precios As New Float[100] 
 
 
Public Sub Main() 
 
  Dim a As Byte 
  Dim precio_temp As Float 
   
  crear_articulos() 
   
  Print "Aplicando el descuesto del 10% a todos los artículos" 
  For a = 0 To 99 
    precio_temp = precios[a] - (precios[a] * 0.1) 
    precio_temp = Round(precio_temp, -2) 
    If precio_temp < 1.0 Then precio_temp = 1.12 
    Print "Artículo: " & articulos[a] & "    Precio anterior: " & precios[a] & "€" & "   Precio descuento: " & precio_temp & "€" 
  Next 
   
End 
 
Private Sub crear_articulos()  
   
  Dim a As Byte 
   
  Randomize 
   
  For a = 0 To 99 
    articulos[a] = "Ref 000" & a 
    precios[a] = Round(Rnd(0.20, 100.00), -2) 
  Next 
   
End 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.