Dibujando y rellenando formas (MS Small Basic)


Capítulo 6 – Manual de Small Basic

Siempre dentro de GraphicsWindows (ventana de gráficos), usamos la función Draw (dibujar) y Fill (rellenar).

Cada vez que tipeamos una función u operación A la derecha de la pantalla nos explica que es lo que hacen éstas. ¿ La miró alguna vez?.

Abra desde el escritorio un archivo Small Basic. Guardelo en su carpeta de usuario como figura30.

Escriba las instrucciones para dibujar un rectángulo (solo el entorno) con los bordes de color rojo (PenColor).

A continuación rellene un rectángulo con el color verde (BrushColor)

Si se fija a la derecha del escritorio, le mostrará que en los paréntesis después de la función van las coordenadas x e y, del punto donde se empieza a dibujar( Draw) o pintar(Brush) y el largo y el ancho de la figura.

Como ambos rectángulos serán del mismo tamaño, ¿ que debe cambiar en las instrucciones para que los rectángulos no se superpongan?

(agreguelo en el comentario). Lea abajo de la figura 30 del manual y lo encontrará perfectamente explicado.

¿ Le salió ?. ¿ Lo entendió ?

Haga lo mismo con la figura 31. Obvio el archivo se llamará figura31

¿ Bien ?. Es sencillo ¿no?

Ahora, repita el procedimiento para la figura 32

Óptimo. Más sencillo imposible.

Y ahora demuestreme que lo entendió. Si leyó y entendió las instrucciones de los programas de arriba, ésto le será muy sencillo.

Abra un archivo Small Basic y lo nombra figura_mia, escriba las instrucciones para que en el mismo archivo, le aparezcan: un rectángulo de color azul, una elipse de color rojo, un círculo de color amarillo y un triángulo (epaaa…es también con fill) de color negro.

Agregue en el comentario, lo que le contaría a una amiga o a su familia, como funciona GraphicsWindow en MS Small Basic.

Comenzando con los Gráficos


Para realizar este trabajo deberá tener el Manual de Microsoft Small Basic – Capítulo 6

Este manual fue preparado para ser usado por niños y adolescentes. Hay que leerlo.

¿ Qué nos permite hacer TextWindow y que nos permite GraphicsWindow? ¿ Qué significa DrawLine ?

Ingreselo como comentario

Abra un archivo Small Basic y guardelo como Líneas_cruzadas.sb en su carpeta de usuario

Escriba las 4 instrucciones para producir la figura 25 del manual

Otro programa cambiando_color.sb  para la figura 27

Idem para la figura 28: gruesas_coloridas.sb

 

 

La ecuación cuadrática en Small Basic ( ecuación de 2o Grado)


Y estamos aquí en la ecuación de 2o grado: ax² + bx + c = 0

A continuación están las instrucciones del programa que la resuelve

Abran un archivo cuadratica.sb y copien/ peguen esas instrucciones. Ejecuten el programa introduciendo los valores que les pide.

Agregue su comentario, poniendo

  1. Los valores que ingresó y los resultados que obtuvo
  2. Cuente que aplicaciones tienen este tipo de funciones en el mundo real. Expliquelo con sus palabras

____________________________________________________________________________________________________________________________________________________

‘=======================================================================================’ ‘ Programmer:  EMLF          ‘ ‘ Software:  Equação do  2º Grau        ‘ ‘ Version:   2.3          ‘ ‘ Date:   2011/Oct/05         ‘ ‘ Variables:  coeficientes[], a, b, c, ?, ?Raiz, x, x[], ?, índice, tecla, equação    ‘ ‘=======================================================================================’ ‘ SZM205 – hecha por  GoToLoop Foro de Small Basic

‘———————————————————————————————————————‘ ‘ Inicialização das constantes pra caracteres especiais de controle em código ASCII: ‘ ‘———————————————————————————————————————‘

BEL= Text.GetCharacter (7) ‘ Produz um beep pelo PC-Speaker interno BS= Text.GetCharacter  (8) ‘ Backspace (Volta 1 posição  pra esquerda) TAB= Text.GetCharacter (9) ‘ Tabulação Horizontal (HT) LF= Text.GetCharacter  (10) ‘ Line-Feed (Pula-Linha) CR= Text.GetCharacter  (13) ‘ Retorno de Carro (Volta ao início da linha) ESC= Text.GetCharacter (27) ‘ Tecla “Esc” TRI= Text.GetCharacter (30) ‘ Triângulo SETA= Text.GetCharacter (26) ‘ Flecha pra direita SPC= ” ”    ‘ Espaço em Branco (SPaCe)

‘———————————————————————————————————————‘ ‘ Outros procedimentos de inicialização:      ‘ ‘———————————————————————————————————————‘

TextWindow.Title= “Cálculo de Função Quadrática TextWindow.Left= 200 TextWindow.Top=  300 CorFundo= “Black TextWindow.BackgroundColor= CorFundo

If Program.ArgumentCount > 0 Then ‘ Checa se algum argumento foi passado pela Interface de Comando de Linha (CLI)   Argumentos()    ‘ Inicializa a variável coeficientes[] com o conteúdo dos argumentos   Goto Pula_ABC   ‘ Pula a 1ª subrotina ABC(), já q serão usados os argumentos provindos da CLI EndIf

‘———————————————————————————————————————‘ ‘ Ponto de partida do laço do programa:      ‘ ‘———————————————————————————————————————‘

Laço: TextWindow.Clear()   ‘ Limpa a janela de textos ABC()     ‘ Requisita q/ o usuário digite 3 valores pra atribuir-lhes os coeficientes a, b & c

Pula_ABC: Espelhar_Coeficientes()  ‘ Transfere os 3 elementos do conjunto coeficientes[] prás variáveis a, b & c Criar_Equação()   ‘ Cria a expressão pra exibição q/ representa os coeficientes a, b & c Exibir_Equação()   ‘ Mostra em forma de equação quadrática os valores obtidos dos coeficientes

If a = 0 And b = 0 Then  ‘ Equação sem raízes!   Resultado_Ø()   Goto Fim EndIf

If a = 0 Then    ‘ Equação de 1º grau!   Calcular_Linear()   Resultado_Linear()   Goto Fim EndIf

Calcular_?()    ‘ Obter a discriminante delta e também a sua raiz quadrada Resultado_?()

If ? < 0 Then    ‘ Equação com raízes complexas!   Calcular_Complexo()   Resultado_Complexo() Else     ‘ Equação com raízes reais!   Calcular_Quadrático()   Resultado_Quadrático() EndIf

Fim: Encerrar()    ‘ Perguntar se o usuário deseja calcular outra raiz de 2º grau  😀 Goto Laço    ‘ Volta ao início do laço, caso positivo    ^_^

‘===================================================================================================’ ‘     Subrotinas das Compartimentalizações do Programa      ‘ ‘===================================================================================================’

Sub Encerrar   ‘ Encerrar o programa se a tecla ‘Q’ ou ‘Esc’ for pressionada:     TextWindow.ForegroundColor= “DarkMagenta   TextWindow.WriteLine (LF + “Pressione ‘Q’ ou ‘Esc’ pra encerrar ou qualquer outra pra reiniciar…”)     tecla= Text.ConvertToUpperCase ( TextWindow.ReadKey() )   If tecla = “Q” Or tecla = ESC Then     Program.End()   EndIf   EndSub

‘————————————————————————————————————————————————————————-‘

Sub Argumentos   ‘ Obtem os 3 primeiros argumentos usados ao rodar o programa   ‘ e armazena-os na variável conjunto coeficientes[], representando os valores de a, b & c :     For índice= 1 To 3     coeficientes[índice]= Program.GetArgument(índice) * 1 ‘ Multiplica-se por 1 pra forçar tipo numérico!   EndFor   EndSub

‘————————————————————————————————————————————————————————-‘

Sub ABC   ‘ Requisitar os valores de a, b & c do usuário:     TextWindow.ForegroundColor= “Red   TextWindow.WriteLine (“Digite os valores de A, B & C prá equação do 2º grau:”)   TextWindow.ForegroundColor= “Magenta   TextWindow.WriteLine (“Modelo -> ax² + bx + c = 0” + LF)     For índice= 97 To 99     ‘ Seqüência em ASCII correspondentes às letras “a”, “b” e “c”     TextWindow.ForegroundColor= “Yellow     TextWindow.Write ( “Valor de ” + Text.GetCharacter(índice) + “: ” )     TextWindow.ForegroundColor= “White     TextWindow.BackgroundColor= “DarkYellow     coeficientes[índice – 96]= TextWindow.ReadNumber() * 1 ‘ Armazena o ? digitado em coeficientes[]     TextWindow.BackgroundColor= CorFundo   EndFor   EndSub

‘————————————————————————————————————————————————————————-‘

Sub Espelhar_Coeficientes   ‘ Espelha os 3 valores armazenados em coeficientes[] pras variáveis a, b & c   ‘ por motivos de estética e clareza de código, nas partes q calculam as raízes da equação:     a= coeficientes[1]  ‘ Coeficiente Quadrático “a”   b= coeficientes[2]  ‘ Coeficiente Linear “b”   c= coeficientes[3]  ‘ Termo Constante “c”   EndSub

‘————————————————————————————————————————————————————————-‘

Sub Criar_Equação   ‘ Cria uma cordão alfanumérico representando a equação com os respectivos valores de a, b & c:     equação= “f(x) ” + SETA + SPC ‘ Início da formação da variável alfanumérica “equação”     ‘ Coeficiente Quadrático “a”:   ‘ ======================   If a <> 0 Then   ‘ Somente os termos com coeficientes ? 0 serão exibidos!         If a <> 1 And a <> -1 Then ‘ Condição impede de imprimir os ?s 1 e -1 na frente da variável x²!       equação= equação + a     ElseIf a = -1 Then  ‘ No caso do -1, apenas o sinal negativo é acrescentado       equação= equação + “-     EndIf         equação= equação + “x² ”       EndIf   ‘————————————————-     ‘ Coeficiente Linear “b”:   ‘======================   If b <> 0 Then   ‘ Somente os termos com coeficientes ? 0 serão exibidos!         If b < 0 Then       equação= equação + “- ”       If a = 0 Then         equação= equação + BS  ‘ Se o coeficiente quadrático for nulo, faz com q o sinal negativo fique       EndIf    ‘colado à variável linear x, ao acrescentar um deslocamento prá esquerda           ElseIf a <> 0 Then  ‘ a ? 0 & b > 0       equação= equação + “+ ”     EndIf         If b <> 1 And b <> -1 Then ‘ Condição impede de imprimir os ?s 1 e -1 na frente da variável x!       equação= equação + Math.Abs(b)     EndIf         equação= equação + “x ”       EndIf   ‘————————————————–     ‘ Termo Constante “c”:   ‘======================   If a = 0 And b = 0 Then  ‘ Se ambos os x da equação forem nulos,     equação= equação + c + SPC ‘imprima o termo constante “c” sem qualquer alteração       ElseIf c <> 0 Then   ‘ Caso contrário, adiciona um sinal antes de imprimi-lo se c ñ for nulo         If c < 0 Then   ‘ ( a ? 0 | b ? 0 ) & c < 0  c é negativo       equação= equação + “- ”     Else    ‘ ( a ? 0 | b ? 0 ) & c > 0  c é positivo       equação= equação + “+ ”     EndIf         equação= equação + Math.Abs(c) + SPC       EndIf   ‘————————————————–     equação= equação + “= 0”          ‘ Fechamento da “equação”   EndSub

‘————————————————————————————————————————————————————————-‘

Sub Exibir_Equação   ‘ Exibir a equação pronta:     TextWindow.ForegroundColor= “White   TextWindow.BackgroundColor= “DarkGray   TextWindow.WriteLine( LF + equação + LF )   TextWindow.BackgroundColor= CorFundo   EndSub

‘————————————————————————————————————————————————————————-‘

Sub Resultado_Ø   ‘ As 2 variáveis x possuem coeficientes nulos:     TextWindow.ForegroundColor= “DarkRed   TextWindow.WriteLine (“Tanto os coeficientes quadrático ‘a’ e linear ‘b’ são = 0” + BEL)   TextWindow.WriteLine (“Portanto, as variáveis x são nulas, ñ existindo raiz alguma pra calcular!”)   EndSub

‘————————————————————————————————————————————————————————-‘

Sub Calcular_Linear   ‘ Raiz x de Equação Linear, pois o termo quadrático a = 0:     x= -c/b   EndSub

‘————————————————————————————————————————————————————————-‘

Sub Resultado_Linear   ‘ Exibir a raiz da equação linear:     TextWindow.ForegroundColor= “Green   TextWindow.WriteLine (“Esta equação é linear com raiz |R x = ” + x)   EndSub

‘————————————————————————————————————————————————————————-‘

Sub Calcular_?   ‘ Calcular o valor da discriminante ? e também o resultado da sua v :     ?= b*b – 4*a*c    ‘ Expressão Discriminante “?”   ?Raiz= Math.SquareRoot ( Math.Abs(?) ) ‘ v |?|   EndSub

La ecuación de la recta:en Small Basic ( Ecuación líneal o de 1er. grado)


De la misma manera que en MS Excel, resolvimos la ecuación de la recta, ahora lo haremos con un programa en Small Basic, cuyas instrucciones o sentencias las escribimos abajo

Abra MS Small Basic.  Click en “Nuevo” y ” guardar como” en su carpeta de usuario como recta.sb

Copie las instrucciones de abajo y peguelas en el archivo recta.sb. Ejecutelo, ingresando los valores que el programa le pide. Salve el archivo en su carpeta.

Ahora, busque el la web “aplicaciones de la ecuación en la recta en el mundo real”. Lealo y con sus propias palabras agregue su comentario

_____________________________________________________________________________________________________________________________________________________

‘ ecuación de la recta  Resolver la función y= m*x + n

TextWindow.WriteLine( ” La recta – Resolver la función f(x) = m*x + n “)

TextWindow.WriteLine(” ingrese el valor de m:”)

m = TextWindow.ReadNumber()

TextWindow.WriteLine(” ingrese el valor de n ” )

n = TextWindow.ReadNumber()

TextWindow.WriteLine(” ingrese el valor inicial de x “)

min = TextWindow.ReadNumber()

TextWindow.WriteLine(” ingrese el valor final de x “)

max = TextWindow.ReadNumber()

For x = min To max

TextWindow.WriteLine(x)

TextWindow.WriteLine(” para x = ” + x)

y[x] = m*x + n

TextWindow.WriteLine(” y =  ” + y[x])

EndFor

Mi perfil


http://social.msdn.microsoft.com/profile/carlosfmur1948/?ws=usercard-inline

carlosfmur1948

carlosfmur1948's avatar
I work at
St Catherine`s Moorlands School – Argentina
Website
Member Since
Aug 16, 2011
Biography
Former I`ve worked at Ernst & Young, and Computer Associates for many years, as a consultant and manager. At present, I`m working as ITC Teacher for a secondary school.
35 Points009
FAQExperienceActivitycarlosfmur1948's RSS Feed

Points History

1/2012
6/2012
0
40

Statistics

Forums
Answers 1
Helpful Posts 4
Replies 161
Galleries
Contributions 0
4+ Star Ratings 0
Downloads 0
TechNet Wiki
New Articles 0
Article Edits 0
Comments 0
Blogs
Posts 0
4+ Star Ratings 0
Comments 1
Posts Rated 0
Translation Wiki
Submissions 0
Approvals 0
Moderations 0
Activities by Application

Galleries

TechNet Wiki

Blogs

Forums

Points by Application

Galleries

TechNet Wiki

Blogs

Forums

Achievements

0 Gold
0 Silver
9 Bronze
First Answer ConfirmedNew Blog CommentatorForums Replies IIProfile CompleteForums Curator IForums Replies IFirst Helpful VoteFirst Marked AnswerFirst Forums Reply

<a href=”http://www.omniture.com&#8221; title=”Web Analytics”> <img src=”http://msstonojssocial.112.2O7.net/b/ss/msstonojssocial/1/H.20.2–NS/0&#8243; height=”1″ width=”1″ alt=”” /> </a>

La función coseno en Excel


 

coseno

 

 

En trigonometría el coseno (abreviado cos) de un ángulo agudo en un triángulo rectángulo se define como la razón entre el cateto adyacente a dicho ángulo y la hipotenusa:

 \cos\alpha = \frac{b}{c}

En virtud del Teorema de Tales, este número no depende del triángulo rectángulo escogido y, por lo tanto, está bien construido y define una función del ángulo  \alpha.

Otro modo de obtener el coseno de un ángulo consiste en representar éste sobre la circunferencia goniométrica, es decir, la circunferencia unitaria centrada en el origen. En este caso el valor del coseno coincide con la abscisa del punto de intersección del ángulo con la circunferencia. Esta construcción es la que permite obtener el valor del coseno para ángulos no agudos.

En análisis matemático el coseno es la función que asocia un número real  x con el valor del coseno del ángulo de amplitud, expresada en radianes,  x . Es una función trascendente y analítica, cuya expresión en serie de potencias es

<br />
\begin{array}{rl}<br />
   \cos x  = & 1<br />
              - \frac{x^2}{2!}<br />
              + \frac{x^4}{4!}<br />
              - \frac{x^6}{6!}<br />
              + \ldots \\ \\<br />
           = & \sum_{n=0}^\infty \;<br />
                (-1)^n \; \frac{x^{2n}}{(2n)!}<br />
\end{array}<br />
coseno1

La serie de potencias anterior proporciona a su vez la extensión de la función coseno al plano complejo del siguiente modo:

 {\rm cos\ }z=\frac{e^{iz} + e^{-iz} }{2}

Donde i es la unidad imaginaria.

La función Cos tiene distintas definiciones dependiendo del uso que se le quiera dar:

double cos(double x); Toma y devuelve un valor double

float cos(float x); Toma y devuelve un valor en coma flotante, esta función sólo está disponible en C++.

long double cos(long double x); Toma y devuelve un valor long double, sólo disponible en C++.

Todas las definiciones devuelven el coseno del ángulo x expresado en radianes. Si x es muy grande puede devolver datos sin sentido pero no devuelve mensajes de error.

 

 

En EXCEL:

 

Haga click en la imágen de arriba para ampliarla

Descripción

Devuelve el coseno de un número.

Sintaxis

COS(número)

La sintaxis de la función COS tiene los siguientes argumentos (argumento: valor que proporciona información a una acción, un evento, un método, una propiedad, una función o un procedimiento.):

  • Número Obligatorio. El ángulo en radianes cuyo coseno desea obtener.

Observación

Si el ángulo está expresado en grados, multiplíquelo por PI()/180 o utilice la función RADIANES para convertirlo en radianes.

 

Vista gráfica funciones trigonométricas


Haga click en la imágen de arriba para ampliarla

__________________________________________________

Definiciones respecto de un triángulo rectángulo

Para definir las funciones trigonométricas del ángulo: α, del vértice A, se parte de un triángulo rectángulo arbitrario que contiene a este ángulo. El nombre de los lados de este triángulo rectángulo que se usará en los sucesivo será:

  • La hipotenusa (h) es el lado opuesto al ángulo recto, o lado de mayor longitud del triángulo rectángulo.
  • El cateto opuesto (a) es el lado opuesto al ángulo que nos interesa.

El cateto adyacente (b) es el lado adyacente al ángulo del que queremos determinar

Haga click en la imágen para ampliarla:

               sen  α =  a/h                             cos α = b/h

La trigonometría posee numerosas aplicaciones: las técnicas de triangulación, por ejemplo, son usadas en astronomía para medir distancias a estrellas próximas, en la medición de distancias entre puntos geográficos, y en sistemas de navegación por satélites.

En su carpeta de usuarios cree un documento word con el nombre trigonometría.doc Investigue en la web que otros usos se la da a la trigonometría en el mundo real.

La función Seno en Excel


 

seno

 

En trigonometría el seno de un ángulo en un triángulo rectángulo se define como la razón entre el cateto opuesto y la hipotenusa:

 \sin\ \alpha=\frac{a}{c}

O también como la ordenada correspondiente a un punto que pertenece a una circunferencia unitaria centrada en el origen (c=1):

 \sin\ \alpha=a \,

En matemáticas el seno es la función continua y periódica obtenida al hacer variar la razón mencionada, siendo una de las funciones trascendentes. La abreviatura \sin(\cdot) proviene del latín sĭnus.

El seno en programación

Normalmente todos los lenguajes de programación proveen una función seno. También es lo normal en todos los lenguajes que el ángulo que recibe la función deba pasarse en radianes.

Esto es importante tenerlo en cuenta ya que si no podrían derivarse errores por este concepto. Del mismo modo las calculadoras suelen aceptar el valor en grados o radianes, siendo necesario para ello (realizar dicho cálculo correctamente) activar un botón selector del tipo de grados (sexagesimales, centesimales o radianes) que se desea usar.

 ejemplos:
    seno de 45 grados   = 0,7071
    seno de 45 radianes = 0,8509

Obsérvese como la escasa diferencia entre ambos valores resultantes podría pasar desapercibida. Es necesario, por tanto, cuando sea conveniente pasar los grados a radianes o viceversa. Nótese que el símbolo π es el número π

 Rad = Deg * π/180
 Deg = Rad * 180/π

Grafico_senoa

 

En Excel:

Devuelve el seno de un ángulo determinado. Se utiliza ángulos en radianes

Sintaxis

SENO(número)

La sintaxis de la función SENO Tiene los siguientes argumentos (argumento: valor que proporciona información a una acción, un evento, un método, una propiedad, una función o un procedimiento.):

  • Número    Obligatorio. El ángulo expresado en radianes cuyo seno desea obtener.

Observación

Si el argumento se expresa en grados, multiplíquelo por PI()/180 o utilice la función RADIANES para convertirlo en radianes.

Haga click en la imágen para ampliarla:

Ecuación de la parábola


La ecuación o función de la parábola viene dada por la fórmula y=ax²+b

Haga click en la imágen para ampliarla

Habra una planilla Excel,  parabola.xls

Con los valores de la imágen, construya una tabla y aplique la función mostrada.

Si a=1 y b=0 ¿ que figura obtiene ?. Ingrese la respuesta como comentario.

MS Excel – Ecuación de la recta


La ecuación o función de la recta es  y = mx + n

dónde m y n son parámetros (constantes) , x es el valor de la variable independiente (abscisa-eje horizontal) e y el valor de la ordenada( eje vertical)

Para cada valor de x hallar el valor de y=f(x) que satisfaga la ecuación

Haga click en la siguiente imágen para ampliarla:

Puede ver que la ecuación es  y= 4x+2. Para el valor de x= – 4 es el valor de y= 2

Utilizando estos datos abra un archivo Excel y guardelo en su carpeta como recta.xls. Use los datos de la imágen y obtenga los valores de Y usando la función mostrada  y=4x+2

En nuestra imágen en la celda C6 se escribe:   =$C$1*B6 +$C$2 (El signo $ significa que ese valor no cambia al copiar y pegar la celda)

Luego arrastre esa celda hasta completar los valores.

Grafique los valores con el tipo de gráfico XY( Dispersión).

En la Hoja 2 del la misma planilla (o Libro) copie y pegue los valores de la Hoja1 y cambie el valor de n=0 ( el resto permanece igual). Calcule y grafique esta nueva funcion que quedará así:  y=4x. Verá que la recta pasa por el centro del eje de coordenadasa (x=0 y=0)

Copie y pegue los datos en la Hoja3 y cambie el valor de m= 1 ( el resto permanece igual). Calcule y grafique esta nueva función: y=x + 2

La recta pasa por el valor de la ordenada y=2

Copie y pegue los valores en la Hoja4 y cambie el valor de m= 0 ( el resto permanece igual). Calcule y grafique esta nueva función: y= 2

La recta es paralela al eje de las x (abscisa)

Ponga en su comentario, como son las rectas que tiene graficadas

en la planilla Excel. Mirelas, piense y después escriba.

Agregue también en su comentario la definición que encuentre en la web de “pendiente de una recta

LEVEL 4 INT – 1er Trimestre


Investigue en la Web. Lea, razone y explique en los comentarios “con sus propias palabras”. No haga copy/ paste.

Cada computadora conectada a una red se denomina nodo y cada uno puede conectarse de distinta manera, denominadas topologías de red

Existen tres topología básicas que deben conocer: de bus, de estrella y de anillo.

Explique las caracerísticas de cada una. Busque en la web, imágenes de cada una y peguenla en un archivo Paint. Guardelos en su carpeta de usuario con los nombres: bus.jpg – estrella.jpg- anillo.jpg

…otro bucle: while (mientras)


Es otro método de repetición que es especialmente útil cuando la cantidad de repeticiones se desconoce

Ej Si tenemos que ejecutar una acción 20 veces, usamos

For i= 1 to 20

Acción

EndFor

Pero si no sabemos que la acción debe repetirse exactamente 20 veces usamos

While

mientras se cumpla la condición que pusimos

ejecuta la acción ordenada. Cuando deja de cumplirse,

se detiene

EndWhile

Desde el escritorio de su PC habra MS Small Basic. Escriba estas instrucciones (capítulo 4 del manua)l,  El bucle While. Asigne el valor 100 a una variable. Ese valor debe aparecer en la pantalla y luego divida por 2 el valor de esa variable, mientras (While) su valor sea mayor que 1 (> 1)

número = 100

 etiquetaInicio:

 TextWindow.WriteLine(número)

 número = número / 2

 If (número > 1) Then  

Goto etiquetaInicio  

EndIf

Guarde el programa en su carpeta de usuario como while.sb

Agregue como comentario y “usando sus propias palabras“, para que se usa For…EndFor y While…EndWhile.