Possíveis
Soluções
| aprenda espiral :n :l :r :t :c pf :l pd 360/:n atr "l :l+:r se :c = :t [pare] espiral :n :l :r :t :c+1 fim |
| aprenda poligpa :n :l :r :t :c repita :n [pf :l pd 360/:n] se :c=:t [pare] poligpa :n :l+:r :r :t :c+1 fim |
3.
1. A relação entre os lados é:
2. A relação entre as áreas é uma pg de razão 1/2.
| aprenda tunel :l :n :c repita 4 [pf :l pd 90] pf :l/2 pd 45 se :n = :c [pare] tunel :l/2 * raizq 2 :n :c+1 fim |
1. A relação entre os lados é:
2. A relação entre as áreas é uma pg de razão 1/2.
| aprenda circpg :r :n :q :c arco 360 :r se :c = :n [pare] circ :q*:r :n :q :c+1 fim |
5.
| aprenda seq :l :n :c :lis repita 4[pf :l pd 90] pd 90 pf :l/2 pe 90 pf :l/2 atr "a :l*:l/2 atr "lis jf :a :lis atr "b (:l/2)*(:l/2) atr "lis jf :b :lis se :c = :n [escreva [a sequencia das áreas é:] mostre :lis pare] seq :l/2 :n :c+1 :lis fim |
6.
| aprenda seq4 :l :k :c repita 4[pf :l pd 90] pd 45 un pf :l/4 ul pinte un pt :l/4 pe 45 ul pf :l se :c = :k [pare] seq4 :l :k :c+1 fim |
aprenda seq5 :l :k :c seq4 :l :k 1 un pt :k*:l pd 90 pf :l pe 90 ul atr "k :k-1 se :k=0 [ pd 90 pf :l pe 90 pare] seq5 :l :k :c+1 fim |
aprenda seq7 :l :k :c :lis |
|
7.
| aprenda seq8 :l :t :c repita 4[pf 2*:l pd 90] repita 4 [pf :l pd 90] un pd 45 pf :l* raizq 2 pt :l/2 pinte pf :l/2 pe 45 ul se :c = :t [pare] seq8 :l/2 :t :c + 1 fim |
Vá ao editor e, em seq8,
na linha 5 escreva no lugar de se :c = :t [pare],
o seguinte:
| atr "a (:l/2)*(:l/2) atr "lis jf :a :lis atr "s :s+:a se :c = :t [escreva [a sequencia das áreas é:] mostre :lis] se :c = :t [ escreva [a soma é:] mostre :s pare] |
Acrescente também na
primeira e penúltima linhas dois novos inputs: :s
e :lis
8.
| aprenda q :l repita 4[pf :l pd 90] fim |
aprenda spg :l :n :c se :c=1[q :l] atr "ll :l/potência 2 :c pd 90 pf :ll pe 90 pf :l un pt :l ul se :c=:n [pare] spg :l :n :c+1 fim |
