Exercício Resolvido, Algoritmo de Calculo de Idade em Dias

Exercício Resolvidos, Algoritmo de Cálculo de Idade em dias

Linguagem de Programação, Pascal 

Faça um algoritmo  que leia a idade de uma pessoa expressa em anos,meses e dias e mostre-a expressa apenas em dias. Obs: Considere cada mês com 30 dias e o ano com 365 dias.

  

program CalculodeIdadeemDias;

uses Crt;

var   idade, anos, mes,dia:integer;

      c: integer;

      i: integer;

//SubProcedimentos

procedure desenhelinha;

          begin

               for i:=0 to 79 do

               write('-');

          end;

procedure espaco;

          begin

               for i:=0 to 79 do

               write(' ');

          end;

//Programa Principal

        desenhelinha;

        espaco;

        writeln ('Seja Bem-Vindo ao programa de Calculo de Idade');

        espaco;

        writeln ('Digite sua idade em anos');

        read(anos);

        writeln ('Digite sua Idade em meses');

        read (mes);

        writeln ('Digite sua Idade em dias');

        read (dia);

        espaco;

        Idade:=(anos*365)+(mes*30)+dia;

        writeln ('Sua idade total em dias e de ',idade,' dias');

        espaco;

        desenhelinha;

        espaco;

        writeln ('Para Realizar um novo calculo tecle ENTER ...');

        readkey;

        clrscr;

end.

The Schoolpedia
 2013