مساعدة في الباسكال تمرين

[salemk]

اللي فهمتو
1) saisir deux entier a et b
2) afficher la somme a+b, a et b si a+b <1000

programme itératif sans modules
----------------------------------------------------------

Program djelfa1 ;
Uses wincrt ;
Var 
A,B : integer ;
Ok:Boolean;
Begin
While ok= false do 
begin
Readln(A);
Readln(B);
If A+B<1000 then
Ok:=true;
End;
Writeln(a+b);
Writeln(A);
Writeln(B);
End.

programme récursif avec un module
-----------------------------------------------------------------

Program djelfa2 ;
Uses wincrt ;
Procedure lecture (var x,y :integer);
Begin
Readln(x);
Readln(y);
End;
Var 
A,b:integer;
Begin
Lecture(a,b);
If A+B>1000 then
Lecture(a,b);
Writeln(a+b);
Writeln(A);
Writeln(B);
End.

[you92cef]

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

اللي فهمتو
1) saisir deux entier a et b
2) afficher la somme a+b, a et b si a+b <1000

programme itératif sans modules
----------------------------------------------------------

Program djelfa1 ;
Uses wincrt ;
Var 
A,B : integer ;
Ok:Boolean;
Begin
While ok= false do 
begin
Readln(A);
Readln(B);
If A+B<1000 then
Ok:=true;
End;
Writeln(a+b);
Writeln(A);
Writeln(B);
End.

programme récursif avec un module
-----------------------------------------------------------------

Program djelfa2 ;
Uses wincrt ;
Procedure lecture (var x,y :integer);
Begin
Readln(x);
Readln(y);
End;
Var 
A,b:integer;
Begin
Lecture(a,b);
If A+B>1000 then
Lecture(a,b);
Writeln(a+b);
Writeln(A);
Writeln(B);
End.

-----------------------
لقد جربت كلا الحلين وللاسف هما خاطئين

التمرين يقول انك تدخل قيمة معينة لn وتستمر في اعطاءها اي قيمة طالما ان مجموع القيم لا يتجاوز 1000

يعني مثلا تخيل انه لديك 1000 دينار
بامكانك شراء عدة اشياء طالما ان مجموعها لا يتجاوز 1000 دينار
هذا هو مبدا البرنامج

وفي الاخير يظهر لك عدد الارقام التي ادخلتها *-* اشترتيها*-* وقيمتها

مثلا لو ادخلت
500
400
200

فانه عليه ان يظهر بان مجموع الاعداد التي ادخلتها هي 900*-* قيمة الاشياء التي اشترتيها*-*
وعدد الاشياء التي اشتريتها هي 2
---------------------
برنامجك الاول فيه خطئ بحيث عند البدا في العمل به مثلا وعند ادخال قيم 500 اكثر من مرتين يستمر في العمل
*-* جرب بالرنامج الاول وادخل قيم 500 *-* يمكنك ادخالها 100 مرة بدون ان يتوقف الربنامج*-*

البرنامج الثاني
اذا ادخلنا مثلا قيم 100 و100 فان الربنامج سوف يتوقف

الحل باستخدام while
راجع الردود السابقة

[salemk]

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

-----------------------
لقد جربت كلا الحلين وللاسف هما خاطئين

التمرين يقول انك تدخل قيمة معينة لn وتستمر في اعطاءها اي قيمة طالما ان مجموع القيم لا يتجاوز 1000

يعني مثلا تخيل انه لديك 1000 دينار
بامكانك شراء عدة اشياء طالما ان مجموعها لا يتجاوز 1000 دينار
هذا هو مبدا البرنامج

وفي الاخير يظهر لك عدد الارقام التي ادخلتها *-* اشترتيها*-* وقيمتها

مثلا لو ادخلت
500
400
200

فانه عليه ان يظهر بان مجموع الاعداد التي ادخلتها هي 900*-* قيمة الاشياء التي اشترتيها*-*
وعدد الاشياء التي اشتريتها هي 2
---------------------
برنامجك الاول فيه خطئ بحيث عند البدا في العمل به مثلا وعند ادخال قيم 500 اكثر من مرتين يستمر في العمل
*-* جرب بالرنامج الاول وادخل قيم 500 *-* يمكنك ادخالها 100 مرة بدون ان يتوقف الربنامج*-*

البرنامج الثاني
اذا ادخلنا مثلا قيم 100 و100 فان الربنامج سوف يتوقف

الحل باستخدام while
راجع الردود السابقة

كلاهما يعمل ولكن لم يستجيبا للطلب
قد حددت ما فهمت ثم اجبت وللأسف لم أستوعب جيدا المطلوب، على كل حال البركة في الاولاد يعطيهم الصحة

[you92cef]

هذا هو الحل

program ex09;
uses wincrt;
var i,n,s,r,z:integer;
begin
i:=0;
s:=0;
r:=1000;
while s<1000 do begin
readln(n);
s:=s+n;
r:=r-n;
i:=i+1;
end;
if s>1000 then writeln('erreuer');
writeln('la somme est',s-n);
writeln('entree est',i-1);
end.