19/03/16 16:27
Mr X
Ciao a tutti, sono nuovo in questo forum volevo chiedervi se mi potevate dare una mano a perfezionare un programma.
ovvero:
program differenza_date;
uses crt;
var
g1,m1,a1:integer;
g2,m2,a2:integer;
giorni:real;
begin
clrscr;
g1:=1;
m1:=1;
a1:=1970;
repeat
writeln('inserisci il giorno tra 1 e 30: ');
readln(g2);
until g2<=30;
repeat
writeln('inserisci il numero del mese: ');
readln(m2);
until m2<=12;
writeln('inserisci anno: ');
readln(a2);
giorni:=((a2-a1)*360+(m2-m1)*30+(g2-g1));
writeln('tra le due date son trascorsi giorni: ',giorni:9:0);
readln;
end.
All'interno di esso mancano diverse cose come ad esempio i mesi (da quanti giorni sono formati) e dovrei aggiungere nel calcolo anche gli anni bisetili.
Aiuto sono disperato
ovvero:
program differenza_date;
uses crt;
var
g1,m1,a1:integer;
g2,m2,a2:integer;
giorni:real;
begin
clrscr;
g1:=1;
m1:=1;
a1:=1970;
repeat
writeln('inserisci il giorno tra 1 e 30: ');
readln(g2);
until g2<=30;
repeat
writeln('inserisci il numero del mese: ');
readln(m2);
until m2<=12;
writeln('inserisci anno: ');
readln(a2);
giorni:=((a2-a1)*360+(m2-m1)*30+(g2-g1));
writeln('tra le due date son trascorsi giorni: ',giorni:9:0);
readln;
end.
All'interno di esso mancano diverse cose come ad esempio i mesi (da quanti giorni sono formati) e dovrei aggiungere nel calcolo anche gli anni bisetili.
Aiuto sono disperato
aaa