مناقشة البرمجة 2 - نظري - فصل ثاني - 2009-2010

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة ZEIN » السبت يونيو 19, 2010 8:03 pm

*virus* كتب:
lele كتب:
STEEV كتب:
QQ.png

االخطأ بالبرنامج أنا عرفان شو هووو
بس كيف طريقة التعبير ما عم تزبط معي ؟؟؟
شلووون بدي عبر بحيث يفهم الدكتووووور
و شكراً :wink:


الغلط إنك عم تلعب بقيمة دليل الحلقة for ...
التصحيح .. إما منشيل التعليمة التالية

CODE: تحديد الكل
Today := succ(Today);

أو منخلي الحلقة حلقة While

موفقين صورة

الخطأ هو أنو بأول فوتة عم أطلب القيمة اللاحقة لآخر قيمة بال type وهادا الشيء خطأ لأنو ما في هيك قيمة
أما أني ألعب بدليل الحلقة for فهادا الشيء خطير بس مو غلط يعني بدو يكون الواحد عم يعرف شو عم يعمل مشان ما تتحول إلى حلقة غير منتهية
:ism:


طيب أنا مو خطأ خلي كمان حلقة ال for هيك ؟؟؟ يعني مو لازم بدل بين ال sunday و ال monday ؟؟؟؟
G & W & Z & R
ZEIN
متميز لعامنا الثالث
متميز لعامنا الثالث
 
مشاركات: 1237
اشترك في: الخميس أكتوبر 01, 2009 10:40 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة *virus* » السبت يونيو 19, 2010 8:06 pm

ZEIN كتب:
*virus* كتب:
lele كتب:
STEEV كتب:
QQ.png

االخطأ بالبرنامج أنا عرفان شو هووو
بس كيف طريقة التعبير ما عم تزبط معي ؟؟؟
شلووون بدي عبر بحيث يفهم الدكتووووور
و شكراً :wink:


الغلط إنك عم تلعب بقيمة دليل الحلقة for ...
التصحيح .. إما منشيل التعليمة التالية

CODE: تحديد الكل
Today := succ(Today);

أو منخلي الحلقة حلقة While

موفقين صورة

الخطأ هو أنو بأول فوتة عم أطلب القيمة اللاحقة لآخر قيمة بال type وهادا الشيء خطأ لأنو ما في هيك قيمة
أما أني ألعب بدليل الحلقة for فهادا الشيء خطير بس مو غلط يعني بدو يكون الواحد عم يعرف شو عم يعمل مشان ما تتحول إلى حلقة غير منتهية
:ism:


طيب أنا مو خطأ خلي كمان حلقة ال for هيك ؟؟؟ يعني مو لازم بدل بين ال sunday و ال monday ؟؟؟؟

كمان هادا هو الخطأ الرئيسي لازم downto بس بعتذر أنا ركزت على الرد السابق ونسيت السؤال الأساسي :ism:
. Under the injection
صورة

Last Chance
صورة
صورة العضو الشخصية
*virus*
متميز لعامنا الثالث
متميز لعامنا الثالث
 
مشاركات: 612
اشترك في: السبت أكتوبر 03, 2009 1:24 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة
الاختصاص: غير ذلك

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة a7la sham » السبت يونيو 19, 2010 8:07 pm

هي دورة برمجة 2010 ( االفصل الماضي ) . :iok: ..

كمان ما بعرف إذا حدا منزلها بالعشر صفحات يلي فوق أنا هلأ حصلتها ...
سلّم لله ..
ســــــــلّم للّــــــــــه :)
صورة العضو الشخصية
a7la sham
عضو فعال
عضو فعال
 
مشاركات: 583
اشترك في: السبت سبتمبر 19, 2009 11:39 pm
الجتس: أنثى
الشهادة الثانوية: غير سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة OM33 » السبت يونيو 19, 2010 8:08 pm

STEEV كتب:
QQ.png

االخطأ بالبرنامج أنا عرفان شو هووو
بس كيف طريقة التعبير ما عم تزبط معي ؟؟؟
شلووون بدي عبر بحيث يفهم الدكتووووور
و شكراً :wink:



بظن انو ال for لازم تكون downto اما مشان الsucc فماني متأكد
Look.. if you had.. one shot, or one opportunity
To seize everything you ever wanted.. in one moment
Would you capture it.. or just let it slip? Yo..
صورة العضو الشخصية
OM33
عضو جديد
عضو جديد
 
مشاركات: 177
اشترك في: الثلاثاء سبتمبر 15, 2009 4:50 am
الجتس: ذكر
الشهادة الثانوية: تقنيات
الجامعة: دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: ذكاء صنعي

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة ZEIN » السبت يونيو 19, 2010 8:09 pm

*virus* كتب:
ZEIN كتب:
*virus* كتب:
lele كتب:
STEEV كتب:
QQ.png

االخطأ بالبرنامج أنا عرفان شو هووو
بس كيف طريقة التعبير ما عم تزبط معي ؟؟؟
شلووون بدي عبر بحيث يفهم الدكتووووور
و شكراً :wink:


الغلط إنك عم تلعب بقيمة دليل الحلقة for ...
التصحيح .. إما منشيل التعليمة التالية

CODE: تحديد الكل
Today := succ(Today);

أو منخلي الحلقة حلقة While

موفقين صورة

الخطأ هو أنو بأول فوتة عم أطلب القيمة اللاحقة لآخر قيمة بال type وهادا الشيء خطأ لأنو ما في هيك قيمة
أما أني ألعب بدليل الحلقة for فهادا الشيء خطير بس مو غلط يعني بدو يكون الواحد عم يعرف شو عم يعمل مشان ما تتحول إلى حلقة غير منتهية
:ism:


طيب أنا مو خ طأ خلي كمان حلقة ال for هيك ؟؟؟ يعني مو لازم بدل بين ال sunday و ال monday ؟؟؟؟

كمان هادا هو الخطأ الرئيسي لازم downto بس بعتذر أنا ركزت على الرد السابق ونسيت السؤال الأساسي :ism:

:iok:

وكمان لازم نخليه يكتب ord (today ) مو ال today لأنو هو نمط
وحتى إذا في خطأ سنتاكسي لازم نقلو عليه للدكتور لأنو هون في فاصلة منقوطة قبل ال end ناقصة :iok:
G & W & Z & R
ZEIN
متميز لعامنا الثالث
متميز لعامنا الثالث
 
مشاركات: 1237
اشترك في: الخميس أكتوبر 01, 2009 10:40 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة $ M.Y.T $ » السبت يونيو 19, 2010 8:33 pm

Bmiley كتب:
Bmiley كتب:في بالكتاب صفحة 67 مثال فايلات
بهاد المثال عملوا( reset(f بعدين جوات ال for بعد ما عملوا (seek(f,bf حطوا تعليمة( write(f,vi
طيب كيف عملوا write ونحنا فاتحين الملف للقراءة

ألو هاد علاقة بالـ filemode
و لا لأنو في seek
و اذا ألو علاقة ليش ما فينا دائماً أنو نفتح الملف للقراءة و الكتابة معاً؟!!!!!!!!!!!!!

و شكراً




ممكن حدا يجاوب !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :???: :???:


معك حق هالشغلة كير غربطتنا

وسألنا عنها أحد المهندسين ..
فقال: أنو ب reset بقدر حط تعليمتي read و write

أما ب rewrite ما بقدر استخدم إلا write
معلومة أكيدة ... :iok:

بس الدكتور ما جاب هالسيرة أبداً .. لذلك الأفضل ما نستخدمها :ism:
قال تعالى:
"ما يفعلُ اللهُ بِعذابِكُمْ إنْ شَكَرتُمْ وآمنتُم وكانَ اللهُ شَاكِراً عَليمَاْ"


مدونتـــــي
صورة العضو الشخصية
$ M.Y.T $
عضو فعال
عضو فعال
 
مشاركات: 989
اشترك في: الأحد سبتمبر 27, 2009 8:23 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة sema » السبت يونيو 19, 2010 8:54 pm

رجاء دورة 2010
شو حل اول سؤال
هيك صح وهل ضروري نحل مسائل العامة :cry:

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

var
   f   : text;
   
procedure word(var f : text);
var
   a, k   : char;
   wn      : integer;
begin
   reset(f);


   while not eof(f) do
   begin
      wn:=0;
      while not eoln(f) do
      begin
         read(f, a);
         if (a = ' ')   then
            wn := wn + 1;


      end;
       if eoln(f) then
            writeln(wn);
   end;
   close(f);
end;

procedure print (var f : text);
var
a:char;
begin
   reset(f);
   while not eof(f) do
   while not eoln(f) do
   begin
      read(f,a);
      write(a);
   end;
end;

begin { main prog. }
   assign(f,'d:/t.txt');
    print(f);
   word(f);
end.
اخيرااااااااااااااااااااااا تانية
صورة العضو الشخصية
sema
عضو فعال
عضو فعال
 
مشاركات: 349
اشترك في: الأربعاء نوفمبر 11, 2009 9:14 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: غير ذلك

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة baha'a » السبت يونيو 19, 2010 9:05 pm

$ M.Y.T $ كتب:
Bmiley كتب:
Bmiley كتب:في بالكتاب صفحة 67 مثال فايلات
بهاد المثال عملوا( reset(f بعدين جوات ال for بعد ما عملوا (seek(f,bf حطوا تعليمة( write(f,vi
طيب كيف عملوا write ونحنا فاتحين الملف للقراءة

ألو هاد علاقة بالـ filemode
و لا لأنو في seek
و اذا ألو علاقة ليش ما فينا دائماً أنو نفتح الملف للقراءة و الكتابة معاً؟!!!!!!!!!!!!!

و شكراً




ممكن حدا يجاوب !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :???: :???:


معك حق هالشغلة كير غربطتنا

وسألنا عنها أحد المهندسين ..
فقال: أنو ب reset بقدر حط تعليمتي read و write

أما ب rewrite ما بقدر استخدم إلا write
معلومة أكيدة ... :iok:

بس الدكتور ما جاب هالسيرة أبداً .. لذلك الأفضل ما نستخدمها :ism:



السلام عليكم
شباب انتبهوا
هناك ملاحظة هامة في الصفحة 41 في الكتاب تقول بأن الملفات تفتح للقراءة أو للكتابة
فلذلك احذروا أن تكتبوا في ملف مفتوح للقراءة أو أن تقرأوا من ملف مفتوح للكتابة
ليس المهم ما أنت الآن
المهم ما ستكون يوم تقف بين يديه سبحانه

ستقف قريباً، صدقني
صورة العضو الشخصية
baha'a
عضو فعال
عضو فعال
 
مشاركات: 580
اشترك في: السبت ديسمبر 12, 2009 11:40 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: شبكات و نظم

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة feras alkasar » السبت يونيو 19, 2010 9:08 pm

sema كتب:رجاء دورة 2010
شو حل اول سؤال
هيك صح وهل ضروري نحل مسائل العامة :cry:

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

var
   f   : text;
   
procedure word(var f : text);
var
   a, k   : char;
   wn      : integer;
begin
   reset(f);


   while not eof(f) do
   begin
      wn:=0;
      while not eoln(f) do
      begin
         read(f, a);
         if (a = ' ')   then
            wn := wn + 1;


      end;
       if eoln(f) then
            writeln(wn);
   end;
   close(f);
end;

procedure print (var f : text);
var
a:char;
begin
   reset(f);
   while not eof(f) do
   while not eoln(f) do
   begin
      read(f,a);
      write(a);
   end;
end;

begin { main prog. }
   assign(f,'d:/t.txt');
    print(f);
   word(f);
end.

لازم تستعملي ملفين
بتحطيي بالجديد السطر وباخرو عدد الكلمات
بعدين بتستدعي اجرائية الطباعة
وحتى بحلك الكلمات بيطلعو معك ناقصين وحدة لأنو ممكن اخر كلمة ما يكون بعدها فراغ
صورة العضو الشخصية
feras alkasar
عضو فعال
عضو فعال
 
مشاركات: 662
اشترك في: الخميس أكتوبر 01, 2009 5:07 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة
الاختصاص: ذكاء صنعي

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة feras alkasar » السبت يونيو 19, 2010 9:12 pm

سؤال هلأ X0,Xn مناخدون حسب بوابة الرؤية لما منفرضون من عنا
وشو هي احداثيات الورقة لما بكون عنا تابع صحيح y=1+x^2
صورة العضو الشخصية
feras alkasar
عضو فعال
عضو فعال
 
مشاركات: 662
اشترك في: الخميس أكتوبر 01, 2009 5:07 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة
الاختصاص: ذكاء صنعي

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة sema » السبت يونيو 19, 2010 9:13 pm

feras alkasar كتب:
sema كتب:رجاء دورة 2010
شو حل اول سؤال
هيك صح وهل ضروري نحل مسائل العامة :cry:

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

var
   f   : text;
   
procedure word(var f : text);
var
   a, k   : char;
   wn      : integer;
begin
   reset(f);


   while not eof(f) do
   begin
      wn:=0;
      while not eoln(f) do
      begin
         read(f, a);
         if (a = ' ')   then
            wn := wn + 1;


      end;
       if eoln(f) then
            writeln(wn);
   end;
   close(f);
end;

procedure print (var f : text);
var
a:char;
begin
   reset(f);
   while not eof(f) do
   while not eoln(f) do
   begin
      read(f,a);
      write(a);
   end;
end;

begin { main prog. }
   assign(f,'d:/t.txt');
    print(f);
   word(f);
end.

لازم تستعملي ملفين
بتحطيي بالجديد السطر وباخرو عدد الكلمات
بعدين بتستدعي اجرائية الطباعة
وحتى بحلك الكلمات بيطلعو معك ناقصين وحدة لأنو ممكن اخر كلمة ما يكون بعدها فراغ


اعمل فايلين بس الفايل التاني قورا اكتب فيو وحط اخريتو عدد الكمات

وطيب اطبلع الملف التاني
في مجال الكود بشكل مبسط لو سمحت :imb:
اخيرااااااااااااااااااااااا تانية
صورة العضو الشخصية
sema
عضو فعال
عضو فعال
 
مشاركات: 349
اشترك في: الأربعاء نوفمبر 11, 2009 9:14 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: غير ذلك

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة Bmiley » السبت يونيو 19, 2010 9:16 pm

feras alkasar كتب:
sema كتب:رجاء دورة 2010
شو حل اول سؤال
هيك صح وهل ضروري نحل مسائل العامة :cry:

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

var
   f   : text;
   
procedure word(var f : text);
var
   a, k   : char;
   wn      : integer;
begin
   reset(f);


   while not eof(f) do
   begin
      wn:=0;
      while not eoln(f) do
      begin
         read(f, a);
         if (a = ' ')   then
            wn := wn + 1;


      end;
       if eoln(f) then
            writeln(wn);
   end;
   close(f);
end;

procedure print (var f : text);
var
a:char;
begin
   reset(f);
   while not eof(f) do
   while not eoln(f) do
   begin
      read(f,a);
      write(a);
   end;
end;

begin { main prog. }
   assign(f,'d:/t.txt');
    print(f);
   word(f);
end.

لازم تستعملي ملفين
بتحطيي بالجديد السطر وباخرو عدد الكلمات
بعدين بتستدعي اجرائية الطباعة
وحتى بحلك الكلمات بيطلعو معك ناقصين وحدة لأنو ممكن اخر كلمة ما يكون بعدها فراغ


سؤال..................
انا بقدر حط بملف نصي integer ???????????????

يعني بقدر قول
read(f,n
و n :integer
و f:text
هي المشكلة يلي ما عرفت حلها بها السؤال
و اذا حدا حل هي الدورة يا ريت ينزل الحل
وشكراً.....................
Bmiley
عضو جديد
عضو جديد
 
مشاركات: 76
اشترك في: الأحد سبتمبر 27, 2009 6:35 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة shams » السبت يونيو 19, 2010 9:23 pm

سؤال ::

إذا كان نص السؤال اكتب برنامجاً يقوم بكذا وكذا ....

هل أستطيع كتابة إجرائيات واستدعائها أم يجب أن ألتزم بكلمة برنامج وليس إجراء ؟؟
صورة العضو الشخصية
shams
متميز لعامنا الثالث
متميز لعامنا الثالث
 
مشاركات: 1342
اشترك في: الأحد أكتوبر 04, 2009 10:23 am
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة Bella » السبت يونيو 19, 2010 9:39 pm

*شمس الإسلام* كتب:سؤال ::

إذا كان نص السؤال اكتب برنامجاً يقوم بكذا وكذا ....

هل أستطيع كتابة إجرائيات واستدعائها أم يجب أن ألتزم بكلمة برنامج وليس إجراء ؟؟



يجب أن تلتزمي بالمطلوب فقط :wink:
Bella
عضو جديد
عضو جديد
 
مشاركات: 17
اشترك في: السبت أكتوبر 17, 2009 5:26 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة OM33 » السبت يونيو 19, 2010 9:40 pm

سؤال

فيني حط

CODE: تحديد الكل
xi:=x+vxb-getmaxX
yi:=getmaxY-(y+vyb)


فورا اذا ما عطاني مقاسات الرسمة الي عالورق

او شو بدي افرض مقاسات الورقة لانو بالدورة الماضية ما جاب سيرة عن مقاس الورقة
Look.. if you had.. one shot, or one opportunity
To seize everything you ever wanted.. in one moment
Would you capture it.. or just let it slip? Yo..
صورة العضو الشخصية
OM33
عضو جديد
عضو جديد
 
مشاركات: 177
اشترك في: الثلاثاء سبتمبر 15, 2009 4:50 am
الجتس: ذكر
الشهادة الثانوية: تقنيات
الجامعة: دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: ذكاء صنعي

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة feras alkasar » السبت يونيو 19, 2010 9:45 pm

sema كتب:
feras alkasar كتب:
sema كتب:رجاء دورة 2010
شو حل اول سؤال
هيك صح وهل ضروري نحل مسائل العامة :cry:

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

var
   f   : text;
   
procedure word(var f : text);
var
   a, k   : char;
   wn      : integer;
begin
   reset(f);


   while not eof(f) do
   begin
      wn:=0;
      while not eoln(f) do
      begin
         read(f, a);
         if (a = ' ')   then
            wn := wn + 1;


      end;
       if eoln(f) then
            writeln(wn);
   end;
   close(f);
end;

procedure print (var f : text);
var
a:char;
begin
   reset(f);
   while not eof(f) do
   while not eoln(f) do
   begin
      read(f,a);
      write(a);
   end;
end;

begin { main prog. }
   assign(f,'d:/t.txt');
    print(f);
   word(f);
end.

لازم تستعملي ملفين
بتحطيي بالجديد السطر وباخرو عدد الكلمات
بعدين بتستدعي اجرائية الطباعة
وحتى بحلك الكلمات بيطلعو معك ناقصين وحدة لأنو ممكن اخر كلمة ما يكون بعدها فراغ


اعمل فايلين بس الفايل التاني قورا اكتب فيو وحط اخريتو عدد الكمات

وطيب اطبلع الملف التاني
في مجال الكود بشكل مبسط لو سمحت :imb:

CODE: تحديد الكل
var s:string;
reset(f);
rewrite(f1);
while not eof(f) do
  begin
    m:=0;
    readln(f,s);
    for i:=1 to length(s) do
      begin
        if(s[i]=' ')then
          m:=m+1;
      end;
    if(s[length(s)]<>' ')then
      m:=m+1;
    write(f1,s);
    writeln(f1,m);
  end;
close(f1);
reset(f1);
rewrite(f);
while not eof(f1) do
  begin
    readln(f1,s);
    writeln(f,s);
  end;
صورة العضو الشخصية
feras alkasar
عضو فعال
عضو فعال
 
مشاركات: 662
اشترك في: الخميس أكتوبر 01, 2009 5:07 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة
الاختصاص: ذكاء صنعي

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة *virus* » السبت يونيو 19, 2010 9:51 pm

Bmiley كتب:
feras alkasar كتب:
sema كتب:رجاء دورة 2010
شو حل اول سؤال
هيك صح وهل ضروري نحل مسائل العامة :cry:

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

var
   f   : text;
   
procedure word(var f : text);
var
   a, k   : char;
   wn      : integer;
begin
   reset(f);


   while not eof(f) do
   begin
      wn:=0;
      while not eoln(f) do
      begin
         read(f, a);
         if (a = ' ')   then
            wn := wn + 1;


      end;
       if eoln(f) then
            writeln(wn);
   end;
   close(f);
end;

procedure print (var f : text);
var
a:char;
begin
   reset(f);
   while not eof(f) do
   while not eoln(f) do
   begin
      read(f,a);
      write(a);
   end;
end;

begin { main prog. }
   assign(f,'d:/t.txt');
    print(f);
   word(f);
end.

لازم تستعملي ملفين
بتحطيي بالجديد السطر وباخرو عدد الكلمات
بعدين بتستدعي اجرائية الطباعة
وحتى بحلك الكلمات بيطلعو معك ناقصين وحدة لأنو ممكن اخر كلمة ما يكون بعدها فراغ


سؤال..................
انا بقدر حط بملف نصي integer ???????????????

يعني بقدر قول
read(f,n
و n :integer
و f:text
هي المشكلة يلي ما عرفت حلها بها السؤال
و اذا حدا حل هي الدورة يا ريت ينزل الحل
وشكراً.....................

اي منقدر :ism:
. Under the injection
صورة

Last Chance
صورة
صورة العضو الشخصية
*virus*
متميز لعامنا الثالث
متميز لعامنا الثالث
 
مشاركات: 612
اشترك في: السبت أكتوبر 03, 2009 1:24 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة
الاختصاص: غير ذلك

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة feras alkasar » السبت يونيو 19, 2010 9:52 pm

feras alkasar كتب:سؤال هلأ X0,Xn مناخدون حسب بوابة الرؤية لما منفرضون من عنا
وشو هي احداثيات الورقة لما بكون عنا تابع صحيح y=1+x^2
صورة العضو الشخصية
feras alkasar
عضو فعال
عضو فعال
 
مشاركات: 662
اشترك في: الخميس أكتوبر 01, 2009 5:07 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة
الاختصاص: ذكاء صنعي

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة Karam » السبت يونيو 19, 2010 10:55 pm

يلا روحو عالنوم .. حاج سهر :mrgreen:
أنا بتنفس حرية .. ما تقطع عني الهوى
صورة العضو الشخصية
Karam
مشرف منتدى البرمجيات المفتوحة المصدر
مشرف منتدى البرمجيات المفتوحة المصدر
 
مشاركات: 2039
اشترك في: الخميس أكتوبر 01, 2009 2:50 pm
مكان: Stadt Ilmenau, Thuringen, Germa
الجتس: ذكر
الشهادة الثانوية: Syria
الجامعة: Damascus
الكلية: ITE
المرحلة الدراسية: السنة الرابعة
الاختصاص: شبكات و نظم

Re: مناقشة الامتحان النظري - برمجة 2

مشاركة غير مقروءةبواسطة STEEV » السبت يونيو 19, 2010 11:01 pm

Karam كتب:يلا روحو عالنوم .. حاج سهر :mrgreen:

ليش جاييني نوووم
حتى أئناء النوووم ما بتشوف غير ريكوردات و بوينترات و .... و ... طايرة و عم تهدي
و ييييييييييييييييين بدك تناااااااااااااام أه
الحمــــــــــــد لله
STEEV
مشرف منتديات السنة الثانية
مشرف منتديات السنة الثانية
 
مشاركات: 2326
اشترك في: الأربعاء سبتمبر 30, 2009 4:12 pm
الجتس: ذكر
الشهادة الثانوية: ســورية
الجامعة: دمشـــــــــــــــق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة

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

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

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

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

cron