RespostasExerciciosFuncoes

INE5201 - INTRODUÇÃO À CIÊNCIA DA COMPUTAÇÃO

Exercícios sobre funções: exemplo de solução

1) Escreva uma função que retorne 1 se um número passado por parâmetro for primo e 0 em caso contrário. Faça um programa que utilize esta função.

function ehprimo(N:integer):integer; var I,cont:integer; begin cont:=0; for I:=1 to N do if N mod I = 0 then cont:=cont+1; if cont <= 2 then ehprimo:=1 else ehprimo:=0; end;
{--- programa principal---} var I:integer; begin repeat write('informe um numero inteiro positivo: '); readln(I); until I>0; If ehprimo(I)=1 then writeln(I, ' eh numero primo') else writeln(I,' nao eh numero primo'); readln; end. Exemplo de solução usando uma função do tipo boolean:

function ehprimo(N:integer):boolean; var I,cont:integer; begin cont:=0; for I:=1 to N do if N mod I = 0 then cont:=cont+1; if cont <= 2 then ehprimo:=true else ehprimo:=false; end;
{--- programa principal---} var I:integer; begin repeat write('informe um numero inteiro positivo: '); readln(I); until I>0; If ehprimo(I) then writeln(I, ' eh numero primo') else writeln(I,' nao eh numero primo'); readln; end. 2) O número 3025 possui a seguinte característica:

30
552
+
25
=
=
55
3025
Faça um programa que pesquise e imprima todos os números de quatro algarismos que apresentam tal característica. Utilize uma função para determinar se um número apresenta esta característica.

function fun(N:integer):boolean; var p1,p2:integer; begin p1:=N div 100; p2:= N mod 100; if (p1+p2)*(p1+p2) = N then fun:=true else fun:=false; end;
{--- programa principal---} var I:integer; begin for I:=1000 to 9999 do If fun(I) then writeln(I); readln; end. 3) Escreva uma função que calcule o cosseno de um ângulo entre 0 e pi/2 radianos utilizando os primeiros 30 termos da série:

...

Faça um programa que utilize esta função para mostrar na tela o cosseno