Introdução à Programação com o UCB Logo/Expressões Algébricas

Agora que já sabemos utilizar os operadores algébricos, vamos criar algumas funções para calcular expressões algébricas.

Reta

Vamos começar pelo exemplo mais simples. Suponhamos que você deseja calcular os valores da reta $2x-1$ . Para tanto, vamos definir um procedimento que receberá x como parâmetro de entrada, e retornará o valor que a reta assume para um dado x. Para que o procedimento retorne algum valor, vamos utilizar o comando output (abreviadamente op). Para este exemplo, vamos definir o seguinte procedimento

to reta :x
output x + 2
end

E agora, toda vez que você chamar o procedimento reta fornecendo o valor de x, ele calculará o valor que a reta assume no dado x. Por exemplo

print reta 3

Parábola

Vamos agora criar uma função para calcular os valores de uma parábola $x^{2}+2x-1$ .

to parabola :x
output (power :x 2) + 2 * x - 1
end

Podemos agora utilizar este procedimento para calcular o valor que a parábola assume em alguns valores de x.

print parabola 1
print parabola 2

Vamos agora fazer a tartaruga desenhar a parábola. Para isto vamos criar o procedimento abaixo

to desenha_parabola :limite
pu 
setxy minus :limite parabola minus :limite
pd
for [x [minus :limite] :limite] [setxy :x parabola :x]
end

Recordando... O comando pu levanta a caneta, para que a tartaruga ande sem desenhar. Já o comando setxy move a tartaruga para uma determinada posição na tela (coordenadas X e Y).

Após definir o procedimento desenha_parabola acima, podemos executá-lo passando como parâmetros o limite em x para o qual queremos traça o gráfico. Veja o exemplo:

desenha_parabola 15

Exercício 1

Agora você vai fazer um programa um pouco mais interativo para somar dois números. Vamos chamá-lo "somador". Após solicitar ao usuário dois números, o programa vai somá-los e imprimir o resultado na tela.

; somador.txt
; (seu nome) (data de hoje)
; Soma dois números fornecidos pelo usuário.

to somador 
; Recebe os valores do usuário.

print [Digite o primeiro numero]
make "var1 readWord
print [Digite o segundo numero]
make "var2 readWord

; Imprime o resultado na tela
print [A soma é]
print :var1 + :var2
end

Exercício 2

Faça um programa interativo para calcular a área de um triângulo.