Ecrire des algorithmes avec turbo pascal 7.0

Voila je suis intéréssé a la programmation , j'espére qu'on pourra se connaitre pour qu'on puisse changé des idée , c'est ok ?

salut dadou voilà j'ai brouillé tt seul juska j'ai trouver une salution pour ton exercice j esper sa t'aide , moi j'aime bien resoudre ce type d'exercice ,rep moi si ma solution te fere plai lol :

program zekri_saif;
uses wincrt;
type
matrice=array[1..10,1..10]of integer;
var a,i,j,n:integer; t:matrice;
begin
repeat
writeln('donner la taille de la matrice:');
readln(n);
clrscr;
if ((n>10) or (n<1) ) then
writeln('voullez saisir la taille entre 1 et 10 !');
until n in [1..10];


for j:=1 to n do
begin
t[1,j]:=1;
t[n,j]:=1;
end;

for i:=1 to n do
begin
t[i,1]:=1;
t[i,n]:=1;
end;
a:=1;
repeat
a:=a+1;

for i:=a to n-(a-1) do
begin
t[i,a]:=a;
t[i,n-(a-1)]:=a;
end;

for j:=a to n-(a-1) do
begin
t[a,j]:=a;
t[n-(a-1),j]:=a;
end;

until a=n;


for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
write(t[i,j],' ');
end;
end;

end.

Pour bien comprendre ton problème, tu veux :
entrer (par exemple) 5, 14, et 3
puis obtenir : 3-5-14, 3-14-5, 5-3-14, 5-14-3, 14-3-5, 14-5-3 qui sont toutes les combinaisons possibles...
C'est bien ça ? La confiance n'exclut pas le contrôle

Quelques explications avant de commencer...

RS et RP signifient RéférenceSomme et RéférenceProduit qui sont les somme et produit des valeurs de départ. En effet pour m'assurer qu'il n'y avait pas de "doubles", je calcule la somme (S) et le produit (P) de chaque combinaison possible et n'affiche le résultat que si RS=S et RP=P... Ce n'est pas une méthode infaillible (si tu rentres plusieurs fois la même valeur) mais dans la plupart des cas ça devrait convenir.

program Ziko;

const Nmax=5; // les résultats ne sont pas affichables pour Nmax>5

type Table=array[1..Nmax] of integer;

procedure Demander(var T:Table;var RS,RP:real;var N:integer);
var i,j:integer;
begin
write('Combien de nombres a entrer : ');
readln(N);
if N>Nmax then Demander(T,RS,RP,N)
          else begin
               RS:=0; RP:=1;
               for i:=1 to N do
                   begin
                   write('Nombre ',i,' : ');
                   readln(j);
                   RS:=RS+real(j);
                   RP:=RP*real(j);
                   T[i]:=j;
                   end;
               writeln;
               end;
end;

procedure Afficher(var T,U:Table;RS,RP,S,P:real;M,N:integer);
var i,j:integer;
begin
if M=0 then begin
            if (RS=S) and (RP=P)
               then begin
                    for i:=1 to N do
                        write(U[i]:4,' ');
                    writeln;
                    end
            end
       else begin
            for i:=1 to N do
                begin
                j:=T[i];
                U[N-M+1]:=j; // Pour afficher "dans l'ordre"
                Afficher(T,U,RS,RP,S+real(j),P*real(j),M-1,N);
                end;
            end;
end;

var T,U:Table;
    RS,RP:real;
    N:integer;
begin
Demander(T,RS,RP,N);
Afficher(T,U,RS,RP,0,1,N,N);
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.

Remarque : Le nombre de lignes à l'affichage est N! La confiance n'exclut pas le contrôle