Listaexerc Algoritmos Repeticao B Solucao

Universidade Federal de Minas Gerais - UFMG
Instituto de Ciências Exatas - ICEx
Disciplina: Programação de Computadores
Professor: David Menoti ([e-mail])
Monitor: João Felipe Kudo ([e-mail])
Lista de Exercícios 03b – Algoritmos – Repetição
61) Escreva um algoritmo em PORTUGOL que receba números do usuário e imprima o triplo de cada número. O algoritmo deve encerrar quando o número –999 for digitado. algoritmo L3P061; var real : N; início leia(N); enquanto ( N ≠ -999 ) faça imprima(N*3); leia(N); fim-enquanto fim algoritmo L3P061B; var real : N; início repita: leia(N); se ( N ≠ -999 ) então imprima(N*3); fim-se enquanto ( N ≠ -999 ); fim program l3p061; var N: real; begin write('Digite um numero: '); readLn(N); while ( N <> -999 ) do begin writeLn(N*3); write('Digite um numero: '); readLn(N); end; end. program l3p061b; var N: real; begin repeat write('Digite um numero: '); readLn(N); if ( N <> -999 ) then writeLn(N*3); until ( N = -999 ); end. % N: integer;
N = input('Digite um numero: '); while ( N ~= -999 ) fprintf(1,N*3); N = input('Digite um numero: '); end UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 1

62) Escreva um algoritmo em PORTUGOL que receba números do usuário enquanto eles forem positivos e ao fim o algoritmo deve imprimir quantos números foram digitados. algoritmo L3P062; var real : N; inteiro : C; início C ← 0 ; leia(N); enquanto ( N > 0 ) faça
C ← C + 1; imprima(N*3); leia(N); fim-enquanto imprima("Foram digitados ",C," números!"); fim algoritmo L3P062B; var real : N; inteiro : C; início C ← 0; repita: leia(N); se ( N > 0 ) então
C ← C + 1; fim-se enquanto ( N > 0 ); imprima("Foram digitados ",C," números!"); fim program l3p062; var N : real;
C : integer; begin C := 0 ; write('Digite um numero: '); readLn(N); while ( N > 0 ) do begin C := C + 1; write('Digite um numero: '); readLn(N); end; writeLn('Foram digitados ',C,' numeros!'); end. program l3p062b; var N : real;
C : integer;