Haga un programa en Smalltalk que dados dos números a y b, sumarlos si a es menor que b, sino restarlos y que el programa muestre en el Transcript la respuesta de la suma si a es menor que b y si b es menor que a, entonces que devuelva en el Workspace el valor obtenido de la resta. Recuerde que usted le asigna los valores a a y b.
1)Esto es cuando a es menor que b:
ResponderEliminar|a b|
a:=3.
b:=5.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript open; show: c.]
ifFalse:[d.].
el resultado retornado en el transcript es 8.
2) Cuando a es mayor que b es:
|a b|
a:=8.
b:=1.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript open; show: c.]
ifFalse:[d.].
el valor retornado en workespace es 7.
att: BRYAN ISAAC ESCOBAR RICO
PROGRAMCION1 VIRTUAL
a es menor que b:
ResponderEliminar|a b|
a:= 5.
b:= 7.
a<b ifTrue: [Transcript open; show: a+b.] ifFalse: [a-b.]. el valor devuelto en el Transcript es 12.
a es mayor que b:
|a b|
a:= 9.
b:= 7.
a<b ifTrue: [Transcript open; show: a+b.] ifFalse: [a-b.]. el valor devuelto es 2.
|a b|
ResponderEliminara:=25.
b:=11.
a < b ifTrue:[Transcript open; show:a+b.]
ifFalse:[a-b.].
"si es verdadero escribira en el Transcript 36, sino escribira en el Workspace 9"
|a b|
ResponderEliminara:=23.
b:=50.
a+b.
a-b.
c:= 'no se realizo la operacion'.
a<b ifTrue: [ Transcript open;
show: a+b;
tab;
show: (c:= 'a es menor que b').].
b<a ifTrue:[a-b.].
En el transccript sale.... 73 a es menor que b
Cuando a es menor que b:
ResponderEliminar|ab|
a:= 6.
b:= 10.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript open; show: c.]
ifFalse:[d]
El resultado en la ventana del transcrip es 16.
Cuando a es mayor que b:
|ab|
a:= 20.
b:= 7.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript show: c]
ifFalse:[d]
El resultado en el worskpace es 13.
1. Cuando a es menor que b:
ResponderEliminar|a b|
a:=5.
b:=15.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript open; show: c.]
ifFalse:[d.].
el valor que resultado en el transcript es 20.
2. Cuando a es mayor que b es:
|a b|
a:=10.
b:=6.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcrip show: c.]
ifFalse:[d.].
el valor que resulta en workspace es 4.
|a b|
ResponderEliminara:= 9.
b:= 15.
a<b ifTrue:[Transcript open; show: a+b.]
ifFalse:[a-b.]
cuando a es menor que b el valor devuelto en el transcript es 24.
|a b|
a:=15.
b:=9.
a<b ifTrue:[Transcript show: a+b.]
ifFalse:[a-b.]
cuando b es menor que a,el valor devuelto en el workspace es 6.
primero:
ResponderEliminara es menor que b:
|a b|
a:= 2.
b:= 5.
a<b ifTrue: [Transcript open; show: a+b.] ifFalse: [a-b.].
el valor devuelto en el Transcript es 7.
segundo:
a es mayor que b:
|a b|
a:= 10.
b:= 5.
a<b ifTrue: [Transcript open; show: a+b.] ifFalse: [a-b.].
el valor devuelto es 5.
|a b|
ResponderEliminara:=20
b:=18
a<b ifTrue:[Transcript open; show:a+b]
ifFalse:[a-b].
el resultado retornado es: 2
ResponderEliminar|a b|.
ResponderEliminara:=20.
b:=18.
a<b ifTrue:[Transcript open; show:a+b]
ifFalse:[a-b].
el resultado: 2
si a es menor que b:
ResponderEliminar|a b|
a:= 2.
b:= 10.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript open; show: c.]
ifFalse:[d]
El resultado en la ventana del transcrip es
12
y Cuando a es mayor que b:
|a b|
a:= 10.
b:= 2.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript open; show: c]
ifFalse:[d]
El resultado que aparece en el worskpace es 8.
|a b|
ResponderEliminara:=2
b:=5
c:=(a+b)
d:(a-b)
a<b ifTrue: [Transcript open;show:c.]
a<b ifFalse:[d.]
si a<b es True, mostrara en el Transcript 7
a
ResponderEliminar1.a es meno que b
ResponderEliminar|a b|
a:=3.
b:=4.
c:=a+b.
a<b ifTrue:[Transcript open; show: a+b.] ifFalse:[a-b].
el valor retornado en el transcrip es 7
2. b es menor que a
ResponderEliminar|a b|
a:=5.
b:=2.
c:=a+b.
a>b ifTrue:[Transcript open; show: a+b.] ifFalse:[a-b].
el valor que me devuelve en el wokspace es 3
|a b|
ResponderEliminara:=6
b:=7
c:=a+b
d:=a-b
a<b ifTrue:[Transcript open; show:c]
ifFalse:[a-b].
el resultado es 13
el resultado: 2
1. a es menor que b
ResponderEliminar|a b|
a:=4
b:=9
c:=(a+b)
d:=(a-b)
a<b ifTrue:[Transcript open;show:c.]
a<b ifFalse:[d].
el resultado en el Transcript es 13
2. a es mayor que b
ResponderEliminar|a b|
a:=6
b:=2
c:=a+b
d:=a-b
a>b ifTrue:[Transcript open;show:c]
ifFalse:[a-b].
el resultado en el workspace 4
|a b c |
ResponderEliminara:=9.
b:=2.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript open;show:c
ifFalse :[Transcript open;show:d].
A.__ Para el caso en que a es menor que b, se tiene:
ResponderEliminar|a b|
a:= 1.
b:= 11.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript open; show: c.]
ifFalse:[d].
El resultado en la ventana del Transcript es 12.
B.__ Para el caso en que a es mayor que b:
|a b|
a:= 11.
b:= 1.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript show: c]
ifFalse:[d].
El resultado en el worskpace es 10.
Eder Emilio Castro González
0801-1987-08030
a es menor que b:
ResponderEliminar|a b|
a:=7.
b:=8.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript open; show: c.]
ifFalse:[d.].
el resultado en transcript es 15.
a es mayor que b es:
|a b|
a:=21.
b:=20.
c:=a+b.
d:=a-b.
a<b ifTrue:[Transcript show: c.]
ifFalse:[d.].
el resultado en worskpace es 1.
cuando a<b
ResponderEliminar|a b c|
a:=1.
b:=2.
c:=b-a.
a<b ifTrue:[Transcript open; show:(a+b).]
ifFalse[c:=(b-a)].
en el Transcript devuelve 3
cuando a>b
ResponderEliminarcon el mismo programa solo cambian los valores de a y b.
a:=2.
b:=1.
|a b c|
a:=1.
b:=2.
c:=b-a.
a<b ifTrue:[Transcript open; show:(a+b).]
ifFalse[c:=(b-a)].
en el Worskpace el programa devuelve -1.
cuando a<b
ResponderEliminar|a b|
a:=6.
b:=8.
c:=a+b
d:=a-b
a<b ifTrue:[Transcript open;show:c.]
ifFalse:[d.].
el valor resultado en Transcript es 14
cuando a>b
ResponderEliminar|a b|
a:=12.
b:=4.
c:=a+b.
d:=a-b
a>b ifTrue:[Transcript open:show:c.]
ifFalse:[d.].
el valor resultado en Warkespace es 8
|a b c d|
ResponderEliminara:=6.
b:=10.
c:=a+b.
d:=a-b.
a=b ifTrue:['Escriba dos numeros distintos.']
ifFalse:[a<b ifTrue:[Transcript open; show:c]
ifFalse:[d].].
En muchos comentarios hay participaciones idéticas, solamente les cambiaron los valores de entrada. Participaciones iguales no cuentan, recuerdenlo. Así que tomaré la primera participación de un grupo que estén iguales como correcta y las demás tienen cero.
ResponderEliminar