[خليل صلاح]

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

السلام عليكم

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

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