Programa en gWbasic.
Publicado por m.a. (7 intervenciones) el 14/05/2018 17:33:00
10 Dim A4 (4,3)
20 For X = 1 to 4
30 For Y = 1 to 3
40 Read A$ (X,Y)
50 Next Y
60 Next X
70 Print Tab (5) " Articulo " ; Tab (40) " Cantidad " ; Tab (60) " Precio " ; Print
80 While
90 N = N+1 : Print Tab (5) A$ (N,1) ; Tab (40) A$ (N,2) ; Tab (60) A$ (N,3)
100 Wend : End
110 Data Material, 100, Compresores, 45,
120 Data Bombillas, 14, Bumpers, 67,
130 Input A$ " Quieres Repetir "
140 If A$ "SI" Then Goto 10
150 End
20 For X = 1 to 4
30 For Y = 1 to 3
40 Read A$ (X,Y)
50 Next Y
60 Next X
70 Print Tab (5) " Articulo " ; Tab (40) " Cantidad " ; Tab (60) " Precio " ; Print
80 While
90 N = N+1 : Print Tab (5) A$ (N,1) ; Tab (40) A$ (N,2) ; Tab (60) A$ (N,3)
100 Wend : End
110 Data Material, 100, Compresores, 45,
120 Data Bombillas, 14, Bumpers, 67,
130 Input A$ " Quieres Repetir "
140 If A$ "SI" Then Goto 10
150 End
Valora esta pregunta
0