Conteudo sobre conceitos basicos de eletricidade

Exercicios resolvidos de fortran
(Parte 1 de 2)

Prof. José Augusto Lucas Matos Pág. 1 de 7
1. Dados os valores de vendas (S), calcular e imprimir o lucro (M), a comissão (C) E o lucro bruto (G). As fórmulas a serem empregadas são:
O valor de S deverá ser lido. Se o valor de S for igual ou inferior a zero, parar o programa. Caso contrário imprimir os valores de S, C, G e N.
2. Escrever um programa para calcular os juros simples de um capital durante certo número de anos.
Usar a fórmula:
J = C * i * t onde :
C = capital i = taxa t= tempo Deverão ser lidos de “n” registros os valores de C, i e T.
A saída deverá ser:
CONT = 0 LER N REPEAT LER C,I,T J = C*I*T IMPRIMA “ Capital = “,C ,” Taxa = “,I“ Tempo = “,T,’ Juros = ‘,j CONT=CONT+1 UNTIL (CONT = N)
3. A resistência total é de "n" resistores R1, R2, | Rn, em paralelo é dada pôr : |
1/R = 1/R1 + 1/R2 + | + 1/Rn |
Escrever um programa para calcular R. Os valores de R1, R2, | , Rn e "n", deverão |
Prof. José Augusto Lucas Matos Pág. 2 de 7 ser lidos.
I=1 LER=N REPEAT LER R(I) INV=1/R(I) + INV I=I+1 UNTIL(I=N) IMPRIMA INV
4. Escrever um programa que leia vários valores de A, B e C e verifique se os números formam um triângulo.

ESCREVA A,B,C,” Formam triangulo” ELSE
ESCREVA A,B,C,” Não formam triangulo” END IF CONT=CONT+1 UNTIL (CONT=N)

Prof. José Augusto Lucas Matos Pág. 3 de 7
5. Escrever um programa que leia os valores de A, B e C e:
a) Verifique se formam triângulo. b) Se formarem, classifica-los quanto aos lados, identificando também se são retângulos ou não.
IMPRIMA A,B,C,” Não formam um triangulo Eqüilátero” ELSE IF ((A=B) .AND. (B=C) THEN
IMRIMA A,B,C,” Formam um triângulo Eqüilátero” ELSE IF((A=B).OR.(B=C).OR(A=C)) THEN
IMPRIMA A,B,C, “ Formam triangulo Isósceles” ELSE
IMPRIMA A,B,C, “ Formam triângulo Escaleno” END IF END IF END IF UNTIL (CONT = N)
6. A altura vertical de um projétil e dada pôr:
V0 é a velocidade inicial do projétil G é a aceleração da gravidade (9.82 m/s2)
T é o tempo em segundos.
Lendo-se V(0) calcular a altura do projétil para cada 0.1 de segundo.
Solução:
LER V0,T TEMPO=0 REPEAT TEMPO + TEMPO + 0,1 S=V0*T – ((9,82*T**2)/2) IMPRIMA S UNTIL TEMPO + T
Prof. José Augusto Lucas Matos Pág. 4 de 7
7. Fazer um programa para calcular o fatorial de "n" números X.
LER N CONT = 0 REPEAT FAT = 1 LER X AUX = 1 REPEAT FAT = FAT * AUX AUX = AUX + 1 UNTIL (AUX =X) IMPRIMA FAT COT=CONT+1’ UNTIL (CONT=N)
8. Escrever um programa para calcular o número de N objetos tomados R a R, onde:
lidos.ser | devemR e N que sendo )(!! |
rnr nCr n
LER N,R DEN=N-R NUM=0 FATN=1 REPEAT NUM=NUM+1 FATN=FATN*NUM UNTIL (NUM=N) NUM=0 FATR=1 REPEAT NUM=NUM+1 FATR=FATR*NUM UNTIL (NUM=R) NUM=0 FATDEN=1 REPEAT NUM=NUM+1 FATDEN=FATDEN*NUM UNTIL (NUM=DEN) C=FATN/(FATR*FATDEN) IMPRIMA C
Prof. José Augusto Lucas Matos Pág. 5 de 7
1. Os deslocamentos horizontal e vertical de um corpo projetado num ângulo θ (teta) com o eixo dos Xs são dados pôr:
)2 GT T x sen(xVY xT)(cosxVX 2
Escrever um programa que leia os valores de V(0), e O e imprima a tabela abaixo para o tem po variando de 1 em 1 segundo.
LER V0,T,TETA G=9,81 TEMPO=0 IMPRIMA “V0= “,V0,” TETA= “,TETA,” TEMPO= “,T REPEAT TENPO=TENPO+1 X=V0*Cós(TETA)*TEMPO Y=V0*(Sem(TETA)*TEMPO-(G*T**2)/2) IMPRIMA TEMPO,X,Y UNTIL (TEMPO=T)
10. O aumento da população de uma cultura de bactérias em função do tempo é diretamente proporcional ao tamanho da população. Matematicamente, a população a qualquer momento poderá ser expressa pôr:
onde :
T = tempo em horas P(0) = população de bactérias no tempo de referência P = população de bactérias num instante de tempo T
Calcular o fator de multiplicação da população P/P(0), depois de decorridos 2, 5, 10, e 50 horas, considerando-se os 10 primeiros termos da série.
Prof. José Augusto Lucas Matos Pág. 6 de 7
Solução:
LER P0,T CONT=0
REPEAT CONT = CONT+1 TERMO=0 FAT=1 FATOR=1 REPEAT TERMO=TERMO+1 FAT=FAT*TERMO UNTIL (TERMO=T)
FATOR=P/P0 IMPRIMIR FATOR
1. Calcular a soma dos 100 primeiros números ímpares (sem a utilização de fórmulas). SOLUÇÃO:
SOMA=0 QUANT=0 A=1 REPEAT SOMA=SOMA+A A=A+2 QUANT=QUANT+1 UNTIL (QUANT=100) IMPRIMA SOMA
12. Escrever o algoritmo e um programa FORTRAN que calcule os elementos de um conjunto numérico contendo 8 linhas e 10 colunas através da expressão :
(Parte 1 de 2)