22
ABR15
1
22
ABR15
1
WorkshopMáquinas de Calcular
TI-NSpire Voyage 200 TI-84
Site: https://paginas.fe.up.pt/~ntiec/E-mail: [email protected]
22 e 23 de Abril de 2015
22
ABR15
2
22
ABR15
2
Abordar o problema
Desconstruir o problema
Esquematizar a resolução
Pensar em possíveis ramificações
Escrever o código
Testar
22
ABR15
3
22
ABR15
3
Tipos de Variáveis
Número, o ex: 1
String, o ex: ‘HEA300’
Matriz,o ex: [5,3,4; 8,8,6; 9,1,2]
22
ABR15
4
22
ABR15
4
Criar Programa ou FunçãoTI-nspire Voyage Ti-84
Calculadora → Menu →
9: Funções e Programas →
1: Editor de programas →
1: Novo
Nome: “a”
Tipo:
- Programa
- Função
Acesso à biblioteca: Nenhum, LibPriv ou LibPub (Mostrar no Catálogo)
APPS > Program Editor > 3: New
1. Programa
nome()
Prgm
*Código*
EndPrgm
1. Função
nome(var1,var2)
Func
*calculo*
EndFunc
PRGM >NEW> Create New1. Programa
Name=...*Códico*
2. Função“Y=”*Escrever função*
22
ABR15
5
22
ABR15
5
InputTI-NSpire ´ Voyage 200 TI-84
1.Request “Descrição”,var
2.RequestStr “Descrição”,var
1.Input “Descrição”,var
2.DialogTitle “titulo da caixa”Request “Variavel 1”,var1Request “Variavel 2”,var2Dropdown
“nome”,{‘Sim’,’Nao’},varEndDlogexpr(var1) → var1[….]
1.Input “Descrição”,var
2.Prompt var1,var2,...
22
ABR15
6
22
ABR15
6
Output
TI-NSpire Voyage 200 TI-84
1. Disp 1+1
Disp “texto”
Disp “&string(texto)&”, var
2. Text “texto “&string(var)&”texto”
1. Disp “1+1 =”,1+1
Disp “”&string(1+1)””
2. Output 15,25, “Texto”
3. Dialog
Text “texto de saida “&string(var)&””
Enddlog
1. Disp 1+1
2. Disp “texto”
3. Disp “texto”,var
22
ABR15
7
22
ABR15
7
Controlo: If
Problema: Levo guarda-chuva?Solução:
Se está a chover:SIM
Se está sol:Não
22
ABR15
8
22
ABR15
8
Controlo: If
TI-NSpire Voyage Ti-84
If x>0 Then
Disp “x é positivo”
ElseIf x=0 Then
Disp “x é nulo”
Else
Disp “x é negativo”
EndIf
If x>0 Then
disp ‘x é positivo’
Elseif x=0 Then
disp ‘x é nulo’
Else
disp ‘x é negativo’
Endif
If x>0
Disp “x é positivo”
If x=0
Then
Disp “x é nulo”
Disp “x é zero”
Else
Disp “x é negativo”
End
22
ABR15
9
22
ABR15
9
Controlo: For
Situação: Comecei em 5º numa corridaAcção:
Para o corredor de 1 a 4Apanha-loUltrapassá-lo
22
ABR15
10
22
ABR15
10
Controlo: For
TI-NSpire Voyage Ti-84
For i,1,10,1
2^i → a
Disp “&string(a)&”
EndFor
For i,1,10,1
2^i → a
disp ‘’&string(a)&’’
Endfor
For(i,1,10,1)
2^i → a
Disp a
End
22
ABR15
11
22
ABR15
11
Controlo: While
Problema: Hoje quero ganhar um prémioSolução:
Enquanto não ganhar prémio:Comprar uma raspadinhaRaspar a raspadinhaVer se ganhei prémio
22
ABR15
12
22
ABR15
12
Controlo: While
TI-NSpire Voyage 200 TI-84
no_da_sorte := 7
a := randInt (1,100)
While no_da_sorte ≠ a
a := randInt(1,100)
Disp “Tenta novamente”
EndWhile
Disp i
no_da_sorte = 7
a = rand(100)
While a≠no_da_sorte:
a = rand(100)
Disp “Tenta novamente”
EndWhile
Disp “Precisei de “&string(i)&” tentativas para ganhar”
N=7
randInt(100,1)→A
While A≠N
randInt(100,1)→A
Disp “Tenta novamente”
End
Disp “Precisei de i
tentativas para ganhar”
Disp i
22
ABR15
13
22
ABR15
13
Controlo: Go To Label
Saltar entre partes do programa.
Situação comum:Após correr uma parcela do programa, voltar ao início (menu geral do programa)
22
ABR15
14
22
ABR15
14
Controlo: Go To Label
TI - NSpire Voyage 200 TI-84
randInt(1,2)→aIf a=1 ThenGoto 1Disp "Cara"StopLbl 1Disp "Coroa"EndIf
rand(2)→aIf a=1 thenGoto Caraelseif a=2 thenGoto CoroaEndIf
Lbl CaraDisp “Cara”
Lbl CoroaDisp “Coroa”
randInt(1,2)→AIf A=1Goto 1Disp “Cara”StopLbl 1Disp “Coroa”End
22
ABR15
16
22
ABR15
161616
Ex 1 - Calcular a Inércia de um perfil
retangular
Título: Calcular a Inércia de um perfil retangular
Input: Pedir as medidas geométricas do perfil
b – base (m)h – altura (m)
Fazer o cálculo (expressão): (b*h^3)/12
Output: Mandar a Inércia
22
ABR15
17
22
ABR15
171717
Ex 2 - Calcular a Inércia de um perfil
triangular
Título: Calcular a Inércia de um perfil triangular
Input: Pedir as medidas geométricas do perfil
b – base (m)h – altura (m)
Fazer o cálculo (expressão): (b*h^3)/36
Output: Mandar a Inércia
22
ABR15
18
22
ABR15
181818
Ex 3 - Calcular a Inércia de um perfil
circular
Título: Calcular a Inércia de um perfil circular
Input: Pedir as medidas geométricas do perfil
r – raio (m)
Fazer o cálculo (expressão): (pi*r^4)/4
Output: Mandar a Inércia
22
ABR15
19
22
ABR15
191919
Ex 4 - Juntar programas
Título: Calcular inércia de retângulo, triângulo ou círculo
Input: Pedir qual a secção a calcular
Segundo o input, ir buscar o programa correspondente
Output: Mandar a inércia
22
ABR15
20
22
ABR15
202020
Ex 5 - Cálculo de Médias
Título: Calcular a média de 3 notas
Input: Pedir 3 notasx1 – 1ª notax2 – 2ª notax3 – 3ª nota
CondiçõesSe x1,x2,x3 < 20 e x1,x2,x3 > 0 então:
Fazer o cálculo da média (M):
Se M >= 10,0 então
Output: “Aprovado”
Se M =< 5,0 então
Output: “Reprovado”
Se 5,0 < M < 10,0 então
Output: “Possibilidade de ir a recurso”
Fim
SenãoOutput: “Erro (as notas têm
que estar compreendidas entre 0 e 20)”Fim
22
ABR15
21
22
ABR15
212121
Ex 6 - Função
Título: Definir função em que calcula a área de um círculo dado o seu diâmetro
Definir:area(diam) = (pi*diam^2)/4
Top Related