Date post: | 12-Jun-2015 |
Category: |
Technology |
Upload: | juan-alejandro-rosales-coronel |
View: | 444 times |
Download: | 2 times |
SEMA
JUAN
EstEs acontSint En e DecUna defi Ejem TipoDouInteLongStriDateBool
ANA 3 JUE
N ALEJAN
ructuraaquella estinuacióntaxis:
Inicio I I IFin
esta estrEntradCalculoSalida
laración variableinir un ti
mplo. N: es uedad: enombre
os de Dable : eger : g : ing : e : lean :
EVES 29 D
NDRO ROS
as Secustructuran de otra
nstruccionstruccionstruccio
ructura, dda (Declao (Visualiz
de Varie es un obpo de da
una variabes una vae: es una
atos. Almacen Almacen Almacen Almacen Almacen Almacen
DE OCTUBR
SALES COR
encialesa de cont hasta te
on1 on2 on3...
debemosrar Varia
zar)
ables y bjeto queto:
ble de tiariable de variable
na númerna númerna númerna la cadena la fechna un valo
RE DE 2009
RONEL
s o Bástrol que perminar e
s desarroable e In
tipos dee requier
po numére tipo nue de tipo
os con deos enteros enterena de caha or lógico
9
sicas permite el proces
ollar los tngresar)
e Datos re de un
rica mérica cadena
ecimalesros ros más earactere
(Verdad
ejecutarso.
tres proc
espacio d
extensos es
dero o Fa
r sus inst
cesos:
de memo
also)
truccione
ria, un no
GRUPO I
DELEGA
es una a
ombre y
IDAT
ADO
SEMA
JUAN
Ingrabc
Mod End
ANA 3 JUE
N ALEJAN
rese por ) El dobl
b) La terc) El cubo
dule Mod
Sub Ma 'd Di
'I Co Nu
'C do te cu
'V Co Co Co
Co
End Su
d Module
EVES 29 D
NDRO ROS
teclado le del númcera parto del núm
dule1 ain() declaraim Nume
Ingresaonsole.umero =
Calculooble = ercio =ubo = M
Visualionsole.onsole.onsole.
onsole.
ub
e
DE OCTUBR
SALES COR
un númermero ingte del nú
mero ingr
ación deero, dob
ar los dWrite(
= Consol
os Numero
= NumeroMath.Pow
izar losWriteLiWriteLiWriteLi
ReadKey
RE DE 2009
RONEL
ro, calcuresado
úmero ingresado
e variable, te
datos "Ingresle.Read
* 2 o / 3 w(Numer
s resuline("Doine("Teine("Cu
y()
9
le y visua
gresado
ables ercio,
se un NdLine
ro, 3)
ltados oble:" ercio:"ubo:" &
alice:
cubo As
úmero:"
& doble& terccubo)
s Doubl
")
e) cio)
le
GRUPO I
DELEGA
IDAT
ADO
SEMA
JUAN
Ingrla si
ab
Mod End
ANA 3 JUE
N ALEJAN
rese por guiente m) Increm
b) El nuev
dule ModSub Ma 'D Di Di
'I Co de
Co pr
'c in nu
's Co
Co
End Su
d Module
EVES 29 D
NDRO ROS
teclado manera:
mente el vo precio
dule2 ain() Declaraim descim prec
Ingresoonsole.escripc
onsole.recio =
calculancremenuevopre
solamenonsole.
onsole.
ub
e
DE OCTUBR
SALES COR
la descri
precio alo es la su
acion decripcioncio, inc
o Write(
cion = C
Write(= Consol
ar el innto = 0ecio = p
nte visuWriteLi
ReadKey
RE DE 2009
RONEL
ipción y
l 35% dema del p
e varian As Stcrement
"IngresConsole
"Ingresle.Read
ncremen.35 * pprecio
ualiso ine("El
y()
9
precio d
el precio recio inic
ables tring to, nuev
se la de.ReadL
se el pdLine
nto (35precio + incr
el nuevl nuevo
de un pro
ingresadcial mas e
vopreci
escripcine
recio:"
%) y el
emento
vo precprecio
ducto, ac
do el increm
io As D
cion:")
")
l nuevo
cio o:" & n
ctualizar
mento
Double
o precio
nuevopre
GRUPO I
DELEGA
r el preci
o
ecio)
IDAT
ADO
o de
SEMA
JUAN
Mod End
ANA 3 JUE
N ALEJAN
dule ModSub Ma 'D Di Di
'I Co de
Co pr
's Co
Co
End Sud Module
EVES 29 D
NDRO ROS
dule3 ain() Declaraim descim prec
Ingresoonsole.escripc
onsole.recio =
solamenonsole.
onsole.
ub e
DE OCTUBR
SALES COR
acion decripcioncio As D
o Write(
cion = C
Write(= Consol
nte visuWriteLi
ReadKey
RE DE 2009
RONEL
e varian As StDouble
"IngresConsole
"Ingresle.Read
ualiso ine("El
y()
9
ables tring
se la de.ReadL
se el pdLine
el nuevl nuevo
escripcine
recio:"
vo precprecio
cion:")
")
cio o:" & p
precio *
GRUPO I
DELEGA
* 1.35)
IDAT
ADO
SEMA
JUAN
Ingrab
Mod End
ANA 3 JUE
N ALEJAN
rese por) Suma d
b) Promed
dule ModSub ma 'D Di
'I Co Nu
'e u d c
su pr
'v Co Co
Co
End Su
d Module
EVES 29 D
NDRO ROS
r tecladode sus cifdio de las
dule4 ain() Declaraim Nume
Ingresaonsole.umero =
en el p= Nume= (Num= Nume
uma = uromedio
visualionsole.onsole.
onsole.
ub
e
DE OCTUBR
SALES COR
un númefras s cifras
acion deero, u,
ar el núWrite(
= Consol
procesoero Mod mero Modero \ 10
u + d + o = suma
izar WriteLiWriteLi
ReadKey
RE DE 2009
RONEL
ero de 3
e variad, c,
úmero "Ingresle.Read
, prime10
d 100) 00
c a / 3
ine("Suine("Pr
y()
9
cifras, c
ables suma, p
se un ndLine
ero des
\ 10
uma de romedio
calcule y v
promedi
umero d
compone
cifras::" & pr
visualice
io As I
de 3 ci
er el n
:" & suromedio
e:
Integer
ifras:")
numero
uma) o)
GRUPO I
DELEGA
)
IDAT
ADO