مناقشة وظيفة البرمجة 1 السابعة

كل ما يتعلق بمادة البرمجة 1 من استفسارات و مناقشات و محاضرات...........

المشرف: Ghais

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة Ghais » السبت نوفمبر 27, 2010 12:04 am

الطلب الرابع هو عبارة عن مصفوفة أحادية البعد, تحتوي على أربع عناصر / أربع خانات

أولاً يجب إيجاد أكبر قيمة للراتب الأساسي, وبعد إيجادها تخزينها في الخانة الأولى من هذه المصفوفة

ثانياً : البحث عن أعلى قيمة تعويضات ورقم الموظف الموافق لهذه القيمة, ثم تخزين رقم الموظف في الخانة الثانية من هذه المصفوفة

ثالثاً : البحث عن أقل قيمة حسميات ورقم الموظف الموافق لهذه القيمة, ثم تخزين رقم الموظف في الخانة الثالثة من المصفوفة

رابعاً : جمع الرواتب الإجمالية لكل الموظفين وتقسيمها على عددهم (المتوسط) وتخزين هذه القيمة في الخانة الرابعة من المصفوفة

طبعاً التعليمات الخاصة بمعرفة هذه القيم يمكن أن تكتب في حلقة for جديدة ولكن يفضل أن تكتب في حلقة الـ for الخاصة بالطلب السابق (أي أثناء إدخال القيم يتم حساب أكبر قيمة وأصغير قيمة وهذه الأمور)
Ghais Zaher
ghais.speedy@gmail.com

syrian es

صورة العضو الشخصية
Ghais
مشرف منتديات السنة الأولى
مشرف منتديات السنة الأولى
 
مشاركات: 685
اشترك في: الجمعة أكتوبر 01, 2010 1:38 am
الجتس: ذكر
الشهادة الثانوية: سورية (علمي)
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة Ghais » السبت نوفمبر 27, 2010 12:08 am

الطلب الخامس هو عبارة عن طباعة أرقام إلى جانب بعضها

يعني أول شي بتطبعي العنصر الأول من مصفوفة "أرقام الموظفين" (يعني رقم أول موظف), وجنبو العنصر الأول من مصفوفة "الراتب الإجمالي" (الراتب الإجمالي لأول موظف)... العنصر الأول من مصفوفة "التعويضات" , العنصر الأول من مصفوفة الحسميات... العنصر الأول من مصفوفة "إجمالي الراتب"
بعدين عالسطر اللي بعدو...
العنصر الثاني من مصفوفة الراتب الإجمالي... وجنبو... وهيك

وهاد كللو بحلقة for وحدة

وبعدين حلقة for تانية لكتابة المصفوفة الأخيرة واللي فيها 4 عناصر
بتطلعي أول عنصر, وجنبو تاني عنصر,,, والتالت ,, والرابع


طبعاً لا تنسي تحطي فراغات بين كل عنصر وعنصر إذا عم ينطبعوا جنب بعض

موفقين
Ghais Zaher
ghais.speedy@gmail.com

syrian es

صورة العضو الشخصية
Ghais
مشرف منتديات السنة الأولى
مشرف منتديات السنة الأولى
 
مشاركات: 685
اشترك في: الجمعة أكتوبر 01, 2010 1:38 am
الجتس: ذكر
الشهادة الثانوية: سورية (علمي)
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة ado » السبت نوفمبر 27, 2010 12:50 am

Ghais كتب:الطلب الخامس هو عبارة عن طباعة أرقام إلى جانب بعضها

يعني أول شي بتطبعي العنصر الأول من مصفوفة "أرقام الموظفين" (يعني رقم أول موظف), وجنبو العنصر الأول من مصفوفة "الراتب الإجمالي" (الراتب الإجمالي لأول موظف)... العنصر الأول من مصفوفة "التعويضات" , العنصر الأول من مصفوفة الحسميات... العنصر الأول من مصفوفة "إجمالي الراتب"
بعدين عالسطر اللي بعدو...
العنصر الثاني من مصفوفة الراتب الإجمالي... وجنبو... وهيك

وهاد كللو بحلقة for وحدة

وبعدين حلقة for تانية لكتابة المصفوفة الأخيرة واللي فيها 4 عناصر
بتطلعي أول عنصر, وجنبو تاني عنصر,,, والتالت ,, والرابع


طبعاً لا تنسي تحطي فراغات بين كل عنصر وعنصر إذا عم ينطبعوا جنب بعض

موفقين


بس بعد اذنك ضروري هاد الترتيب شي لانو انا كاتب

الموظف الاول رقمو كذا راتبو كذا تعيضو كذا الحسم كذا
الموظف الثاني .............. وهكذا

و اخر شي كاتب
ارقم الموظفين
الراتب
التعويض
وهكذا

سلام
Well someday love is going to lead you back to me
But till it does I'll have an empty heart
So I'll just have to believe
Some where out there you're thinkin' of me
صورة العضو الشخصية
ado
عضو فعال
عضو فعال
 
مشاركات: 611
اشترك في: الأربعاء سبتمبر 29, 2010 2:00 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الأولى

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة Ghais » السبت نوفمبر 27, 2010 1:01 am

والله أنا بظن المطلوب أنو كل موظف يكون جنبو المعلومات الخاصة فيه.. هيك فهمت حسب مو موضح بالوظيفة

بس أنا ما فهمت عليك, انت طبعت كل موظف وجنبو معلوماتو.. ولا كل مصفوفة لحالا؟
ولا التنين سوا !!؟ :???:
Ghais Zaher
ghais.speedy@gmail.com

syrian es

صورة العضو الشخصية
Ghais
مشرف منتديات السنة الأولى
مشرف منتديات السنة الأولى
 
مشاركات: 685
اشترك في: الجمعة أكتوبر 01, 2010 1:38 am
الجتس: ذكر
الشهادة الثانوية: سورية (علمي)
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة ado » السبت نوفمبر 27, 2010 3:18 pm

Ghais كتب:والله أنا بظن المطلوب أنو كل موظف يكون جنبو المعلومات الخاصة فيه.. هيك فهمت حسب مو موضح بالوظيفة

بس أنا ما فهمت عليك, انت طبعت كل موظف وجنبو معلوماتو.. ولا كل مصفوفة لحالا؟
ولا التنين سوا !!؟ :???:


انا شو بالله انا هههههههههه :mrgreen: :wink2:

لا يا معلم بس حاس حالي طابع الطلبات عكس ما بدها الوظيفة

يعني الطلبات الأولى حاط كل موظف و معلوماتو

و الطلب الأخير حاط كل مصفوفة لحال

لاني شفت انو هيك ازبط :imb:

سلام
Well someday love is going to lead you back to me
But till it does I'll have an empty heart
So I'll just have to believe
Some where out there you're thinkin' of me
صورة العضو الشخصية
ado
عضو فعال
عضو فعال
 
مشاركات: 611
اشترك في: الأربعاء سبتمبر 29, 2010 2:00 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الأولى

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة ANAS SB » السبت نوفمبر 27, 2010 4:39 pm

شباب يمكن بالطلب الخامس من الوظيفة في خطأ , بدل الراتب الأجمالي الراتب الأساسي ,أو يمكن أنا فهمان غلط. ممكن التعليق :wink2:
لا إله إلا الله *****محمد رسول الله
صورة العضو الشخصية
ANAS SB
عضو فعال
عضو فعال
 
مشاركات: 537
اشترك في: الاثنين سبتمبر 27, 2010 7:20 pm
مكان: الدين لله والوطن للجميع
الجتس: ذكر
الشهادة الثانوية: علمي
الجامعة: جامعة دمشق
الكلية: كلية العلماء ITE
المرحلة الدراسية: السنة الثانية
الاختصاص: ذكاء صنعي

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة Ghais » السبت نوفمبر 27, 2010 4:41 pm

ANAS SB كتب:شباب يمكن بالطلب الخامس من الوظيفة في خطأ , بدل الراتب الأجمالي الراتب الأساسي ,أو يمكن أنا فهمان غلط. ممكن التعليق :wink2:


اي صح معك حق
Ghais Zaher
ghais.speedy@gmail.com

syrian es

صورة العضو الشخصية
Ghais
مشرف منتديات السنة الأولى
مشرف منتديات السنة الأولى
 
مشاركات: 685
اشترك في: الجمعة أكتوبر 01, 2010 1:38 am
الجتس: ذكر
الشهادة الثانوية: سورية (علمي)
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة ssss » السبت نوفمبر 27, 2010 4:57 pm

[Background=] :???: [/Background]لو سمحتو أنا حليت المسألة الأولى و إذا كانت متناضرة أو لا عم يطبعلي متناضرة وحطيت جوات حلقة الwhileإنو إذا الأول يساوي الأخير b:=trueوهكذا مع عدهدين واحد متناقص و واحد متزايد و إذا غير هيك b:=falseو أخر شي إذا trueاطبع متناضرة وين الغلط please[/size][/color][/color]
ssss
عضو جديد
عضو جديد
 
مشاركات: 22
اشترك في: الأربعاء نوفمبر 24, 2010 7:06 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الأولى
الاختصاص: غير ذلك

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة Ghais » السبت نوفمبر 27, 2010 5:07 pm

ssss كتب:[Background=] :???: [/Background]لو سمحتو أنا حليت المسألة الأولى و إذا كانت متناضرة أو لا عم يطبعلي متناضرة وحطيت جوات حلقة الwhileإنو إذا الأول يساوي الأخير b:=trueوهكذا مع عدهدين واحد متناقص و واحد متزايد و إذا غير هيك b:=falseو أخر شي إذا trueاطبع متناضرة وين الغلط please[/size][/color][/color]


الغلط أنك حاطط شرطين جوات الحلقة; إذا الأول يساوي الأخير بيصير المتحول True, وإذا لأ بيصير False

بهالحالة, على فرض عندك المصفوفة البسيطة التالية :

3 | 0 | 0 | 1


العدد الأول (3) لا يساوي العدد الأخير (1),,, المتحول رح يصير False,,, بعدين بيتحقق من العنصر اللي بعدو
العدد الثاني (0) يساوي العدد الثالث (0),,, المتحول رح يصير True,,, وبالتالي رح يطبعلك True مع أنو المصفوفة مو متناظرة


جرب تحط قبل حلقة الwhile :
b:=true

وبداخل الحلقة, حط شرط,, إذا كان العدد الأول لا يساوي العدد الأخير وقتها بيصير المتحول False

(بدون else)
Ghais Zaher
ghais.speedy@gmail.com

syrian es

صورة العضو الشخصية
Ghais
مشرف منتديات السنة الأولى
مشرف منتديات السنة الأولى
 
مشاركات: 685
اشترك في: الجمعة أكتوبر 01, 2010 1:38 am
الجتس: ذكر
الشهادة الثانوية: سورية (علمي)
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة ssss » السبت نوفمبر 27, 2010 5:34 pm

يا جماعة أنا حطيت حلقة whileو عدادين واحد بيزيد و التاني بينقص و إذا كان العنصر الأخير =الأول b:=trueوهكذا وإذا لا b:=falseو بعد ما طلعت من الحلقة كتبت إنو إذا كان b:=trueطباع متناضرة وإذه لا طباع لا و مع هيك عم يطبعلي دائما متناضرة وين الغلطplease :???:
ssss
عضو جديد
عضو جديد
 
مشاركات: 22
اشترك في: الأربعاء نوفمبر 24, 2010 7:06 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الأولى
الاختصاص: غير ذلك

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة ssss » السبت نوفمبر 27, 2010 5:42 pm

:imb: شكرا و بالنسبة للمسالة التانية أنا حطيت مصفوفة مو أحادية النعد(مشان الموضفين والرواتب و هيك)و حطيت
for(i):=1 to n do ,و بعدين case j ofو jبتاخذ قيم من 1 ل5 وكل قيمة مندخل واحدة من يلي مطلوبين و اخر شي عم يطبعلي شغلات مش مفهومة برأيك شو بيكون صايرلو
ssss
عضو جديد
عضو جديد
 
مشاركات: 22
اشترك في: الأربعاء نوفمبر 24, 2010 7:06 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الأولى
الاختصاص: غير ذلك

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة ITE-S3ed » السبت نوفمبر 27, 2010 5:47 pm

ssss كتب:يا جماعة أنا حطيت حلقة whileو عدادين واحد بيزيد و التاني بينقص و إذا كان العنصر الأخير =الأول b:=trueوهكذا وإذا لا b:=falseو بعد ما طلعت من الحلقة كتبت إنو إذا كان b:=trueطباع متناضرة وإذه لا طباع لا و مع هيك عم يطبعلي دائما متناضرة وين الغلطplease :???:

وليييييييييييييي لك شو عداد ينقص و عداد يزيد
لنفرض اسم المصفوفة mat انت هيك عملت على كلامك:
CODE: تحديد الكل
for:i=1 to n do
 fo j:=n downto 1 to
if (mat[i]=mat[j]) then
.
.
.

على هالكتابة رح يقارن العنصر الاول مع العناصر كلها ويقارن العنصر التاني مع العناصر كلها و التالت مع العناصر كلها يعني ما بتصير i=2 لحتى يمر العداد j على كل المصفوفة فهاد الشي غلط بغض النظر عن النتيجة يلي عم تنطبع
لازم نقارن العنصر الاول مع الاخير و التاني مع قبل الاخير و التالت مع قبل قبل الاخير و هيك
فبصير العداد على الشكل التالي
CODE: تحديد الكل
j:=n;
for i:=1 to n div 2 do
 begin
if(mat[i]=mat[j]) then
cond:=true;
 end;
else
cond:=false;

لاحظ/لاحظي (الفرق بين العدادين) انو لما بتزيد ال i واحد بينقص ال j واحد يعني المقارنة عم تتم بين الخانات المتناظرة للمصفوفة
موفقين
Bye !!(
صورة العضو الشخصية
ITE-S3ed
عضو نشيط
عضو نشيط
 
مشاركات: 1266
اشترك في: الاثنين سبتمبر 13, 2010 12:02 am
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: ذكاء صنعي

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة ITE-S3ed » السبت نوفمبر 27, 2010 5:50 pm

ssss كتب::imb: شكرا و بالنسبة للمسالة التانية أنا حطيت مصفوفة مو أحادية النعد(مشان الموضفين والرواتب و هيك)و حطيت
for(i):=1 to n do ,و بعدين case j ofو jبتاخذ قيم من 1 ل5 وكل قيمة مندخل واحدة من يلي مطلوبين و اخر شي عم يطبعلي شغلات مش مفهومة برأيك شو بيكون صايرلو

برأيي ما بكون صايرلوا شي :evil: :evil: :evil:
ساوي عالمصفوفة الاحادية و رح راسك :imb: :imb:
Bye !!(
صورة العضو الشخصية
ITE-S3ed
عضو نشيط
عضو نشيط
 
مشاركات: 1266
اشترك في: الاثنين سبتمبر 13, 2010 12:02 am
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: ذكاء صنعي

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة Ghais » السبت نوفمبر 27, 2010 6:00 pm

ITE-S3ed كتب:
ssss كتب::imb: شكرا و بالنسبة للمسالة التانية أنا حطيت مصفوفة مو أحادية النعد(مشان الموضفين والرواتب و هيك)و حطيت
for(i):=1 to n do ,و بعدين case j ofو jبتاخذ قيم من 1 ل5 وكل قيمة مندخل واحدة من يلي مطلوبين و اخر شي عم يطبعلي شغلات مش مفهومة برأيك شو بيكون صايرلو

برأيي ما بكون صايرلوا شي :evil: :evil: :evil:
ساوي عالمصفوفة الاحادية و رح راسك :imb: :imb:


ولا تنسى أنو الوظيفة مطلوبة بمصفوفات أحادية, فبلا ما تتعب حالك بمصفوفات ثنائية وبالأخير يقللك المهندس ما بدي ياها هيك
Ghais Zaher
ghais.speedy@gmail.com

syrian es

صورة العضو الشخصية
Ghais
مشرف منتديات السنة الأولى
مشرف منتديات السنة الأولى
 
مشاركات: 685
اشترك في: الجمعة أكتوبر 01, 2010 1:38 am
الجتس: ذكر
الشهادة الثانوية: سورية (علمي)
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة hossam2010 » السبت نوفمبر 27, 2010 6:30 pm

بس سؤال فني
إذا كان عنا مصفوفتين كيف بدي حط
المصفوفة الأولى تساوي المصفوفة الثاتية في الباسكال :???: :???:
وشكراً مقدماً
صورة العضو الشخصية
hossam2010
عضو جديد
عضو جديد
 
مشاركات: 41
اشترك في: الأحد أكتوبر 10, 2010 7:39 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الأولى
الاختصاص: غير ذلك

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة ITE-S3ed » السبت نوفمبر 27, 2010 6:34 pm

hossam2010 كتب:بس سؤال فني
إذا كان عنا مصفوفتين كيف بدي حط
المصفوفة الأولى تساوي المصفوفة الثاتية في الباسكال :???: :???:
وشكراً مقدماً

وصح سؤالك اكتر من ناحيتي ما فهمته ؟ يعني شو طلبك بالضبط و شو حاجتك لهالشي
يعني بدك تأثبت تساوي ولا شو؟؟
Bye !!(
صورة العضو الشخصية
ITE-S3ed
عضو نشيط
عضو نشيط
 
مشاركات: 1266
اشترك في: الاثنين سبتمبر 13, 2010 12:02 am
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: ذكاء صنعي

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة hossam2010 » السبت نوفمبر 27, 2010 6:42 pm

بدي أخذ المصفوفة الأولى وأعكسها بمصفوفة ثانية
إذا كان المصفوفتين متساويتين تكون المصفوفة متناظرة
صورة العضو الشخصية
hossam2010
عضو جديد
عضو جديد
 
مشاركات: 41
اشترك في: الأحد أكتوبر 10, 2010 7:39 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الأولى
الاختصاص: غير ذلك

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة ITE-S3ed » السبت نوفمبر 27, 2010 6:54 pm

hossam2010 كتب:بدي أخذ المصفوفة الأولى وأعكسها بمصفوفة ثانية
إذا كان المصفوفتين متساويتين تكون المصفوفة متناظرة

معك حق على فكرة طريقة حلوة
انا كتبت هي الخوارزمية بظن انها صح و اذا فيها غلط حدا يصححلي
CODE: تحديد الكل
j:=n;
cond:=true;
for i:=1 to n do
  begin
  second[i]:=first[j]
   j:=j-1;
  end;
for i:=1 to n do
if(first[i]<>second[i])then
 cond:=false;
writeln(cond);
 
   

هيك بنكون عبينا المصفوفة الاولى بوحد تانية و قارناهن
على اعتبار ان الاولى اسمها first و التانية اسمها second
موفقين
Bye !!(
صورة العضو الشخصية
ITE-S3ed
عضو نشيط
عضو نشيط
 
مشاركات: 1266
اشترك في: الاثنين سبتمبر 13, 2010 12:02 am
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: ذكاء صنعي

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة ssss » السبت نوفمبر 27, 2010 7:31 pm

:cry: يلي جاوبني ع سؤالي من شوي جربتها وما ضنطت معي شو أعمل
ssss
عضو جديد
عضو جديد
 
مشاركات: 22
اشترك في: الأربعاء نوفمبر 24, 2010 7:06 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الأولى
الاختصاص: غير ذلك

Re: مناقشة وظيفة البرمجة 1 السابعة

مشاركة غير مقروءةبواسطة asecrety » السبت نوفمبر 27, 2010 7:33 pm

:!: :!: كأنكم حليتوا الوظيفة :!: :!:
بسم الله
لا إله إلا الله .... محمد رسول الله
صورة العضو الشخصية
asecrety
عضو فعال
عضو فعال
 
مشاركات: 836
اشترك في: الاثنين أغسطس 30, 2010 1:34 pm
الجتس: ذكر
الشهادة الثانوية: -
الجامعة: -
الكلية: -
المرحلة الدراسية: غير ذلك

السابقالتالي

العودة إلى البرمجة 1

الموجودون الآن

المستخدمون المتصفحون لهذا المنتدى: لا يوجد أعضاء مسجلين متصلين و 1 زائر

cron