domingo, 5 de junho de 2011

Exercicio 2 de funções

Program soma ;
{Fazer um programa para ler três  numeros e chamar uma função que retorna
a soma dos numeros}

{variaveis globlais, usadas no algoritmo}
var
n1,n2,n3:integer;     // variaveis do numeros que serão digitados
r_soma:real;        // variavel que recebe o retorno da função

{lembrando que primeiro fazemos o algoritmo, depois é que inserimos a função
    recomendamos o uso de rascunho e detalhar cada parte antes de montar o programa}
   
//inicio da função
function soma(x1,x2,x3:integer):real;
        begin
            soma:=(x1 + x2 + x3);
        end;
//fim da função

{começamos por aqui, depois fazemos a função
    a função está em cima, pois ela deve está entre as variaveis e o begin do algoritmo}

//inicio do algoritmo
 Begin
     writeln('Digite 3 numeros a serem somados: ');     // solicita os 3 numeros
     readln(n1,n2,n3);                            // recebe os 3 numeros
     r_soma:=soma(n1,n2,n3);        // atribui a variavel r_soma o resultado da função chamada

     writeln(' A soma dos numeros ', n1,',',n2,',',n3,' é : ',r_soma:5:2);
     //exibe o resultado
 End.