Traduction en programme C

Fermé
HAFIDHOU - 12 sept. 2013 à 23:49
[Dal] Messages postés 6194 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 11 octobre 2024 - 13 sept. 2013 à 00:46
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.

1 réponse

[Dal] Messages postés 6194 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 11 octobre 2024 1 092
13 sept. 2013 à 00:31
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
0
Miura564 Messages postés 13404 Date d'inscription dimanche 18 novembre 2012 Statut Membre Dernière intervention 2 février 2015 1 505
13 sept. 2013 à 00:32
c'est clairement plus lisible...
0
[Dal] Messages postés 6194 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 11 octobre 2024 1 092
Modifié par [Dal] le 13/09/2013 à 00:46
oui... et il ya des chances que
  if c in ['A'..'B'] then
soit en réalité
if c in ['A'..'Z'] then
0