تسجيل الدخول

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


mimo-dz
2014-01-01, 13:14
السلام عليكم

اكتب برنامج تعطيه اليوم و التاريخ و الشهر مثلا
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
2014-01-01, 14:55
اين انتم يا محترفي الباسكال ارجو المساعدة جزاكم الله الف خير

في انتظاركم

mimo-dz
2014-01-01, 21:53
ساعدوني يا اخوان وين راكم

younestari
2014-01-01, 22:21
سلام خو نورمالمو درناه دوك نحوسلك عليه ماتتقلقش

younestari
2014-01-01, 23:54
;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
2014-01-02, 11:54
اخطاء كتابية فقط هدا تاع شهر فيفري يعني تجرب كفاش تخدم عليه

mimo-dz
2014-01-02, 12:20
باراك الله فيك خويا لعزيز دوك نزيد نشوف معاه

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