Permutation de 2 entiés (turbo pascal)
Fermé
5402
Messages postés
5
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
27 novembre 2011
-
27 avril 2011 à 20:12
Achraf Abdelbari - 25 nov. 2012 à 20:39
Achraf Abdelbari - 25 nov. 2012 à 20:39
Bonjour,
je viens de crée un programme de permutation de 2 entiers A et B en turbo pascal , mais la création est échouée :D , si qlq peut m'écrire le programme de a jusqu'à z :DD
merci d'avance :))
je viens de crée un programme de permutation de 2 entiers A et B en turbo pascal , mais la création est échouée :D , si qlq peut m'écrire le programme de a jusqu'à z :DD
merci d'avance :))
A voir également:
- Permutation de 2 entiés (turbo pascal)
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Word numéro de page 1/2 - Guide
- 2 ecran pc - Guide
- 3 bip long 2 bip court hp - Forum BIOS
3 réponses
KX
Messages postés
16754
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
25 novembre 2024
3 020
27 avril 2011 à 20:37
27 avril 2011 à 20:37
Montre nous ton code pour voir ce qui a échoué...
Voila la plus correcte :
program permutation ;
uses wincrt ;
var A , B ,c: integer ;
begin
writeln ('A=');
readln(A) ;
writeln ('B=');
readln(B);
c:=A;
A:=B;
B:=c;
writeln ('Voila la valeur de A apres la permutation');
writeln (A);
writeln ('Voila la valeur de B après la permutation');
writeln (B);
End.
program permutation ;
uses wincrt ;
var A , B ,c: integer ;
begin
writeln ('A=');
readln(A) ;
writeln ('B=');
readln(B);
c:=A;
A:=B;
B:=c;
writeln ('Voila la valeur de A apres la permutation');
writeln (A);
writeln ('Voila la valeur de B après la permutation');
writeln (B);
End.
5402
Messages postés
5
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
27 novembre 2011
27 avril 2011 à 20:47
27 avril 2011 à 20:47
program permutation ;
uses wincrt ;
var A , B ,z : integer ;
begin
writeln ('A=');
readln(A) ;
writeln ('B=');
readln(B);
z:=a
a:=b
b:=z
END.
uses wincrt ;
var A , B ,z : integer ;
begin
writeln ('A=');
readln(A) ;
writeln ('B=');
readln(B);
z:=a
a:=b
b:=z
END.
KX
Messages postés
16754
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
25 novembre 2024
3 020
27 avril 2011 à 20:50
27 avril 2011 à 20:50
Il te manque des ; sur les 3 dernières lignes, sinon c'est correct...