jueves, 12 de abril de 2012

APUNTES LOGO I

OPERACIONES:

Operaciones binarias

Para sumar 13, 7 y 2.5: 13 + 7 + 2.5

y para escribir su resultado: ES 13 + 7 + 2.5 PR 13 + 7 + 2.5

o para avanzar esa distancia: AV 13 + 7 + 2.5 FD 13 + 7 + 2.5

Para multiplicar 4 por 2.5: 4 * 2.5

Para restar 13 menos 7: 13 - 7

Para dividir 15.7 entre 10: 15.7/10

Cociente entero de 17 entre 5: COCIENTE 17 5 INTQUOTIENT 17 5

Resto de división entera 17 entre 5: RESTO 17 5 REMAINDER 17 5


Como es habitual, los paréntesis indican la prioridad entre operaciones: 3*(2+4)

Si no se ponen paréntesis, se sigue el orden de prioridades interno de Logo. Por ejemplo: 3*2+4

se interpreta como 3*(2+4), puesto que, para Logo, el producto es prioritario frente a la suma.


Procedimiento que calcula el área de un triángulo de base B y altura H:

PARA AREA :B :H

HAZ "AR (:B * :H) / 2

ES :AR

FIN

Para ejecutarlo se procede así: AREA 5 3

Pero es más elegante sustituir la penúltima línea por: (ES [SU AREA ES ] :AR)


Operaciones unarias:

Para calcular la raíz cuadrada de 64: RC 64 SQRT 64

Para calcular la parte entera de 5.13: ENTERO 5.13 INT 5.13

Para redondear el número 5.13: REDONDEA 5.13 ROUND 5.13

Para número natural aleatorio >=0 y <15: AZAR 15 RANDOM 15


Procedimiento que calcula el cociente y el resto de la división entera del número A entre el B (sin

usar las primitivas COCIENTE y RESTO):

PARA DIVENT :A :B

HAZ "C ENTERO (:A / :B)

ES :C

ES :A - :B * :C

FIN


Procedimiento que simula la tirada de un dado:

PARA DADO

ES 1 + AZAR 6

FIN


Otras operaciones binarias:¦

Para calcular 3 elevado a 5 (sólo algunos Logos, por ejemplo MSW-Logo):

POTENCIA 3 5


Otras operaciones unarias:

Funciones trigonométricas directas: SEN 45 SIN 45

(ángulo expresado en grados) COS 45 COS 45

TAN 45 TAN 45

e inversa: ARCTAN 1 ARCTAN 1

(en MSW-Logo y WinLogo existen también ARCSEN y ARCCOS).


EJERCICIOS

1 Reformar el procedimiento DIVENT de modo que devuelva los resultados indicando con

mensajes cuál es el cociente entero y el resto.

2 Procedimiento PITAG, que calcule la medida de la hipotenusa de un triángulo rectángulo cuyos

catetos midan X e Y.

3 Procedimiento RAYOS, que dibuje los N radios de longitud L de una rueda (sólo los radios).

4 Procedimiento POLREG, que dibuje un polígono regular de N lados de longitud L (cada lado).

5 * Procedimiento SUERTE, que saque al azar uno de los números siguientes10: 20, 25, 30, 35,

40, 45, 50.

6 * Procedimiento DADOS que simule la suma de la tirada de dos dados.

7 * Procedimiento POTEN :X :N que calcule xn (supuesto que n es un número natural mayor que

1), sin usar la primitiva POTENCIA.

Nota: Usar REPITE, una variable "contador" y otra variable para ir guardando los resultados

parciales.

8 * Procedimiento FACTORIAL :N que calcule la factorial de n.

Nota: Usar REPITE, una variable "contador" y otra variable para ir guardando los resultados

parciales.

9 * Procedimiento SUMA :N que calcule 2+4+8+...+2n usando la primitiva POTENCIA.

No hay comentarios: