Embed Size (px)
Citation preview
[email protected] | www.fe.up.pt/ntiec | facebook.com/ntiec.feup
Workshop Máquinas de Calcular
Resolução dos exercícios propostos (Ti 84)
Exercício 1
Exercício 2
Exercício 3
Input "base (m)=",B
Disp ""
Input "Altura (m)=",H
Disp "Inercia (m^4)=",(B*H^3)/12
Input "base (m)=",B
Disp ""
Input "Altura (m)=",H
Disp "Inercia (m^4)=",(B*H^3)/36
Input "raio (m)=",R
Disp ""
Disp "Inercia (m^4)=",( π *H^4)/4
[email protected] | www.fe.up.pt/ntiec | facebook.com/ntiec.feup
Exercício 4
Menu("Inercia?","Rectangulo",R,"Triangulo",T,"Circulo",C)
Lbl R
Input "base (m)=",B
Input "altura (m)=",H
Disp "Inercia (m^4)=",(B*H^3)/12
Stop
Lbl T
Input "base (m)=",B
Input "altura (m)=",H
Disp "Inercia (m^4)=",(B*H^3)/36
Stop
Lbl C
Input "raio (m)=",R
Disp "Inercia (m^4)=",( π *H^4)/4
Stop
[email protected] | www.fe.up.pt/ntiec | facebook.com/ntiec.feup
Exercício 5
Input "X1=",A
Input "X2=",B
Input "X3=",C
If A≤20 and B≤20 and C≤0 and A≥0 and B≥0 and C≥0
Then
(A+B+C)/3 -> M
If M≥10
Disp "Aprovado"
Stop
End
If M≤5
Then
Disp "Reprovado"
Else
Disp "Possibilidade de"
Disp "ir a Recurso"
End
Else
Disp "Erro"
Disp "As notas tem que"
Disp "estar entre 0 e 20"
[email protected] | www.fe.up.pt/ntiec | facebook.com/ntiec.feup
Exercício 6
Exercício 7
“π*x^2/4” -> y1(x)
Disp "Formula-Resolvente"
Input "N. de vezes",N
For(I,0,N)
Prompt A,B,C
If A=0
Then
Disp "Erro"
Disp "A tem que ser positivo"
End
If sqrt(B^2-4*A*C)<0 or sqrt(B^2-4*A*C)≠0
Then
Disp "Sem raizes"
End
End
