aula 15
Autor: Daniel Santos | Publicado: 2011-05-26T19:24:00-07:00

correção da prova de algoritmos 

1-
algoritmo "triangulo"
var
x, y, z:inteiro
inicio
escreval("Digite a medida dos 3 lados do triangulo")
leia(x, y, z)
se (x &gt;= y+z) ou (y  &gt;= x+z) ou (z &gt;= x+y) entao
escreval("As medidas informadas nao formam um triangulo")
senao
se (x=y) e (y=z) entao
escreval("Triangulo equilatero - todos os lados iguais")
senao
se (x=y) ou (x=z) ou (y=z) entao
escreval("Triangulo isoceles - 2 lados iguais")
senao
se (x&lt;&gt;y) e (x&lt;&gt;z) e (y&lt;&gt;z) entao
escreval("Triangulo escaleno - todos os lados diferentes")
fimse
fimse
fimse
fimse
fimalgoritmo

essa foi a unica que consegui resolver sem muita enrolação

2-

algoritmo "angulo"
var
a: inteiro
voltas: real
inicio
escreval("Digite um angulo")
leia(a)
se (a&gt;360) ou (a &lt; -360) entao       voltas &lt;- a / 360       a &lt;- a mod 360    senao       voltas &lt;- 0    fimse    se (a=0) ou (a=90) ou (a=180) ou (a=270) ou (a=360) ou (a=-90) ou (a=-180) ou (a=-270) ou (a=-360) entao       escreval("Esta sobre um dos eixos")    senao       se ((a &gt;0) e (a &lt; 90)) ou ((a &lt; -270) e (a &gt; -360)) entao
escreval("1 quadrante")
fimse
se ((a &gt;90) e (a &lt; 180)) ou ((a &lt; -180) e (a &gt; -270)) entao
escreval("2 quadrante")
fimse
se ((a &gt;180) e (a &lt; 270)) ou ((a &lt; -90) e (a &gt; -180)) entao
escreval("3 quadrante")
fimse
se ((a &gt;270) e (a &lt; 360)) ou ((a &lt; 0) e (a &gt; -90)) entao
escreval("4 quadrante")
fimse
escreva(" ", voltas," voltas no sentido ")
se (a&lt;0) entao          escreval(" horario")       senao          escreval(" anti-horario")       fimse    fimse fimalgoritmo Essa o único erro foi deixar de mostrar as voltas do sentido... Também é diferente o jeito como lidei com o número maior que 360 e menor que -360, ao invés de usar uma conta "cabuloza" escolhe usar a estrutura certa... o enquanto. ex (enquanto grau &gt; 360 faca  /// grau&lt;-grau-360 /// voltas&lt;-voltas+1. E algo similar para o -360. 3-  algoritmo "calculos" var    num, prim, soma_prim, soma, qtd, z, maior, menor, qtd_par, soma_par, qtd_impar: inteiro    media_par, media, perc : real inicio    qtd &lt;- 0    qtd_par&lt;-0    soma_par &lt;-0    soma_prim &lt;- 0    qtd_impar &lt;-0    escreval("Digite um numero")    leia(num)    repita      se (qtd=0) entao         maior &lt;- num         menor &lt;- num      senao         se (num &gt; maior) entao
maior &lt;- num
fimse
se (num &lt; menor ) entao
menor &lt;- num
fimse
fimse
soma &lt;- soma + num
qtd &lt;- qtd + 1
se (num mod 2 = 0) entao
soma_par &lt;- soma_par + num
qtd_par &lt;- qtd_par + 1
senao
qtd_impar &lt;- qtd_impar + 1
fimse
prim &lt;- 0
para z de 1 ate num faca
se (num mod z = 0) entao
prim &lt;- prim + 1
fimse
fimpara
se (prim &lt;= 2)entao
soma_prim &lt;- soma_prim + num
fimse
leia(num)
ate(num=99999)
se (qtd = 0) entao
escreval("Nenhum numero digitado")
senao
escreval("A soma e ",soma)
escreval("A quantidade e ",qtd)
media &lt;- soma / qtd
escreval("A media e ", media)
escreval("O maior e ", maior)
escreval("O menor e ", menor)
se (qtd_par = 0 ) entao
escreval("Nenhum numero par foi digitado")
senao
media_par &lt;- soma_par / qtd_par
escreval("A media dos pares e ", media_par)
fimse
perc &lt;- qtd_impar * 100 / qtd
escreval("O percentual de impares e ", perc)
escreval("A soma dos primos e ",soma_prim)
fimse
fimalgoritmo

depois dessa prova tive um completo desanimo sobre a carreira que tento seguir um pensamento me perguntando se era daquilo que gostava realmente e eu sem esitar lhe disse que "SIM".
Onde ouver a esperança de recupera essa nota vou atras pq isso e muito importante pra mim não to aqui atoato aqui pra isso errar e correr atras.