Ejercicio
5
SEMA JUAN EJ Ingr el se Mod End ANA 4 MIE N ALEJAN JERCI rese por egundo n dule Mo Sub M D C n C n p C C End S d Modul ERCOLES 4 NDRO ROS ICIOS teclado número e odule1 Main() Dim N1 Consol n1 = C Consol n2 = C promed Consol Consol Sub le 4 DE NOVI SALES COR S o dos núm es peso d 1 1, N2, le.Writ Console le.Writ Console dio = le.Writ le.Read IEMBRE DE RONEL meros, c doble prome te("In e.Read te("In e.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
-
Upload
juan-alejandro-rosales-coronel -
Category
Technology
-
view
590 -
download
1
Transcript of Ejercicio
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
