SVP!!je cherche solution d'exercice PASCAL

program remplissage_tab;
uses wincrt;
type tab=array[1..10]of string;
var P,Q:tab;
n,i,j:integer;
test:boolean;
T:tab;
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(p));
END;
until (test);
END;
for i:=1 to n do
begin
for j:= length(P) downto 1 do
Q:=Q+P[j];
end;
for i:=1 to n do
writeln(q);
END.
 
program remplissage_tab;
uses wincrt;
type
tab=array[1..100]of string;
var
P,Q:tab;
n,i,j:integer;
valide:boolean;
BEGIN
repeat
write('donner la taille du tableau :');
readln(n);
until (n >1) and (n<100);
for i:= 1 to n do
BEGIN
repeat
writeln ('donner l''elemnt ',i);
readln(P);

j:=0;
repeat
j:=j+1;
valide:=(P[j] in ['0'..'9']);
until (valide=false) or (j=length(p));
until (valide);
END;

for i:=1 to n do
begin
for j:= length(P) downto 1 do
Q:=Q+P[j];
end;
writeln ('le tableau final est');
for i:=1 to n do
writeln(q);
END.
 
Pour ex2
Program chankouti2007;
uses wincrt;
type tab=array[1..50] of string;
var
t:tab;i,n,d,e:integer;

function inverser(ch:string):string;
var i,j:integer; c:char;
begin
i:=1;
j:=length(ch);
while(i<j) do
begin
c:=ch;
ch:=ch[j];
ch[j]:=c;
i:=i+1;
j:=j-1;
end;
inverser:=ch;
end;

begin

repeat write('donner N: ');readln(N); until N in [1..50];

for i:=1 to N do
repeat write('T[',i,']= '); readln(t);val(t,d,e);until e=0;

for i:=1 to n do
t:=inverser(t);

for i:= 1 to n do
writeln(t, ' | ');
end.





 
solution pour ex 1
il faut tenir compte le profondeur de la fleuve pour les deux côtés


calcul du coût minimal

program votre_app ;
uses wincrt ;

var
x,y,xmin:integer;
prix,min,c,aux:real;


begin
x:=0;
y:=300;

c:=0;
(**initialisation du cout minimale **)
(** ou 16=8+8 le profondeur**)

min:=(300*4)+((900+16)*5);

while y<>0 do

begin
x:=x+1;
y:=y-1;
aux:=(x*x)+(900*900);
c:=sqrt(aux);
prix:=y*4+(c+16)*5;
if prix<min then
begin
min:=prix;
xmin:=x;
end;
end;
writeln('pour x= ',xmin,' on a un coût minimale égale à ',min);

end.
==================================================
calcul du coût d’installation pour une distance de piquet p donnée


program votre_app ;
uses wincrt ;

var
x,y,p:integer;
prix,c,aux:real;


begin
y:=300;

write('donner p = ');
readln(p);
x:=y-p;

aux:=(x*x)+(900*900);
c:=sqrt(aux);
prix:=(p*4)+((c+16)*5);

writeln('pour p= ',p ,' le cout d''installation égale à ',prix);

end.
 
les defferent type de tri et programma triangle de pascal
 

المرفقات

  • execice tri et triangle de pascal.rar
    50,5 KB · المشاهدات: 15
solution pour ex 1
il faut tenir compte le profondeur de la fleuve pour les deux côtés


calcul du coût minimal

program votre_app ;
uses wincrt ;

var
x,y,xmin:integer;
prix,min,c,aux:real;


begin
x:=0;
y:=300;

c:=0;
(**initialisation du cout minimale **)
(** ou 16=8+8 le profondeur**)

min:=(300*4)+((900+16)*5);

while y<>0 do

begin
x:=x+1;
y:=y-1;
aux:=(x*x)+(900*900);
c:=sqrt(aux);
prix:=y*4+(c+16)*5;
if prix<min then
begin
min:=prix;
xmin:=x;
end;
end;
writeln('pour x= ',xmin,' on a un coût minimale égale à ',min);

end.
==================================================
calcul du coût d’installation pour une distance de piquet p donnée


program votre_app ;
uses wincrt ;

var
x,y,p:integer;
prix,c,aux:real;


begin
y:=300;

write('donner p = ');
readln(p);
x:=y-p;

aux:=(x*x)+(900*900);
c:=sqrt(aux);
prix:=(p*4)+((c+16)*5);

writeln('pour p= ',p ,' le cout d''installation égale à ',prix);

end.
ألف شكر للأحلى و أغلى أعضاء أحسن منتدى
:kiss::kiss::kiss::kiss::kiss:
 
أعلى