Post on 12-Jun-2015
SEMA
JUAN
EJ
Ingrel se
Mod End
ANA 4 MIE
N ALEJAN
JERCI
rese poregundo n
dule Mo Sub M D
C n
C n
p
C
C
End S
d Modul
ERCOLES 4
NDRO ROS
ICIOS
tecladonúmero e
odule1Main()Dim N1
Consoln1 = C
Consoln2 = C
promed
Consol
Consol
Sub
le
4 DE NOVI
SALES COR
S
o dos númes peso d
1 1, N2,
le.WritConsole
le.WritConsole
dio =
le.Writ
le.Read
IEMBRE DE
RONEL
meros, cdoble
prome
te("Ine.Read
te("Ine.Read
(N1 +
teLine
dKey()
E 2009
calcule y
dio As
grese Line
grese Line
2 * N2
(prome
visualice
s Doubl
el pri
el seg
2) / 3
edio)
e su pro
le
imer n
gundo
omedio sa
numero:
numero
GRUPO ID
DELEGA
abiendo
:")
o:")
DAT
ADO
que
SEMA
JUAN
Ingrreprtercboni
Mod Dou bon bon End
ANA 4 MIE
N ALEJAN
rese porresenta cera parificacion
dule Mo
Sub M Duble
C s
b r m
Cnificac Cnificac C
C
End S
d Modul
ERCOLES 4
NDRO ROS
r tecladel 25
rte de la y refrig
odule2
Main()Dim su
Consolsueldo
bonifirefrigmonto
Consolcion) Consolcion) Consol
Consol
Sub
le
4 DE NOVI
SALES COR
do el su% del sa bonificgerio. V
2
ueldo,
le.Writo = Con
icaciongerio == suel
le.Writ
le.Writ
le.Writ
le.Read
IEMBRE DE
RONEL
ueldo de sueldo ycacion; cisualizar
bonif
te("Innsole.R
n = 0.= bonildo + b
teLine
teLine
teLine
dKey()
E 2009
un tray calculecalcule er todos lo
icacio
grese ReadLi
25 * sficacibonifi
("La B
("La R
("La M
abajadore el reel monto os datos
on, ref
sueldoine
sueldoion / 3icacion
Bnifica
Refrige
Monto e
; calculeefrigerio que es s
friger
o:")
3 n + re
acion
erio e
es:" &
e la bo que rela suma
rio, mo
efriger
es:" &
es:" &
& monto
GRUPO ID
DELEGA
nificacioepresentaa del sue
onto A
rio
&
o)
DAT
ADO
on q’ a la eldo,
s
SEMA
JUAN
Una22.5recique
Mod End
ANA 4 MIE
N ALEJAN
herenc5% dev be el sareciben
dule Mo Sub M D
C h
A B C
C C C
C
End S
d Modul
ERCOLES 4
NDRO ROS
cia es rla heren
aldo: Ing cada pe
odule3Main()Dim he
Consolherenc
A = heB = A*C = he
ConsolConsolConsol
Consol
Sub
le
4 DE NOVI
SALES COR
repartidancia; la grese porersona.
3 erencia
le.Writcia = C
erencia* 3/5 erencia
le.Writle.Writle.Writ
le.Read
IEMBRE DE
RONEL
a entre segundar teclado
a, A, B
te("InConsol
a * 0.
a – A
teLineteLineteLine
dKey()
E 2009
3 persa recibe o la her
B, C A
grese e.Read
225
- B
("La p("La s("La t
sonas dolos 3/5 encia, c
As Doub
la herdLine
primerasegundatercera
onde: la de la palcule y
ble
rencia
a recia recia reci
a primerprimera y visualice
a:")
ibe:" &ibe:" &ibe:" &
GRUPO ID
DELEGA
ra recibey la tere los mo
& A) & B) & C)
DAT
ADO
e el cera ontos
SEMA
JUAN
Ingrempque neto
Mod End
ANA 4 MIE
N ALEJAN
rese porpresa ofr
es la do.
dule Mo Sub M D
C p
d d
s
C C
C End S
d Modul
ERCOLES 4
NDRO ROS
r tecladorece un diferenci
odule4Main()Dim Pr
Consolprecio
desc1 desc2
saldo
ConsolConsol
ConsolSub
le
4 DE NOVI
SALES COR
o el precdescuenia del p
4 recio,
le.Writo = Con
= prec= (pre
= prec
le.Writle.Writ
le.Read
IEMBRE DE
RONEL
cio de unnto del 2precio y
d1, d
te("Innsole.R
cio* 0ecio –
cio –
teLineteLine
dKey()
E 2009
na compu25 + 15el desc
2, sal
grese ReadLi
.25 d1) *
d1 – d
("Desc("sald
utadora;5%.. Calcuento.
ldo As
el preine()
* 0.15
d2
cuentosdo:" &
; por mecule el dVisualice
Doubl
ecio:"
s:" & Saldo
es de andescuente el des
le
)
d1 + do)
GRUPO ID
DELEGA
niversarioto y el scuento
d2)
DAT
ADO
o, la neto y el
SEMA
JUAN
Ingr
Visu
ab
Mod
End
ANA 4 MIE
N ALEJAN
rese por
ualice:
a) La sumb) El num
dule Mo Sub M D
C N
U D s N
C C
C End Sd Modul
ERCOLES 4
NDRO ROS
teclado
ma de cifmero expr
odule4Main()Dim Nu
ConsolNumero
UnidadDecenasuma =N1 = 10
ConsolConsol
ConsolSub le
4 DE NOVI
SALES COR
o un núm
fras resado e
4 umero,
le.Writo = Con
d = Numa = Num= unida0*unid
le.Writle.Writ
le.Read
IEMBRE DE
RONEL
ero de 2
en forma
Suma,
te("Innsole.R
mero Mmero \ad + ddad + d
teLineteLine
dKey()
E 2009
2 cifras
a invertid
N1, u
grese ReadLi
Mod 1010 ecenadecena
(Suma)(N1)
da
unidad
el Numine()
a
, dece
mero:"
ena As
)
GRUPO ID
DELEGA
Integ
DAT
ADO
er