помогите процедуру объявить, оно матерится почему-то...

← →
vilfred (2002-10-07 23:08) [0]

Вобщем есть процедуры gauss и F, они вызываются из процедуры FormActivate, короче, я не знаю, как их объявить, там ведь есть еще константы.

или эту процедуру нужно включить как внешнюю программу?

скажите, что нужно сделать, что писать, как объявлять?

программа по ссылке: http://genphys.phys.msu.su/~dmitriy/site/source.txt

Спасибо!

← →
Рыжик © (2002-10-08 11:09) [1]

Объявления типов
type
Vect = array[0..7] of real;
Vect_M = array[0..4] of real;
Matr = array[0..4,0..4] of real;
надо поставить перед объявлением функций. В данном случае перед
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
......

← →
vilfred (2002-10-08 13:38) [2]

объявил перед TForm, но все равно не пашет, пишет ерроры

[Error] Unit1.pas(35): Procedure cannot have a result type
[Error] Unit1.pas(36): Procedure cannot have a result type
[Error] Unit1.pas(72): Procedure cannot have a result type
[Error] Unit1.pas(103): Procedure cannot have a result type
[Fatal Error] Project1.dpr(5): Could not compile used unit "Unit1.pas"

менял процедуры на функции и обратно, не помогает, все одно и то-же.

← →
Best Before 2024 (2002-10-08 13:44) [3]

Вообще-то объявляют так -
procedure P;
function F : Integer;

Но приведите побольше кода, пожалуйста

← →
vilfred (2002-10-08 14:00) [4]

у меня по ссылке http://genphys.phys.msu.su/~dmitriy/site/source.txt вот код, который ерроры дает...

короче эти процедуры самописные вызываются из какихто других процедур, им передаются параметры разных типав, а я похоже, не понимаю, как это сделать, чтобы отдать процедуре несколько параметров, и чтобы потом она их вернула....

← →
Driver © (2002-10-08 14:07) [5]

Наверно ошибка в этом месте

procedure Gauss(n,m: Byte; x,y: Vect; c: Vect_m): integer;
-->procedure F(m: Byte; x: Real; c: Vect_M): Real;
// function F(m: Byte; x: Real; c: Vect_M): Real;

процедура не может возвращать что-то, сделай ее функцией как закоментарено ниже и все будет ок

← →
han_malign (2002-10-08 14:13) [6]

2 Driver
это он уже делал - но почему никто принципиално не замечает procedure Gauss(...) : integer;

Клинический случай

2 han_malign
Точно, а я думаю откуда ошибка:
[Error] Unit1.pas(35): Procedure cannot have a result type

Спасибо за поправку! Сказывается конец рабочего дня :)

помогите процедуру объявить, оно матерится почему-то... Найти похожие ветки