Baixe o app para aproveitar ainda mais
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.
Compartilhar