• Domingo 22 de Septiembre de 2019, 13:05

Autor Tema:  Problema intersección secuencias de enteros  (Leído 946 veces)

hervasiop12345

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Problema intersección secuencias de enteros
« en: Miércoles 11 de Agosto de 2010, 17:50 »
0
Hola a todos. Soy bastante novato en el tema de la programación y estoy trabajando con free pascal. El caso es que me compila el programa sin error alguno pero no funciona , da un error. Os dejo el enunciado , el código que he hecho y espero con gracias que alguien me diga algo .

"Escriba un algoritmo que obtenga la interseccion de dos conjuntos de enteros representados como secuencias ordenadas crecientemente"



program prob4;

uses
unitmse1;

var
A,B,C:MSE1;

begin

Tratamientoinicial_mse1 (A);
Tratamientoinicial_mse1 (B);
Cargar_Fichero_mse1 (A, 'entrada.txt');
Cargar_Fichero_mse1 (B, 'entrada2.txt');
Comenzar_mse1 (A);
Comenzar_mse1 (B);
Arrancar_mse1 (C);

while (EA_mse1 (A) <> mse1_MarcaFin) and (EA_mse1 (B) <> mse1_MarcaFin) do

begin

if EA_mse1 (A) = EA_mse1 (B) then

begin

Registrar_mse1 (C,EA_mse1(A));
Avanzar_mse1 (A);
Avanzar_mse1 (B);
end

else if EA_mse1 (A) > EA_mse1 (B) then Avanzar_mse1 (B)
else if EA_mse1 (B) < EA_mse1 (A) then Avanzar_mse1 (B)

end;

Marcar_mse1 (C);
Salvar_Fichero_mse1 (C, 'salida.txt');
Readln;
end.