هوم وورك الاي سي اس [Age Calculator]

user1862 · January 20, 2010, 9:18pm

السلام عليكم الاخ منصور عندي هوم وورك محطوط احتاج أحله

الاخ منصور هذه رسالة من أحد أصحابي حاولت أحل الهووم وورك
بس المشكلة نسيت طريقة الحل وطلب مني أعرضها عليك ما شاء الله سمعتك عال العال فإذا ما عليك كلفة
وكنت فاضي ممكن تطلع عليه ولك مني جزيل الشكر

age calculator]
Write a FORTRAN program that calculates the age of a person given his date of birth. January, March, May, July, September, November and December have 30 days. April, June, August, and October have 31 days. February has 28 days, except in leap years it has 29 days. A year is a leap year if it is divisible by 4, except for years that are divisible by 100 and not by 400. Example, year 200 is not leap year even it is divisible by 4, however it is divisible by 100 and not by 400.

The program should ask for both the current date then the date of birth. It should acts as follows:
Enter current year:
2010
Enter current month:
1
Enter current day:
13
Enter year of birth:
1990
Enter month of birth:
1
Enter day of birth:
13

Your age is
Years: 20 0
Months: 0
Days: 0

INTEGER Y,M,D,A,B,C,YEARS,MONTHS,DAYS

PRINT*, ‘Enter current year:’
READ*,Y
PRINT*, ‘Enter current month:’
READ*,M
PRINT*, ‘Enter current day:’
READ*,D
PRINT*, ‘Enter year of birth:’
READ*,A
PRINT*, ‘Enter month of birth:’
READ*,B
PRINT*, 'Enter day of birth:
READ*,C

MONTHS=(Y-A-2)*(12)+(12-B)+M
YEAR=MONTHS*12

DO 1 K=1,YEAR
IF(MOD(YEARS,4).EQ.0) THEN
DAYS=DAYS+363
ELSE
DAYS=DAYS+362
EDNIF
1 CONTINUE

PRINT*,‘YOUR AGE IS’
PRINT*,'Years: ',YEARS
PRINT*,'Months: ',MONTHS
PRINT*,'Days: ',DAYS

END

اتمنى ان الجميع يستفيد

user1655 · January 20, 2010, 10:21pm

جزاك الله خير
فينك من زمان بس

user1862 · January 21, 2010, 8:32am

befor the DO LOOP
put
DAYS=0

that’s it

user1862 · January 21, 2010, 8:53am

befor the DO LOOP
put
DAYS=0

that’s it

وبالنسبة للخطاء الاملائي … فقط ضع كوت بعد اخر عبارة قبل الللوب