minuscule programme en pascal Fermé

Question

Bonsoir , j'ai l'exercice suivant à réaliser en pascal :

Donnez une séquence d'instructions qui échange les valeurs de deux variables numériques.

Que veulent ils dire , si je tape au clavier x = 5 et y = 2 et que je tape entrée çà doit me donner x = 2 et y = 5 ?

Si c'est le cas j'ai fait ceci , qu'en pensez vous :


program echange;

uses

var 

nombre: INTEGER;
nombre1: INTEGER;

nombre := x;
nombre1 := y;

begin


if(nombre := x)
then
nombre1 := y
else


Ensuite je ne vois pas comment continuer mon programme , quelqu'un aurait une aide à m'apporter ?

merci

alex · Answer

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...

Char Snipeur · Answer

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..)

Stephano (FAIS LA POULE !!!) · Answer

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

Char Snipeur · Answer

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

lirey83 · Answer

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

gaby10 · Answer

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}

samirovski · Answer

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.

Minuscule programme en pascal

7 réponses

Discussions similaires