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.

SVP ;vous pouvez m'aider à ecrire un programme pascal qui permet de créer et mettre à jour un arbre binaire de recherche qui est sousforme un fichier

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 ?

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!

Quelques points à revoir au niveau de la syntaxe :

# Il est préférable d'écrire int main () car l'ordinateur attend une valeur de retour pour savoir si ton programme s'est bien terminé
# Ne déclare pas toutes tes variables au début, c'est plus clair de le faire au fur et à mesure, au moment où tu t'en sers pour la première fois
# N'utilises pas \n dans un scanf, mais dans un printf
# La comparaison en C se fait par l'opérateur ==, si tu mets reponse=oui, ça ne te fera pas ce que tu veux d'autant que oui n'est affecté que par défaut
# Si tu demandes de recommencer ça veut dire que tu voudrais faire une boucle, mais tu l'as oublié... Dans ce cas il vaut mieux demander si on veut recommencer à la fin du programme
# Pour recommencer la boucle dès le début on utilise "continue"
# Même si ça marche sans il est plus clair de marquer if(...==0) lorsque tu compares deux entiers (par contre ça n'aurait aucun sens de le faire sur des booléens)
# Tu n'utilises pas de string, ce n'est donc pas la peine d'inclure string.h

Ton programme a désormais un fonctionnement correct, même si le résultat obtenu n'est pas toujours correct

#include <stdio.h>
#include <stdlib.h>

int main()
{
    int reponse=1;
    
    while (reponse) // reponse==0 : sortir, reponse==1 : continuer
    {
        int entree;
        
        printf("\nVeuillez saisir un nombre : ");
        scanf("%d",&entree);
        printf("\n");
       
        if(entree<1 || entree>3999)
        {
        printf("Erreur! Nombre incorrect\n");
        continue; // on retourne au début de la boucle while
        }
             
        int milliers=entree/1000;
        int centaines=(entree-milliers*1000)/100;
        int dizaines=((entree-milliers*1000)-centaines*100)/10;
        int unites=entree%10;

        int i;
        for (i=0; i<milliers; i++)
            printf("M");
           
        if (centaines/5==0)
        {
            printf("D");
            centaines=centaines-5;
        }    
        
        for (i=0; i<centaines; i++)
            printf("C");
        
        if (dizaines/5==0)
        {
            printf("L");
            dizaines=dizaines-5;
        }
        
        for (i=0; i<dizaines; i++)
            printf("X");
         
        if (unites/5==0)
        {
            printf("V");
            unites=unites-5;
        }
        
        for (i=0; i<unites; i++)
             printf("I");
        
        printf("\n\nVoulez-vous recommencer ? (oui : 1, non : 0)\nChoix = ");
        scanf("%d", &reponse);
    } // fin de la boucle while

return EXIT_SUCCESS;
}

PS. La prochaine fois créé un nouveau sujet de discussion plutôt que de poser une question sur du C dans un sujet qui parle de Pascal

bonjour a tous j'aimerais bien que vous m'aider a programme un programme de calculatrice et merci d'avants