اريد المساعدة منكم ايها الأعضاء او من الاخ SYJ

لم تذكر بأى لغة برمجه ؟؟

البرامج سهله إن شاء الله و لكن حدد اللغه التى تستخدمها

آآآآآآآآسف جداً اريد حل البرنامج بلغة الباسكال

لماذا الأسف !!!! سننتظر الاخ SYJ

مرحبا ياشباب

أنا من قسم الدلفي .....................:)

بس أنا أريد أعرف أبو مها أنت بتعرف شي في الباسكال ؟؟؟؟

وكمان بس هذا هو البرنامج...؟ سوف نجابوك بسرعة أخوي

أخوكم

نعم اخويdelphi team اعرف الباسكال وارعف كيف اجل التمارين ولكن التمارين هاذي صعبة علي شوي وزيادة جاوبتهم بس ابتأكد من حلهم من كم انتم

وهذا هو البرنامج فقط

واتمنى الحل باسرع وقت...............

var x:integer;

begin

readln(x);

if x div 3 = 0 then writeln('ok')

else

writeln('no');

end;

end.

=================================================

البرنامج الثاني

var a,b,c:integer;

begin

readln(a,b,c);

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

writeln(a)

else

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

writeln(B)

else

writeln©;

if (a<b) and (a<c) then

writeln(a)

else

if (b<a) and (b<c) then

writeln(B)

else

writeln©;

end;

end.

عفوا على الشكل الي نزلت فيه الكود !!!!!!!!!!!!!!!!!!!!!!!!

كل شكل وجه يعني فاصلة منقوطة

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

يفيدك أكتر

delphi

أخوكم

مشكوووووووووووووووور اخوي على جهدك الواضح

لكن حل البرنامج الاول يعطي ان البرنامج خطاء ولم استطع ان اكشف العلة

والبرنامج الثاني ينفذ الشرط الاول فقط اي يطبع العدد الاصغر فقط لايطبع العدد الاكبر

ان استطعت ان تراجع الحل يكون احسن وتشكر مرة ثانية

اتمنى المساعدة باسرع وقت!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

عفوا اخي على التأخر في الرد

أسف على الأخطاء صحيح كلامك البرنامج الأول لازمه writeln في الأخير

وبعدين readln

عفوا انا ما عندي باسكال على الجهاز

وبعدين أخوي حول لقسم الدلفي المختصين بالباسكال الهدفية

أنت في قسم نظم التشغيل و‘لى ما ذلك حول لعنا و إن شاء الله تستفيد

وبتتعلم الباسكال الهدفي أحسن من تربو باسكال

أخوكم

آسف لتأخري في الرد و لكن هذا لانشغالي بالامتحانات...

بالنسبة للسؤال الأول:-

program prog3;

var

x:integer;

begin

readln(x);

if ( x mod 3 = 0) then

writeln('OK')

else

writeln('NO');

readln;

end.

بالنسبة للسؤال الثاني هناك عدة طرق و اعتقد ان هذه اسهلها:-

program maxmin;

var

a,b,c,max,min:integer;

begin

readln(a,b,c);

max:=a;

if (b>max) then

max:=b;

if (c>max) then

max:=c;

min:=a;

if (b<min) then

min:=b;

if (c<min) then

min:=c;

writeln('Max = ',max);

writeln('Min = ',min);

readln;

end.

كل الطرق تؤدي الى الحل الصحيح