Pascal/Turbo Pascal - intercambio

 
Vista:

intercambio

Publicado por acasru (3 intervenciones) el 19/11/2005 13:57:29
en este mini programa intecambio querria que se intercambiaran los valores de las variables a y b, con la condicion de no cambiar esta parte del programa que os doy:

var a, b:integer;
begin
write('Introduce un valor para a: ');
readln(a)
write('introduce un valor para b: ');
readln(b)

-------------poner lo necsario para que a y b se intercambien susvalores------------------------

writeln('Ahora la variable a vale',a,' y b vale',b)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:intercambio

Publicado por Maibok (9 intervenciones) el 19/11/2005 22:39:54
Lo más fácil es utilizar una variable intermedia c: sería lo siguiente:

var
a, b:integer;
c: integer;
begin
write('Introduce un valor para a: ');
readln(a)
write('introduce un valor para b: ');
readln(b)
c:=b;
b:=a;
a:=c;
//En este punto a ya vale lo que valía b y b vale lo que valía a.
writeln('Ahora la variable a vale',a,' y b vale',b)
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 11
Ha disminuido 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

RE:intercambio

Publicado por Ibai (5 intervenciones) el 19/03/2021 00:29:49
Perfectoo!!! Me ha servidoo, gracias!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar