• Jueves 27 de Febrero de 2020, 00:09

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.


Temas - Juan Ramon

Páginas: [1]
1
Pascal / Problema con array
« en: Jueves 29 de Enero de 2009, 01:04 »
Como puedo leer de un archivo de texto y guardar cada linea en dos array de diferente tamaño.

Son array dinamicos y la funcion para calcular los elementos de cada array seria asi:

Function numero_valores_linea(var fich: text):integer;
(*Funcion que devuelve el numero de elementos de una linea*)

  Var

        contador:integer;
       aux:integer;
  begin
        contador:=0;

        while not eoln(fich) do
        begin
                read(fich,aux); //sino se pone na no lee hay k asignarle var aunk no la guardemos
                contador:=contador+1;

        end;

        readln(fich); //indica el salto de linea
        numero_valores_linea :=contador;
  end;

Pero ahora tengo que hacer un procedimiento

que Lea los datos del fichero 'valores.txt', y almacene la primera línea leida en el array dinámico VALORES_X y la segunda línea del fichero en el array dinámico VALORES_Y.

Este procedimiento no me sale ¿alguien sabe como sería?

Páginas: [1]