ارجوا المساعدة في هذا التمرين pascal ضروري اخواني ^^pascal

[mimo-dz]

السلام عليكم

اكتب برنامج تعطيه اليوم و التاريخ و الشهر مثلا
jour=18
mois=07
année=1950
يعطيك يوم مثلا السبت او الاحد او الاثنين

مع احترام السنة في شهر فيفري 28 او 29

استعانة بهاذه العمليات

j=( jour + a + ( a div 4 )-( a div 100 )+( a div 400 )+( 31*m div 12 )) mod 7

c=(14 - mois )/12

c=1 pour janvier et pour les autres mois c=0

a=année-c

m=mois + ( 12*c )-2

و الايام تكون case of

توصلت للحل algorithme لكن في الباسكال صعب قليلا

ارجو الحل بسرعة اخوتي شكراا

[mimo-dz]

اين انتم يا محترفي الباسكال ارجو المساعدة جزاكم الله الف خير

في انتظاركم

[mimo-dz]

ساعدوني يا اخوان وين راكم

[younestari]

سلام خو نورمالمو درناه دوك نحوسلك عليه ماتتقلقش

[younestari]

;program mois
;var nbr,mois,anne;integer
begin
;(writlen('entrez le mois
;(readln(mois
cas mois of
31= :1,3,5,7,8,10,12
;30=4,6,9,11:nbr:
.end.
;(writlen('entrez annee
;(readln(annee
;if mois=2 and annee mod4=0 then
;29=:nbr
els
;28=;nbr
.end
;('writlen('le nbr dejour du mois',est',29
;(readln(29
.end
هدا الحل يشبه لتمرين اللي حطيتو وشوف كيفاش تخدم عليه لكن فيه بعض الاخطاء وشكرا

[younestari]

اخطاء كتابية فقط هدا تاع شهر فيفري يعني تجرب كفاش تخدم عليه

[mimo-dz]

باراك الله فيك خويا لعزيز دوك نزيد نشوف معاه

خاوتي لي يقدر يزيدلي كاش معلومة ما يبخلنيش الله يحفظكم