pascal funkcia, array

m4r14n · Napísal **m4r14n**: 02.02.2011 16:02

Zdravim..
ako sa sa da vytvorit funkcia, ktora bude vraciat datovy typ array?

Kód:

function funkcia(x,y:integer) : string //namiesto string array
...

dakujem

Fico · Napísal **Fico**: 05.02.2011 9:35

Asi najskôr jedine pomocou smerníkov:

Kód:

uses crt;

type pole = array[1..20] of integer;

var
  tmp: pole;
  j: integer;
  p: ^pole;

function myFunction: Pointer;
var
  i: integer;
begin

  for i:= 1 to 20 do
    tmp[i] := i;

  myFunction := @tmp;

end;

BEGIN

  p := myFunction;

  for j:= 1 to 20 do
    write( p^[j], ' ' );

  readln;

END.

// sorry, ak odpovedám neskoro

coldak · Napísal **coldak**: 05.02.2011 19:29

pointer ? preco ?

Kód:

type pole = array[0..2] of integer;

function tt : pole;
begin
  result[0] := 0;
end;

juho · Napísal **juho**: 05.02.2011 19:59

jeden pise v pascale a druhy v delphi
no tak sa dohodnite

coldak · Napísal **coldak**: 05.02.2011 20:21

no myslel som ze delphi je len nastroj a pouziva pragramovaci jazyk pascal

Fico · Napísal **Fico**: 05.02.2011 20:43

@juho - písal som to v pascale
@coldak - jasné, nemusí tam byť pointer, ale tvoj príklad je fixný pre pole o troch prvkoch

coldak · Napísal **coldak**: 05.02.2011 21:05

Fico píše:

[b]@coldak - jasné, nemusí tam byť pointer, ale tvoj príklad je fixný pre pole o troch prvkoch

no marian sa pytal na pole, nespecifikoval ze musi byt dynamicke, to by sa asi pytal na TList

Fico · Napísal **Fico**: 05.02.2011 21:13

OK, nevravím, že to máš zle, to by som si nedovolil

len, že je to takto viac univerzálnejšie.

// TList v pascale nenájde. Teda aspoň v tom 16-bitovom

coldak · Napísal **coldak**: 05.02.2011 21:22

no takze sa zhodneme ze problem je v zle specifikovanoej verzii pascalu

ozaj, pouziva este niekto taku verziu ?

juho · Napísal **juho**: 06.02.2011 10:30

coldak píše:

no myslel som ze delphi je len nastroj a pouziva pragramovaci jazyk pascal

samozrejme ale ked ma len pascal tak mu result v ramci funkcie fungovat nebude tak isto keby to bolo naopak hadam

coldak · Napísal **coldak**: 06.02.2011 11:37

juho píše:

samozrejme ale ked ma len pascal tak mu result v ramci funkcie fungovat nebude tak isto keby to bolo naopak hadam

freepascal je pascal ? lebo ak ano tak aj tam to funguje

pascal funkcia, array

Podobné témy