Permutation de 2 entiés (turbo pascal)
5402
Messages postés
7
Statut
Membre
-
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 :))
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 ,z : integer ;
begin
writeln ('A=');
readln(A) ;
writeln ('B=');
readln(B);
z:=a
a:=b
b:=z
END.
