Traduction en programme C
HAFIDHOU
-
[Dal] Messages postés 6373 Statut Contributeur -
[Dal] Messages postés 6373 Statut Contributeur -
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.
A voir également:
- Traduction en programme C
- Google traduction photo - Guide
- Programme demarrage windows - Guide
- Mettre en veille un programme - Guide
- Hibiki traduction telecharger - Accueil - Intelligence artificielle
- Bible hébreu traduction mot à mot pdf - Télécharger - Vie quotidienne
1 réponse
Salut,
ton programme Pascal, cela ne serait pas plutôt cela :
Dal
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
Miura564
Messages postés
14829
Statut
Membre
1 509
c'est clairement plus lisible...
[Dal]
Messages postés
6373
Statut
Contributeur
1 106
oui... et il ya des chances que soit en réalité
