Questões de pascal

Universidade Federal de Ouro Preto – UFOP Instituto de Ciências Exatas e Biológicas – ICEB Departamento de Computação – DECOM Disciplina: Algoritmos e Estrutura de Dados I – CIC102 Professor: David Menotti ([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

UFOP – ICEB – DECOM – 2º. Sem 2008 – David Menotti

1

Universidade Federal de Ouro Preto – UFOP Instituto de Ciências Exatas e Biológicas – ICEB Departamento de Computação – DECOM Disciplina: Algoritmos e Estrutura de Dados I – CIC102 Professor: David Menotti ([e-mail]) 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 ;