Alunota11

Download de Livros, Apostilas e literatura em geral!


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

Admin

avatar
Admin
Fazer um Algoritmo para calcular o número de dias decorridos entre duas datas(considerar também a ocorrência de anos bissextos, sabendo-se que:

Pode-se ler vários pares de datas até que apareça um número de dias negativo para alguma das datas (critério de parada);

A primeira data lida do par é sempre a mais antiga;

Um ano de bissexto se for divisível por 400, ou se for divisível por 4 e não por 100.

http://alunota11.blogspot.com.br

Admin

avatar
Admin
Programa incompleto!
MOSTRAR/OCULTAR:
Program Pzim ;
var dia1,mes1,ano1,dia2,mes2,ano2,ndia,nmes,nano:integer;
Begin
writeln('Digite o dia da primeira data');
readln(dia1);
writeln('O mês');
readln(mes1);
writeln('O ano');
readln(ano1);

writeln('Digite o dia da segunda data');
readln(dia2);
writeln('O mês');
readln(mes2);
writeln('O ano');
readln(ano2);

nano:= ano2 - ano1;
nmes:= mes2 - mes1;
ndia:= dia2 - dia1;

writeln('Tempo percorrido de: ', nano, ' anos, ', nmes,' meses e ', ndia, ' dias');
nano:= (nano * 365);
writeln(nano);
 
End.




CÓDIGO ATUALIZADO(MAS AINDA INCOMPLETO T.T, TÁ PRÓXIMO DA FINALIDADE)
MOSTRAR/OCULTAR:
Program Pzim ;
var dia1,mes1,ano1,dia2,mes2,ano2,ndia,nmes,cont,nano:integer;
Begin
writeln('Digite o dia da primeira data');
readln(dia1);
writeln('O mês');
readln(mes1);
writeln('O ano');
readln(ano1);

writeln('Digite o dia da segunda data');
readln(dia2);
writeln('O mês');
readln(mes2);
writeln('O ano');
readln(ano2);

nano:= ano2 - ano1;
nmes:= mes2 - mes1;
ndia:= dia2 - dia1;

writeln('Tempo percorrido de: ', nano, ' anos, ', nmes,' meses e ', ndia, ' dias');
nano:= (nano * 365);

if(cont mod 4 = 0) then
cont:=cont+1;
nano:=nano+cont+ndia;
writeln(nano);

End.

http://alunota11.blogspot.com.br

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum