Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2at TECH

Pascalの宿題は俺にやらせろ！！Part2 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

868:デフォルトの名無しさん
 09/01/11 21:16:31 
>>863 
で、どの課題が残ってるのかね？

869:デフォルトの名無しさん
 09/01/12 22:18:35 
program prog1(input, output); 
var i ,x1,x2,x3,y1,m1,d1,y2,m2,d2: integer; 
 
　function calcd(y,m,d:integer):integer; 
　var i,leapday,years,days,mdays:integer; 
　begin 
　　years := y-1; 
　　days := d; 
　　days := days + years * 365; 
　　days := days + trunc (years/4) - trunc (years/100) + trunc (years/400); 
　　if ( (y mod 4 =0)  and (y mod 100 <>0) and (y mod 400 =0) ) then 
　　　　leapday := 1 
　　else 
　　　　leapday := 0; 
　　for i:=1 to m - 1 do begin 
　　　　case i of  
　　　　　1,3,5,7,8,10,12 : mdays := 31; 
　　　　　4,6,9,11 : mdays := 30; 
　　　　　2 : mdays := 28 + leapday ; 
　　　　end; 
　　　　days := days + mdays; 
　　end; 
 calcd:=days; 
　end;  
 
begin 
　　writeln('next birthday'); write('year=');readln(y1); write('month=');readln(m1); write('day=');readln(d1); 
　　writeln('today'); write('year=');readln(y2); write('month=');readln(m2); write('day=');readln(d2); 
　　x1:=calcd(y1,m1,d1); x2:=calcd(y2,m2,d2); x3:=x1-x2; 
　　write('tanjobi made ',x3,' nichi');  
end.

次ページ