Permutation de 2 entiés (turbo pascal)
5402
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
Achraf Abdelbari -
Achraf Abdelbari -
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 - Télécharger - Édition & Programmation
- Supercopier 2 - Télécharger - Gestion de fichiers
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- 2 ecran pc - Guide
3 réponses
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.
