prob dev-pascal [résolu]

Dernière réponse : 5 Octobre 2007 22:57 dans Programmation

toisur

5 Octobre 2007 19:06:47

Bonjour a tous

donc voila j'ai créé un petit programme pour transformer les nombre que je veux dans la base voulu en pascal d'habitude je travail a la fac sous linux avec kate mais la je voulais bosser chez moi j'ai donc télécharger dev-pascal et j'ai ouvert mon programme en voulant l'exécuter tout marche bien on me demande dans quelle base je veux transformer le nombre on me demande le nombre a transformer mais la fenetre se referme tt de suite apres et me laisse pas le temps de lire le résultat

ps: je travail sous vista

voila le bout de code

Citation :

program conversion1;

const
MAX = 16; // valeur maximale de la base

type
BASE = 2..MAX; // bases gérées par le programme

// entierEnChiffre($n$) = le caractère (chiffre)
// représentant l'entier $n$
// CU : $0\leq n < 16$
function entierEnChiffre(n : CARDINAL) : CHAR;
begin
case n of
0..9 : entierEnChiffre := CHAR(n+ord('0'));
10..15 : entierEnChiffre := CHAR(n-10+ord('A'));
end {case};
end {entierEnChiffre};

// convertitEntier($n$,$b$) = la chaîne de caractères qui
// représente l'entier $n$ en base $b$
function convertitEntier(n : CARDINAL; b : BASE) : STRING;
var x:string;
begin
if n div b = 0 then begin
convertitEntier:=entierEnChiffre(n mod b)+x;
end else begin
x:= entierEnChiffre(n mod b)+x;
convertitEntier:=convertitEntier(n div b, b)+x;
end;

end {convertit};

var
b : BASE;
n : CARDINAL;

begin
write('Base -> ');
readln(b);
write('Nombre -> ');
readln(n);
writeln('En base ',b,', ',n,' s''écrit : ',
convertitEntier(n,b));
end.

n'ayant jamais utilisé dev-pascal je vois pas ou est mon erreur