Votre question

prob dev-pascal [résolu]

Tags :
  • linux
  • Programmation
Dernière réponse : dans Programmation
5 Octobre 2007 21: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 ;) 

Autres pages sur : prob dev pascal resolu

5 Octobre 2007 22:38:11

salut, rajoute un
  1. readln;
à la fin du programme, ca attendra l'appui sur entrée avant de fermer la console.
6 Octobre 2007 00:57:32

merci bcp pour l'aide ça marche now
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS