Minuscule programme en pascal

Pour pouvoir permuter les valeurs, il faut se sevrir d'une troisieme variable ...

nb1 := x;
nb2 := y;

tmp := y;
nb2 := x;
nb1 := tmp;

Voila, sinon... je ne sais pas ce que tu fais comme etude, mais c'est carrement depassé de faire du Pascal, fais plutot du C si tu veux commencer la programmation..

Bon courage...

Salut.
Sans être méchant, c'est n'importe quoi ton programme.
tu utilise les valeurs de x et y sans les initialiser.
Ensuite tu utilise une opération d'assignation dans le if, là où j'auri plutôt mis un booléen. le symbole de comparaison, c'est = ou == (je sais plus)
Par contre, le pascal c'est pas dépasser. ça permet d'acceder progressivement au Delphi qui est un langage pas mal utilise pour faire des interfaces graphique, tel que DevCpp (et oui..)

Si, c'est depassé le Pascal .. en plus, c foireux comme langage ...
++

une belle affirmation bien étayer comme il faut comme on les aime.
+

effectivement, on se demande qui est le plus foireux ....

salut mickael,
pour ton programme, si je comprend bien tu veux prendres deux nombres en entree et les permuter. Si c'est ca,voici ce que je pense sa pourrais etre

program permut;

var nombre1,nombre2,tmp:integer;

begin

write('Entre le premier nombre :');
readln(nombre1);
write('entre le second nombre :');
readln(nombre2);
writeln('Avant permutation nombre1=',nombre1, 'et nombre2=',nombre2);

tmp:=nombre1;
nombre1:=nombre2;
nombre2:=tmp;

writeln('Apres permutation nombre1=',nombre1, 'et nombre2=',nombre2);

end.
{fin du programme}

program permutation;
uses crt;
var x,y,z : real;
begin
write('donner les 3 nombres x,y,z ');
readln (x,y,z);
z:=x;
x:=y;
y:=z;
write ('le nombre x est' ,y et le nombre y est ' ,x);
readln
end.