Permutation de 2 entiés (turbo pascal)
5402 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Achraf Abdelbari - 25 nov. 2012 à 20:39
Achraf Abdelbari - 25 nov. 2012 à 20:39
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.
