ساعدوني ...باسكال

[ASSIL92]

:sdf:
ساعدوني ارجوكم في هذاا الالغوريتم ببرنامج باسكال

ة شكرا

[.صفاء.]

ستتم المساعدة قريبا يرجى الانتظار

[you92cef]

بخصوص الالغوريتم فهو خاطئ

والخطا يمكن في
si
expression logique
يعني بعد
si
نكتب عبارة منطقية اما تكون صحيحة او خاطئة
مثلا
si a>b alors

si a=b alors

si a div b =5 alors

فكبها عبارات منطقية
بينما في
si
الثانية
فاننا كتبنا هكدا

deput si
c:=c+1;
finsi
ادن بعد
si
لم نكتب عبارة منطقية بل كتبنا عملية
-*- instruction/affectation/
ادن هنا الخطا

فيجب ان نحدف
deput si ... finsi
في الالغوريتم

apres si on met une expression loqigue pas une instruction

[.صفاء.]

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

program TP22;
var I,C,N,Q,R:integer;
begin
  write('donner le nombre N = ')
  readln(N);
  C:=0;
  I:=0;
  While  ( I<= (N div 2));
begin
while
Q:= N div 2 ;
R:= N - ( Q * E );
if (R=0) then
begin
if
C:= C+I ;
end;
I:= I +I ;
end;
writeln(c);

end.

[you92cef]

اظن ان هدا هو البرنامج الكامل

program tp02;
uses wincrt;
var i,c,n,q,r:integer;
begin
writeln('Donner le nombre N');
readln(n);
c:=0;
i:=2;
while(i<=(n div 2)) do begin
q:=n div 2;
r:= n-q*i;
if r=0 then 
c:=c+1;
i:=i+1;
end;
writeln(c);
end.

بخصوص عمل البرنامج فحسب علمي
ادا ادخلت عدد زوجي اكبر من 2 النتيجة تكون 1
بينما لو ادخلت عدد فردي او العدد 2 فالنتيجة تكون 1

ادن يمكن القول ان البرنامج يجيب عما ادا كان العدد زوجي او فردي باستثناء 2
شكرا
+
الالغوريتم خاطئ
وينقصه
begin

end;

deput

fin;

لان مثلا في البوكل وايل ادا لم نضع
begin
end;
لا ندري ما هم الاوامر الدين يجب تكرارهم داخل البوكل وما ههم الاوامر الدين هم خارج البوكل

[ASSIL92]

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

[ASSIL92]

المشاركة الأصلية كتبت بواسطة you92cef

اظن ان هدا هو البرنامج الكامل

program tp02;
uses wincrt;
var i,c,n,q,r:integer;
begin
writeln('Donner le nombre N');
readln(n);
c:=0;
i:=2;
while(i<=(n div 2)) do begin
q:=n div 2;
r:= n-q*i;
if r=0 then 
c:=c+1;
i:=i+1;
end;
writeln(c);
end.

بخصوص عمل البرنامج فحسب علمي
ادا ادخلت عدد زوجي اكبر من 2 النتيجة تكون 1
بينما لو ادخلت عدد فردي او العدد 2 فالنتيجة تكون 1

ادن يمكن القول ان البرنامج يجيب عما ادا كان العدد زوجي او فردي باستثناء 2
شكرا
+
الالغوريتم خاطئ
وينقصه
begin

end;

deput

fin;

لان مثلا في البوكل وايل ادا لم نضع
begin
end;
لا ندري ما هم الاوامر الدين يجب تكرارهم داخل البوكل وما ههم الاوامر الدين هم خارج البوكل

*شكراا لك اخ يوسف على المعلومة *وكذلك الاخت اميرة التفاؤل عل المساعدة القيمة *

[.صفاء.]

المشاركة الأصلية كتبت بواسطة assil92

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

أظن أن الاخ يوسف قد قدم لكـ المساعدة اللازمة ، فقد قدم لك شرح الالغوريتم بارك الله فيه
أعتذر منك فقد فشلت في المحاولة
و اي استفسار اخر اعضاء منتدى الجلفة هنا للمساعدة

[ASSIL92]

لا انت ايضاا قدمتي لي الكثيير بمحاولتك في الموضوع شكراااااااا
ان شاء الله

[you92cef]

بخصوص البرنامج

عدد فردي النتيجة 0

عدد زوجي النتيجة 1

[ASSIL92]

شكراا لك على الاضافة اخي