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 (
;
Cargar_Fichero_mse1 (A, 'entrada.txt');
Cargar_Fichero_mse1 (B, 'entrada2.txt');
Comenzar_mse1 (A);
Comenzar_mse1 (
;
Arrancar_mse1 (C);
while (EA_mse1 (A) <> mse1_MarcaFin) and (EA_mse1 (
<> mse1_MarcaFin) do
begin
if EA_mse1 (A) = EA_mse1 (
then
begin
Registrar_mse1 (C,EA_mse1(A));
Avanzar_mse1 (A);
Avanzar_mse1 (
;
end
else if EA_mse1 (A) > EA_mse1 (
then Avanzar_mse1 (
else if EA_mse1 (
< EA_mse1 (A) then Avanzar_mse1 (
end;
Marcar_mse1 (C);
Salvar_Fichero_mse1 (C, 'salida.txt');
Readln;
end.
