Traduction en programme C
HAFIDHOU
-
[Dal] Messages postés 6122 Date d'inscription Statut Contributeur Dernière intervention -
[Dal] Messages postés 6122 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Qui peut me traduire ce programme Pascal en programme C?
Voici le programme:
Pascal
program cryptage?
uses wincrt?
var c:char?
e,m:integer?
begin writeln('entrer un caractere')?
readln(c)?
if c in ['A'..'B'] then
c:=pred (c)?
else if c in ['a'..'z'] then
c:= succ (c)
else if c in ['0'..'9'] then
begin
val(c,m,e)?
c:=chr(ord(9)m)?
end
else
c:=succ(succ(c)) ?
writeln(c) ?
end.
Qui peut me traduire ce programme Pascal en programme C?
Voici le programme:
Pascal
program cryptage?
uses wincrt?
var c:char?
e,m:integer?
begin writeln('entrer un caractere')?
readln(c)?
if c in ['A'..'B'] then
c:=pred (c)?
else if c in ['a'..'z'] then
c:= succ (c)
else if c in ['0'..'9'] then
begin
val(c,m,e)?
c:=chr(ord(9)m)?
end
else
c:=succ(succ(c)) ?
writeln(c) ?
end.
1 réponse
-
Salut,
ton programme Pascal, cela ne serait pas plutôt cela :
program truc;
uses
Crt;
var
c: char;
e, m: integer;
begin
Writeln('entrer un caractere');
Readln(c);
if c in ['A'..'B'] then
c := pred(c)
else if c in ['a'..'z'] then
c := succ(c)
else if c in ['0'..'9'] then
begin
val(c, m, e);
c := chr(Ord(9) - m);
end
else
c := succ(succ(c));
Writeln(c);
end.
Dal
