• Viernes 29 de Marzo de 2024, 03:24

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - hervasiop12345

Páginas: [1]
1
Diseño de Algoritmos / ALGORITMO Resta de horas con tipo de 4 variables
« en: Lunes 25 de Julio de 2011, 18:46 »
Hola. Tengo pendiente de resolver un ejercicio que consiste en dada una hora deseada y teniendo el tipo hora y el tipo horario definido:
hora:tipo<h1,h2,m1,m2:entero>
horario:tipo tabla[1..100,1,2] de hora  #tabla que contiene en la primera columna la hora de salida de un bus y en la otra la hora de     
                                                       llegada 
Recorriendo la tabla hay que decir que autobús se aproxima más a la hora de llegada deseada (decir la hora de salida). El problema es a la hora de estar horas ya que tenemos 4 enteros. Los autobuses salen de 00 00 a 23 59 y no se considera que un bus salga un día y regrese al siguiente. Espero haberme explicado y gracias de antemano. Sólo necesito saber como hacer las restas , no pido que nadie me haga la tarea.

2
C/C++ / Problema Grafos : Violación de segmento
« en: Sábado 8 de Enero de 2011, 20:19 »
Buenas. Soy un programador novato y por ello con un programa que estoy haciendo aplicando el algoritmo de Dijkstra ( para calcular los caminos mínimos entre dos nodos ), obtengo el fallo violación de segmento. Interesados en ayudarme se lo mando por privado y que me digan algo , MUCHAS GRACIAS de antemano y me conectare frecuentemente.

3
Pascal / Problema intersección secuencias de enteros
« en: Miércoles 11 de Agosto de 2010, 17:50 »
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.

Páginas: [1]