help me in pascal

[خليل صلاح]

المشاركة الأصلية كتبت بواسطة حذيفة بن اليمان

السلام عليكم

البرنامج الأول:

program djelfa;
var x,resultat: real; n,i: integer;
begin
write ('Donner X ');readln(x);
write ('Donner N ');readln(n);
for i:= 0 to n do
resultat := x*x;
write ('Le resultat est egale= ',resultat);
readln;readln;
end.

السلام عليكم

هذا الحل غير صحيح ....
فكما ترى في وسط الboucle تجرى نفس العملية و هي resultat:=x*x
اي انه في النهاية ستحصل على x² و ليس على x¨^n

عدل البرنامج حيث حسب حلك يكون resultat:=resultat*x مع وضع resultat=1 قبل بداية الboucle
+ بداية indice تكون من 1 و ليس من 0

[حذيفة بن اليمان]

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

السلام عليكم

هذا الحل غير صحيح ....
فكما ترى في وسط الboucle تجرى نفس العملية و هي resultat:=x*x
اي انه في النهاية ستحصل على x² و ليس على x¨^n

عدل البرنامج حيث حسب حلك يكون resultat:=resultat*x مع وضع resultat=1 قبل بداية الboucle
+ بداية indice تكون من 1 و ليس من 0

بارك الله فيك، بالفعل كنت مخطئ في ذلك بسبب أنني يومها عملت البرنامج ليلا وكنت متعب قليلا مش مركز.

هذا هو البرنامج الصحيح بعد الأخذ بما قلته

program djelfa;
var x,resultat: real; n,i: integer;
begin
write ('Donner X ');readln(x);
write ('Donner N ');readln(n);
resultat:= 1;
for i:= 1 to n do
resultat := resultat*x;
write ('Le resultat est egale= ',resultat);
readln;readln;
end.