Pascal/Turbo Pascal - Registros, ¿como usar una función para cargar elementos aun registro?

   
Vista:

Registros, ¿como usar una función para cargar elementos aun registro?

Publicado por Federico (10 intervenciones) el 16/11/2013 04:08:56
Hola gente, como puedo usar una funcion para cargar elementos a un registro a travez de un vector? pregunto porque hasta ahora se que la funcion muestra un resultado!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Piano
- Matrix
- Algoritmo de Euclides

Registros, ¿como usar una función para cargar elementos aun registro?

Publicado por ramon (2072 intervenciones) el 17/11/2013 21:12:11
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
{Mira la función como comentas no se puede pasar bloques de datos pero si puede pasar las posiciones a saltar en el array según las cargas del registro como apreciaras aquí}
 
 program cargaregistro;
  uses
    crt;
  type
    datos = record
          num1 : integer;
          num2 : integer;
          num3 : integer;
        end;
   arraytem = array[0..11] of integer;
 
   var
     dt : arraytem;
     reg : datos;
     cont : integer;
 
 
  function tamareg(tt : arraytem) : integer;
  begin
     reg.num1 := tt[cont + 0];
     reg.num2 := tt[cont + 1];
     reg.num3 := tt[cont + 2];
     tamareg := cont + 3;
  end;
 
 begin
    clrscr;
    cont := 0;
    writeln('**** Registro cargados co valores del array ****');
    writeln;
   repeat
    dt[cont + 0] := 40 + cont;
    dt[cont + 1] := 60 + cont;
    dt[cont + 2] := 90 + cont;
    cont := tamareg(dt);
    if cont < 12 then
    begin
    writeln(reg.num1,'  ',reg.num2,'  ',reg.num3);
    end;
   until cont > 12;
   writeln;
   writeln('   Pulse Una Tecla ');
   readkey;
 end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar