conv_b_10PROGRAM

Voir le sujet précédent Voir le sujet suivant Aller en bas

conv_b_10PROGRAM

Message par Mariem A le Dim 21 Mar - 14:06

program ex3;
uses wincrt;
var
b:integer;
n:string;


procedure saisie(var b:integer);
begin
repeat
writeln('donner l''entier');
readln(b);
until (b>=2);
end;


procedure saisie2(var n : string);
begin
repeat
writeln('donner n);
readln(n);
until(n>0);


function conv_b_10(n:string;b:integer);
var
s,p,i:integer;
v:real;
s:=0;
p:=1;
for i := length(n) to 1 (pas=-1) do
if n[i] in['0'..'9']then
begin
val(n[i],v,e);
else
v:= ord(n[i]-55);
end;
s:=s+v*p;
p:=p*b;
conv_b_10:=s;
end;

begin
saisie(b);
saisie2(n,b);
write(conv_b_10(n,b);
end.

Mariem A
Invité


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum