Martinsrj Postado Setembro 12, 2007 Denunciar Share Postado Setembro 12, 2007 Com o Codigo abaixo não estou conseguindo exibir o ano da data de nascimento.program exemplo;uses crt;procedure leitura (var idade:integer);beginwriteln ('Digite idade');readln (idade);end;procedure calculo (idade: integer; var result: integer);beginresult:= 2007 - idade;end;procedure imprime (result: integer);beginwriteln (result);end;varage: integer;resp: integer;beginclrscr;leitura (age);imprime (resp);readkey;end. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 raphael_suporte Postado Setembro 12, 2007 Denunciar Share Postado Setembro 12, 2007 o que aparece? da alguma mensagem de erro? você precisa usar essa procedures?beginclrscr;leitura (age);imprime (resp);readkey;end. aqui você saiu da linguagem em pascal...PS: crie apenas um tópico Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Martinsrj Postado Setembro 12, 2007 Autor Denunciar Share Postado Setembro 12, 2007 CertoEstou estudando na faculdade modularização e com isso gostaria de saber do porque não está mostrando o ano.Por exemplo:Digito a minha idade: 27 e logo teria que me informar o ano: 1980, porem aparece o numero zero (0) apenas.Desde já agradeço aí pela ajuda. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Martinsrj
Com o Codigo abaixo não estou conseguindo exibir o ano da data de nascimento.
program exemplo;
uses crt;
procedure leitura (var idade:integer);
begin
writeln ('Digite idade');
readln (idade);
end;
procedure calculo (idade: integer; var result: integer);
begin
result:= 2007 - idade;
end;
procedure imprime (result: integer);
begin
writeln (result);
end;
var
age: integer;
resp: integer;
begin
clrscr;
leitura (age);
imprime (resp);
readkey;
end.
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.