Fundamentos de Programación
Publicado por elena (3 intervenciones) el 06/11/2008 20:02:02
Hola a todos.Soy estudiante de 1º de Ingeniería de Telecomunicaciones y tengo un problemilla con la asignatura mencionada anteriormente.Bueno,os explico mas o menos de lo que va.Hay que hacer una instrucción que permita que las variables a y b cambien de valor.El problema en sí no es difícil,he metido todo lo que hacía falta pero no entiengo por que me da error en la variable.Bueno,os pongo el problema entero:
Program intercambio;
Uses CRT
var
res:char;
a,b,aux:integer;
begin
Repeat
clrscr; (*limpiar la pantalla*)
write;('introduce un valor para a= ');readln(a);
write;('introduce un valor para b= ');readln(b);
aux:=a;
a:=b;
b:=aux;
writeln(*el valor final de a= ',a);
writeln(*el valor final de b= ',b);
(*aqui pondremos las instrucciones del algoritmo*)
write('Desea continuar? s/n ');
readln(res);
until res <> 's'
end.
Program intercambio;
Uses CRT
var
res:char;
a,b,aux:integer;
begin
Repeat
clrscr; (*limpiar la pantalla*)
write;('introduce un valor para a= ');readln(a);
write;('introduce un valor para b= ');readln(b);
aux:=a;
a:=b;
b:=aux;
writeln(*el valor final de a= ',a);
writeln(*el valor final de b= ',b);
(*aqui pondremos las instrucciones del algoritmo*)
write('Desea continuar? s/n ');
readln(res);
until res <> 's'
end.
Valora esta pregunta


0