Traduction en programme C
HAFIDHOU
-
[Dal] Messages postés 6205 Date d'inscription Statut Contributeur Dernière intervention -
[Dal] Messages postés 6205 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.
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
- Traduction créole guadeloupe français reverso ✓ - Forum Loisirs / Divertissements
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
13404
Date d'inscription
Statut
Membre
Dernière intervention
1 509
c'est clairement plus lisible...
[Dal]
Messages postés
6205
Date d'inscription
Statut
Contributeur
Dernière intervention
1 105
oui... et il ya des chances que soit en réalité