No ok to tak w skrócie ;)
Zadanie polega na napisaniu modułu dot. działań na wektorach. Kod :
type wektor = record
wymiar : 1..10;
wspolrzedna : array [1..10] of Integer;
end;
tyle
wynik = Array of Real;
function dodawanie (a,b : wektor) : wynik; // a i b to wektory przesyłane do funkcji
implementation
function dodawanie(a,b : wektor) : wynik ;
var i : Integer;
begin
SetLength(wynik (*1)(*2), a.wymiar+1);
for i:=1 to a.wymiar do
begin
Result(*3)[i]:=a.wspolrzedna[i]+b.wspolrzedna[i];
end;
end;
Owy kod się nie kompiluje, wywala jedynie :
(*1) Error : Variable identifier expected
(*2) Error : Variable identifier expected
(*3) Error : Identifier not found "Result"
(*1),(*2),(*3) są jedynie zaznaczonymi miejscami błędów, czegoś takiego w kodzie nie ma ;)
No ok, problem z Result zniknął po podstawieniu nazwy funkcji. Ale nadal pozostaje problem 1 i 2.
dodanie znaczników <code class="delphi"> dla kodu i <quote> dla błędu - fp