SVP!!je cherche solution d'exercice PASCAL

​

SVP à tous qui peuvent m’aider, c’est urgent !!!!!!!!!

Je cherche une solution à ces deux exercices en PASCAL.

Je vous attends, merci d’avance.



​

 

ضع محاولتك اولا و سنقوم بإصلاحها لتحصل لك الفائدة أما ان تضع تمرين هكذا فأعلم ان المنتدى لم و لن يكون لتعويض التلميذ في القيام بواجباته​

 

voila mon essai pour le deuxième exercice: le voilà, j'ai pas encore fait l'inversement car je le connais, j'attend vos propositions
​

program remp_tab;
uses wincrt;
type tab=array[1..100]of string;
var
P:tab;
n,i,j:integer;
begin
repeat
write('donner la taille du tableau ');
read(n);
until ((n>1) and (n<100));
for i:=1 to n do
begin
for j:=1 to n do
begin
writeln('P[',i,'][',j,']=');
repeat

read(P[j]);
until(P[j] in ['0'..'9']);
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(P[j],' ');

end;

end.

​

 

خويا عندك في التمرين tableau و انت خدمتها matrice

 

program remplissage_tab;
uses wincrt;
type tab=array[1..10]of string;
var P,Q:tab;
n,i:integer;
BEGIN
repeat
write('donner un entier n:');readln(n);
until n in [1..100];
for i:= 1 to n do
BEGIN
repeat
write('P[',i,']=');readln(P);
if length(P=0) then (test=false)
else
BEGIN
j:=0;
repeat
j:=j+1;
test:=(P[j] in ['1'..'9']);
until (test=false) or (j=length(T[j]));
END;
until (test);
END;
for i:= 1 to n do
for j:= length(T) downto 1 do
Q:=Q+P[j];
END.

 

le programme n'est pas compilé (j'ai pas pu vérifier qu'il marche correctement)

donc si tu a un problème avec tu peut me dire !!

 

شكرا جزيلا أخي الكريم

j'ai bien fait la compilation en faisant qque modifications.
Pour le deuxième exercice voilà mon essai, mais en réalité j'ai pas bien comprendre l'innoncé de l'exercice.

program distance;
uses wincrt;
var x,d,cout:real;
p:integer;

Begin
repeat
writeln('donner une distance');
read(p);
until((p>0) and (p<300));

x:=300-p;
d:=SQRT(sqr(x)+sqr(900));
cout:=d*4;

writeln('x=',x,'*** d=',d,'*** cout=',cout);

End.


Merci d'avance, j'attend vos propositions.
​

​

 

أرجووووووكم إني بانتظار مساعداتكم و شكرا

 

اخواااااااااااااااااني ،هل من محاولة؟؟؟

 

اخواااااااااااني هل من محاولة؟؟؟؟؟؟؟؟؟؟
إني في الانتظار