Programação em Fortran - aula3, Notas de aula de Engenharia Metalúrgica

Baixe Programação em Fortran - aula3 e outras Notas de aula em PDF para Engenharia Metalúrgica, somente na Docsity!

Repetição

Repetição com contador

DO varControle = valorInicial, valorFinal, [passo] instruções END DO

Exemplo

program contadores integer :: i, j, k integer :: limite= do i=1,limite, write(,) "contador=", i end do end program contadores

Exemplo

program contadores integer :: i, j, k integer , parameter :: limite= do i=1,limite, write(,) "contador=", i end do end program contadores

Exercício

● Faça um programa que leia 10 números digitados pelo usuário e imprima estes números na tela

Exercício

● Faça um programa que leia um número, que representa uma quantidade de palavras a serem digitadas. O programa deve então ler estas palavras e imprimilas na tela

Exercício

● Faça um programa que calcule o fatorial de um número informado pelo usuário

Exercício

● Faça um programa que leia dois números e imprima todos os números pares entre estes números em ordem decrescente

Exercício Poss ível?

● Faça um programa que leia e imprima números digitados pelo usuário. O programa deve parar quando o o usuário digitar um número negativo

Repetições sem contador

DO

instruções END DO

Como resolver este problema

Uma das instruções dentro do laço deve determinar a parada Comando Exit → determina a parada do laço mais interno

program doInfinito integer :: i do write(,)"digite um número" read (,)i if (i <0) exit write (,)"o número digitado foi ",i end do end program doInfinito

Lidando com laços (loops)

aninhados

do write(,)"digite uma nota" read (,)i if (i==1) exit soma=soma+i numAlunos = numAlunos+ end do

Lidando com laços (loops)

aninhados

write(,)"a média desta turma é ", (soma/numAlunos) write(,)"digite 1 para sair do programa ou qualquer outro valor para calcular a média de outra turma" read (,)i if (i==1) exit end do end program doisLoops