مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

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

المشرف: Ghais

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة omegaes16 » الجمعة ديسمبر 24, 2010 11:33 pm

mamprogr كتب:قاهر الأس : إنه اللوغاريتم ..

CODE: تحديد الكل
x := 40;
Writeln(exp((1/2)*ln(x)));

يالله لا تذكرني بدقاق :cry: :cry:
[background=blue]زراعةُ القلبِ تشفي بعضَ من عشقوا وما لقلـبي –إذا أحببـتُ- جـرّاحُ[/background]
صورة العضو الشخصية
omegaes16
عضو فعال
عضو فعال
 
مشاركات: 485
اشترك في: الأربعاء سبتمبر 22, 2010 7:57 pm
مكان: damascus-mazzeh
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة THE ONE » الجمعة ديسمبر 24, 2010 11:37 pm

ANAS SB كتب:وعلى سيرة السحر , أنا معلئ معي إيجاد العدد الأكثر تواترا في نسق وعدد مرات تكراره يا أخي ما دخل , يا ريت حدا يشرح الفكرة الأساسية وإذا في طريقة بدون ما استخدم مصفوفة لتخزين التكرارات بكون منيح . هدا طلب من (المسألة 72 )



هي أنوس أبسط صيغة للمنوال و عدد مراتتكراره
sum:=0; sum1:=0;
for i:=1 to n do
begin
for j:=i+1 to n do
if matrix[i]=matrix[j] then
sum:=sum+1;
if(sum>sum1)then
begin
sum1:=sum;
a:=matrix[i];
end;
end;

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


ارجو انك تكون فهمت :cool: :cool:


new year :: hope it is better




صورة العضو الشخصية
THE ONE
عضو جديد
عضو جديد
 
مشاركات: 244
اشترك في: السبت ديسمبر 04, 2010 6:37 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة THE ONE » الجمعة ديسمبر 24, 2010 11:40 pm

omegaes16 كتب:
mamprogr كتب:قاهر الأس : إنه اللوغاريتم ..

CODE: تحديد الكل
x := 40;
Writeln(exp((1/2)*ln(x)));

يالله لا تذكرني بدقاق :cry: :cry:



تذكر هي كمان دقاق بحب الدقة
:cry: :cry:


new year :: hope it is better




صورة العضو الشخصية
THE ONE
عضو جديد
عضو جديد
 
مشاركات: 244
اشترك في: السبت ديسمبر 04, 2010 6:37 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة ANAS SB » الجمعة ديسمبر 24, 2010 11:44 pm

THE ONE كتب:
ANAS SB كتب:وعلى سيرة السحر , أنا معلئ معي إيجاد العدد الأكثر تواترا في نسق وعدد مرات تكراره يا أخي ما دخل , يا ريت حدا يشرح الفكرة الأساسية وإذا في طريقة بدون ما استخدم مصفوفة لتخزين التكرارات بكون منيح . هدا طلب من (المسألة 72 )



هي أنوس أبسط صيغة للمنوال و عدد مراتتكراره
sum:=0; sum1:=0;
for i:=1 to n do
begin
for j:=i+1 to n do
if matrix[i]=matrix[j] then
sum:=sum+1;
if(sum>sum1)then
begin
sum1:=sum;
a:=matrix[i];
end;
end;

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


ارجو انك تكون فهمت :cool: :cool:

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

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة ado » الجمعة ديسمبر 24, 2010 11:47 pm

ado كتب:بس ليوم التنين بكن المسألة 60 و 70 ما هيك

و شباب كتير مشكورين على هاد العمل الخيري :mrgreen:

سلام :iok:
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 » السبت ديسمبر 25, 2010 12:16 am

THE ONE كتب:
omegaes16 كتب:
mamprogr كتب:قاهر الأس : إنه اللوغاريتم ..

CODE: تحديد الكل
x := 40;
Writeln(exp((1/2)*ln(x)));

يالله لا تذكرني بدقاق :cry: :cry:



تذكر هي كمان دقاق بحب الدقة
:cry: :cry:


آخ ذكرتوني.. الله يرحم أيامو
Ghais Zaher
ghais.speedy@gmail.com

syrian es

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

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة walaa231 » السبت ديسمبر 25, 2010 1:25 am

طيب شوبدنا نحل لبكرة ما قلتوا حددوا بسرعة :wink2: :wink2: :wink2:
سبحانك ربي ..سبحانك ..
ما أعظمك ..ما أكرمك .. ما أحلمك ..
صورة العضو الشخصية
walaa231
عضو فعال
عضو فعال
 
مشاركات: 321
اشترك في: الأربعاء أكتوبر 06, 2010 3:57 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة ado » السبت ديسمبر 25, 2010 1:46 am


بس ليوم التنين بكن المسألة 60 و 70 ما هيك

و شباب كتير مشكورين على هاد العمل الخيري

سلام
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 واسئلة الدورات..

مشاركة غير مقروءةبواسطة walaa231 » السبت ديسمبر 25, 2010 1:34 pm

شو رأيكم انحل الطلب الأخير من المسألة 65 وهو
التابع primtfactors يقوم بإيجاد وطباعة كافة العوامل الأولية للعدد number (مثال من أجل number=150 فأنا التابع يطبع العوامل الأولية على الشكل 5*5*3*2 )
لبين ما يحطو شي نحلو وهذا التمرين على الوقت نفسو تبع مبارح :iok: :iok: :iok:
سبحانك ربي ..سبحانك ..
ما أعظمك ..ما أكرمك .. ما أحلمك ..
صورة العضو الشخصية
walaa231
عضو فعال
عضو فعال
 
مشاركات: 321
اشترك في: الأربعاء أكتوبر 06, 2010 3:57 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة ITE-S3ed » السبت ديسمبر 25, 2010 2:45 pm

اتفقنا
ملاحظة

للي عم يدرسوا من نوطة المسائل المحلولة في الباسكال الملونة البي دي اف:
في الفصل الثالث من فصول النوطة الصفحة 35
ملاحظات هامة في التعامل مع المحارف
اخر فقرة : التحويل من حرف كبير الى صغير و بالعكس:
القوانين المحطوطة فيها غلط فيكن تجربوهن و تتأكدوا
والصح هو:
1 - للتحويل من حرف صغير الى كبير:
CODE: تحديد الكل
Chr(Ord('A') - Ord('a') + Ord(ch))

2- للتحويل من حرف كبير الى صغير :
CODE: تحديد الكل
Chr(Ord('a') - Ord('A') + Ord(ch))
Bye !!(
صورة العضو الشخصية
ITE-S3ed
عضو نشيط
عضو نشيط
 
مشاركات: 1266
اشترك في: الاثنين سبتمبر 13, 2010 12:02 am
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: ذكاء صنعي

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة hdbrave101 » السبت ديسمبر 25, 2010 3:22 pm

ITE-S3ed كتب:اتفقنا
ملاحظة

للي عم يدرسوا من نوطة المسائل المحلولة في الباسكال الملونة البي دي اف:
في الفصل الثالث من فصول النوطة الصفحة 35
ملاحظات هامة في التعامل مع المحارف
اخر فقرة : التحويل من حرف كبير الى صغير و بالعكس:
القوانين المحطوطة فيها غلط فيكن تجربوهن و تتأكدوا
والصح هو:
1 - للتحويل من حرف صغير الى كبير:
CODE: تحديد الكل
Chr(Ord('A') - Ord('a') + Ord(ch))

2- للتحويل من حرف كبير الى صغير :
CODE: تحديد الكل
Chr(Ord('a') - Ord('A') + Ord(ch))


أو فينا نحط الفرق بين ord('a') l و ord('A') l بالقيمة المطلقة لكلتا الحالتين :wink:
الإنسان كالسنبلة ..!


فكر من جديد ..
صورة العضو الشخصية
hdbrave101
عضو فعال
عضو فعال
 
مشاركات: 586
اشترك في: الأحد سبتمبر 19, 2010 7:13 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة ITE-S3ed » السبت ديسمبر 25, 2010 3:31 pm

hdbrave101 كتب:
ITE-S3ed كتب:اتفقنا
ملاحظة

للي عم يدرسوا من نوطة المسائل المحلولة في الباسكال الملونة البي دي اف:
في الفصل الثالث من فصول النوطة الصفحة 35
ملاحظات هامة في التعامل مع المحارف
اخر فقرة : التحويل من حرف كبير الى صغير و بالعكس:
القوانين المحطوطة فيها غلط فيكن تجربوهن و تتأكدوا
والصح هو:
1 - للتحويل من حرف صغير الى كبير:
CODE: تحديد الكل
Chr(Ord('A') - Ord('a') + Ord(ch))

2- للتحويل من حرف كبير الى صغير :
CODE: تحديد الكل
Chr(Ord('a') - Ord('A') + Ord(ch))


أو فينا نحط الفرق بين ord('a') l و ord('A') l بالقيمة المطلقة لكلتا الحالتين :wink:

صحيح
بس انتبه في فرق لما بدك تاخد القيمة الطلقة موجبة او سالبة ...يعني:
1القانون بشكل عام هو صار:
CODE: تحديد الكل
Chr(|Ord('A') - Ord('a')| + Ord(ch))

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

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة asecrety » السبت ديسمبر 25, 2010 3:39 pm

للتحويل من حرف صغير الى كبير (لازم تاخد القيمة المطلقة موجبة):2- و للتحويل من كبير لصغير (لازم تاخد القيمة المطلقة سالبة

على هالحالة مافي داعي للقيمة المطلقة من أسااسها لأن الإشارة بتهمنا :???:

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

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة ado » السبت ديسمبر 25, 2010 3:58 pm

بس ليوم التنين بدكن المسألة 60 و 70 ما هيك


بس في مجال حدا يرد علي شباب مشان الله اترجاكم please (onigai)d
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 واسئلة الدورات..

مشاركة غير مقروءةبواسطة walaa231 » السبت ديسمبر 25, 2010 4:12 pm

ado كتب:
بس ليوم التنين بدكن المسألة 60 و 70 ما هيك


بس في مجال حدا يرد علي شباب مشان الله اترجاكم please (onigai)d


لا ما بعتقد لا تنين ولا تلاتا لآنو في بهدول اليوين مذاكرة جبر :???: :???:
سبحانك ربي ..سبحانك ..
ما أعظمك ..ما أكرمك .. ما أحلمك ..
صورة العضو الشخصية
walaa231
عضو فعال
عضو فعال
 
مشاركات: 321
اشترك في: الأربعاء أكتوبر 06, 2010 3:57 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة ado » السبت ديسمبر 25, 2010 4:15 pm

walaa231 كتب:
ado كتب:
بس ليوم التنين بدكن المسألة 60 و 70 ما هيك


بس في مجال حدا يرد علي شباب مشان الله اترجاكم please (onigai)d


لا ما بعتقد لا تنين ولا تلاتا لآنو في بهدول اليوين مذاكرة جبر :???: :???:


ما في حدا غيرك عم يرد علي تسلمي يا انسة :cry: :cry: :cry:

ههههه مزح :wink2:

مذااااااااااااكرة :eek: ما على اساس يوم الأحد

سلام :iok:
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 واسئلة الدورات..

مشاركة غير مقروءةبواسطة walaa231 » السبت ديسمبر 25, 2010 4:21 pm

ado كتب:
walaa231 كتب:
ado كتب:
بس ليوم التنين بدكن المسألة 60 و 70 ما هيك


بس في مجال حدا يرد علي شباب مشان الله اترجاكم please (onigai)d


لا ما بعتقد لا تنين ولا تلاتا لآنو في بهدول اليوين مذاكرة جبر :???: :???:


ما في حدا غيرك عم يرد علي تسلمي يا انسة :cry: :cry: :cry:

ههههه مزح :wink2:

مذااااااااااااكرة :eek: ما على اساس يوم الأحد

سلام :iok:

للفئات الذي حددلون الدكتور
والشباب ما عم يردوا لأننهم مشغولين بالمذاكرة وجاينا الدور سلام
سبحانك ربي ..سبحانك ..
ما أعظمك ..ما أكرمك .. ما أحلمك ..
صورة العضو الشخصية
walaa231
عضو فعال
عضو فعال
 
مشاركات: 321
اشترك في: الأربعاء أكتوبر 06, 2010 3:57 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة hdbrave101 » السبت ديسمبر 25, 2010 5:06 pm

asecrety كتب:
للتحويل من حرف صغير الى كبير (لازم تاخد القيمة المطلقة موجبة):2- و للتحويل من كبير لصغير (لازم تاخد القيمة المطلقة سالبة

على هالحالة مافي داعي للقيمة المطلقة من أسااسها لأن الإشارة بتهمنا :???:

شو حبيبي حسن ... ما عم يطلع معك
يائس .. محطم من الداخل ...
له له له :mrgreen:
بتصير :mrgreen:
يلا شد الهمة استاذنا :wink: لازم تطلع من الأوائل :iok:
بالتوفيق للجميع


لك شايف شايف .. قلت لحالي بركي بتشلف وبصير شوية فهمان .. ءام طلعت .. :evil:

على كلن انا كان قصدي انو ناخد العدد الثابت l ord('a') - ord('A') l وبعدين منجمعو للاعداد الكبيرة مشان تطلع الصغيرة
ومنطرحو من الصغيرة مشان نحصل عالاعداد الكبيرة
لانو ترتيب الأحرف الكبيرة في جدول الأسكي قبل الأحرف الصغيرة ..

على كل حال إن ما لزقت بتعلم :wink: .. وبظن أنها علمت .. وشكرا لتدارك الامر نت الاخ سعيد ..
الإنسان كالسنبلة ..!


فكر من جديد ..
صورة العضو الشخصية
hdbrave101
عضو فعال
عضو فعال
 
مشاركات: 586
اشترك في: الأحد سبتمبر 19, 2010 7:13 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة walaa231 » السبت ديسمبر 25, 2010 5:37 pm

CODE: تحديد الكل
function primefactors(n:integer):integer;
var res:integer;
begin
res:=1;
for i:=1 to n div 2 do
while(n mod i =0)and (n<>=)do
begin
n:=n div i;
res:=res*i;
end;
primefactors:=res;
end;

شو صح :iok: :iok: :iok:
سبحانك ربي ..سبحانك ..
ما أعظمك ..ما أكرمك .. ما أحلمك ..
صورة العضو الشخصية
walaa231
عضو فعال
عضو فعال
 
مشاركات: 321
اشترك في: الأربعاء أكتوبر 06, 2010 3:57 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة مسائل نوطة البرمجة1 واسئلة الدورات..

مشاركة غير مقروءةبواسطة ado » السبت ديسمبر 25, 2010 6:08 pm

و هي المسألة 60 بس بدون تطوير و تعديل البرنامج

CODE: تحديد الكل
program mesahat;

const p = 3.14;

var  a , b , r , w , h , area :real;

     c :char;

begin

  repeat

writeln (' chose 1 for rectangle ');

writeln (' chose 2 for circle ');

writeln (' chose 3 fo tringle ');

writeln (' else exit ' );

writeln (' please enter your choice ');

writeln;

readln (c);

  case c of

           '1' : begin

                   writeln (' enter tol and 3rd ');

                   readln (a,b);

                   if ( a > 0 ) and ( b > 0 ) then

                      area := a * b ;

                 end;

           '2' : begin

                   writeln (' enter qetr ');

                   readln (r);

                   if ( r > 0 ) then

                      area := 2 * p * r ;

                 end;

           '3' : begin

                   writeln (' enter ertfa3 and qa3da ');

                   readln (w,h);

                   if ( w > 0 ) and ( h > 0 ) then

                      area := 1/2 * ( w * h ) ;

                 end;

           else

                writeln (' thank you ');

  end;

   if ( c in ( ['1' , '2' , '3' ] ) ) then

     if area > 0 then

     begin

      writeln (' area = ', area :4:2 );

     end

   else

      writeln(' not possible ');

  writeln;

  until ( not ( c in ( ['1' , '2' , '3' ] ) ) ) ;

readln;

end.


و شباب بعد اذنكم هلاء بطلب التعديل ممكن شوية شرح

بدو مصفوفة ثنائية و لا احادية و كيف تمشي هاي المصفوفة

ما فهمت منها شي

سلام :iok:
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
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الأولى

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

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

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

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

cron