help me in pascal

[أَمِيرَةُ الأَوْرَآسْ]

أريد حلا لهذا التمارين écrire un program pascal qui calcule x^n x est un nombre real et n nombre entier
et
écrire un programme pascal on dispose d’un vecteur de n entier naturels ;ranger les nombres pairs au début du vecteur et les nombre impaires à la fin
et
écrire un programme pascal
soit T un tableau de 7 caractère correspondant à un mot. Ecrire les instructions permettant de modifier T de sorte que le mot soit renversé, par exemple "bonjour" devient "ruojnob"a

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

السلام عليكم

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



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.

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

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

قريبا بحول الله

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

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



Program CH6_Program12;
Var
S,st: string;
I: integer;
Begin
Writeln ('Donner le mot ');
Readln(s);
St:='';
For i:= length(s) downto 1 do
St:= st + s[i];
Writeln (st);
readln;readln;
End.

[خليل صلاح]

السلام عليكم

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



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.

[King Soft]

السلام عليكم ورحمة الله

بالنسبة للتمرين الثاني فهاهو الحل



Program Pair;
var i,k,z,n:integer;
T:Array[1..100] of integer;
begin
Write('Taper le nombre d éléments de table :');
Read(n);
k:=1;
Writeln('Romplier le vecteur :');
for i:=1 to n do
Read(T[i]);
for i:=1 to n do
begin
if T[i] mod 2 = 0 then
begin
Z:=T[k];
T[k]:=T[i];
T[i]:=Z;
K:=k+1;
end;
end;
for i:= 1 to n do
Write(T[i]:6);

Readln;readln;


end.


بالتوفيق