Exercícios de Programação em Pascal

Prévia do material em texto

Fundamentos da 
Computação 
Priscilla Fonseca de Abreu Braz 
turmas_uerj@yahoo.com.br 
 
Universidade do Estado do Rio de Janeiro 
Instituto de Matemática e Estatística 
Exercícios 
1) Elabore um programa pascal para determinar o fatorial de um 
valor lido. Utilize uma função. 
 
2) Construa um programa que leia dois números inteiros positivos e 
utilize uma função para encontrar o MMC (Mínimo Múltiplo Comum) 
entre eles. 
 
3) Faça um programa que leia 2 valores e chame uma sub-rotina 
(procedure) que receba estas 2 variáveis e troque o seu conteúdo, ou 
seja, esta rotina é chamada passando duas variáveis A e B por 
exemplo, e após a execução da rotina A conterá o valor de B e B terá 
o valor de A. 
Obs.: Utilize passagem por referência. 
 
Exercícios 
program mmc_; 
uses Crt; 
var 
 n1,n2:integer; 
function mmc(a,b:integer):integer; 
var 
 achou:boolean; 
 i:integer; 
begin 
 achou:=false; 
 if (a>b) then i:=a else i:=b; 
 while (achou=false) and (i<a*b) do 
 begin 
 if (i mod a=0) and (i mod b=0) then 
 begin 
 mmc := i; 
 achou:=true; 
 end; 
 i++; 
 end; 
 if (achou=false) 
 mmc:=a*b; 
end; 
begin 
 write('Digite um número: '); 
 readln(n1); 
 write('Digite um número: '); 
 readln(n2); 
 writeln('MMC(',n1,' ',n2,'): ',mmc(n1,n2)); 
 readkey; 
end. 
Exercícios 
1) Elabore um programa pascal para determinar o fatorial de um 
valor lido. Utilize uma função. 
 
2) Construa um programa que leia dois números inteiros positivos e 
utilize uma função para encontrar o MMC (Mínimo Múltiplo Comum) 
entre eles. 
 
3) Faça um programa que leia 2 valores e chame uma sub-rotina 
(procedure) que receba estas 2 variáveis e troque o seu conteúdo, ou 
seja, esta rotina é chamada passando duas variáveis A e B por 
exemplo, e após a execução da rotina A conterá o valor de B e B terá 
o valor de A. 
Obs.: Utilize passagem por referência. 
 
Exercícios 
program troca_ab; 
Uses Crt; 
var 
 a,b:integer; 
procedure troca(var x,y:integer); 
var 
 aux:integer; 
begin 
 aux:=x; 
 x:=y; 
 y:=aux; 
end; 
begin 
 write('Digite o valor de a: '); 
 readln(a); 
 write('Digite o valor de b: '); 
 readln(b); 
 troca(a,b); 
 writeln('Os novos valores de a e b são: ',a,' e ',b); 
 readkey; 
end. 
Exercícios 
1)Faça um programa com uma sub-rotina (função) que 
calcule X elevado à Y = XY. Leia 2 valores de X e Y e exiba 
o resultado da chamada da sub-rotina na tela. Exemplo: 2 
elevado à 3 é igual à 2*2*2 = 8. 
 
2)Elabore um programa em Pascal que utilize um 
procedimento ou função que retorne ao programa principal 
um vetor com os três primeiros números perfeitos. Sabe-se 
que um número é perfeito quando é igual à soma dos seus 
divisores (exceto ele mesmo). Exemplo: os divisores de 6 
são: 1,2 e 3 e 1 + 2 + 3 = 6. Logo, 6 é perfeito. 
 
3) Faça um programa que implemente uma sub-rotina que 
receba um vetor A de 10 elementos inteiros como 
parâmetro e retorne ao programa principal um vetor B 
contendo o fatorial de cada elemento de A. O vetor B 
deverá ser mostrado no programa principal.