Ejemplos de ciclos en lenguaje LOGO Escribir un programa que permita devolver el valor absoluto de cualquier número.

Ejercicio de sentencia simple:

1. Escribir un programa que permita devolver el valor absoluto de cualquier número.

para valorabs

bp gd 90 ro [Ingrese un numero para calcular su valor absoluto]

espera 100 bp gd 90 haz "num leepalabra

sisino :num<0 [haz "va -1 * :num][haz "va  :num]

ro(lista "El "valor "absoluto "es: :va)

espera 200 bp

fin

1. Escribir un programa que permita devolver el porcentaje entre dos cantidades diferentes.

para porcentaje

bp gd 90 ro [Ingrese dos numeros para calcular su porcentaje]

espera 100 bp gd 90 ro [Ingrese el primer numero]

espera 100 bp haz "num1 leepalabra

espera 100 bp gd 90 ro [Ingrese el segundo numero]

espera 100 bp haz "num2 leepalabra

haz "suma :num1 + :num2

haz "porc1 :num1 * 100 / :suma

haz "porc2 :num2 * 100 / :suma

espera 100 bp gd 90

sl ponpos [-450 0]

ro(lista "Los "porcentajes "son :porc1 "y :porc2)

fin

1. Escriba un programa que dado el precio de un artículo devuelva el precio de venta que contenga un aumento del 20%.

para precio

bp gd 90 ro [Ingrese el valor de la compra]

espera 50 haz "valorcompra leepalabra

haz "imp :valorcompra * 0.2

haz "valortot :valorcompra + :imp

espera 100 bp gd 90 ro (lista "El "total "es: :valortot)

fin

1. Escribir un programa que permita calcular el impuesto de la venta y el impuesto hotelero de un extranjero, sabiendo que los impuestos son 15% y 11% respectivamente. Devolver el valor de cada impuesto y su total a pagar.

para impuesto

bp gd 90 ro [Ingrese el valor de la compra]

espera 50 haz "valorcompra leepalabra

haz "impsv :valorcompra * 0.15

haz "imphot :valorcompra * 0.11

haz "imptot :impsv + :imphot

haz "valortot :impt + :valorcompra

espera 100 ponpos [0 -30] ro (lista "ISV "15%: :impsv)

espera 10 ponpos [0 -60] ro (lista "Iimpuesto "hotelero "11%: :imphot)

espera 10 ponpos [0 -90] ro (lista "El "total "a "pagar "es: :valortot)

fin

 Ejercicio de sentencia condicionada.

1. Escribir un algoritmo que calcule el 12% de impuesto solo aquellos artículos cuyos precios sean mayores o iguales a L 500. Devolver precio final e impuesto.

para compra

bp gd 90 ro [Ingrese el valor del articulo]

espera 50 haz "compra leepalabra

sisino :compra>499 [haz "imp :compra * 0.12][haz "imp 0]

haz "totalpago :c + :imp

bp gd 90 ro(lista "El "total "de "impuesto "es: :imp)

espera 80 bp gd 90 ro(lista "El "total "a "pagar "es: :totalpago)

fin

1. Calcular el perímetro de un rectángulo, sabiendo que el perímetro se calcula, donde b = base h= altura. Si la longitud de la base es mayor a 20 cm, al perímetro final sumarle 50 unidades, de lo contrario no sumar nada.

para perimetro

bp gd 90 ro [Ingrese la longitud de la base]

espera 50 haz "b leepalabra

bp gd 90 ro [Ingrese la altura]

espera 50 haz "h leepalabra

haz "per :b * :h

sisino :b>20 [haz "per :p + 50][haz "per :per]

espera 100 bp gd 90 ro(lista "El "perimetro "es: :per)

fin

...