Ошибка forward в модуле.

[dimka123]

Подскажите как исправить.. делаю по шаблону но о такой хрени нам не говорили. ошибка - Ожидалось forward.. Объектно-ориентированное программирование только начал проходить

Unit mod1;

interface  

const n=10;

Type masiv=array[1..n]of real;
var masA:masiv;
Type PROG = object;
procedure PROG.InputMass(var masA:masiv;n:integer); 
procedure PROG.Outobmen(masA:masiv;n:integer);тут ошибка
end;
implementation  процедуры втыкать не стал здесь. 
procedure PROG.InputMass(var masA: masiv; n : integer); 
procedure PROG.Outobmen(masA:masiv;n:integer);

end;end.

[Вадим Мошев]

Насколько я понимаю, объект надо описывать - то есть, указать в нём свойства и заголовки методов.

[dimka123]

Сообщение от Вадим Мошев

Насколько я понимаю, объект надо описывать - то есть, указать в нём свойства и заголовки методов.

да. ошибка с objectom... не пойму почему так... а еще 6 лаб переделывать под эту хрень

[type_Oleg]

Может лучше так:

// ....
var masA:masiv;
Type PROG = class(TObject)  // и точку с запятой ; не ставить 
procedure InputMass(var masA:masiv;n:integer);
procedure Outobmen(masA:masiv;n:integer);
end;

implementation
// и т.д.

[dimka123]

Сообщение от type_Oleg

Может лучше так:

// ....
var masA:masiv;
Type PROG = class(TObject)  // и точку с запятой ; не ставить 
procedure InputMass(var masA:masiv;n:integer);
procedure Outobmen(masA:masiv;n:integer);
end;

implementation
// и т.д.

даже если и так лучше то выдает ошибку( Неизвестное имя 'TObject') . ABC.NET издевается(

[Serge_Bliznykov]

dimka123, а Вы не так, случайно, хотите написать?

Unit mod1;

interface

const n=10;

Type masiv=array[1..n]of real;
var masA:masiv;
Type PROG = class
  procedure InputMass(var masA:masiv;n:integer);
  procedure Outobmen(masA:masiv;n:integer);
end;

implementation
procedure PROG.InputMass(var masA: masiv; n : integer);
begin
end;

procedure PROG.Outobmen(masA:masiv;n:integer);
begin
end;

end.

[dimka123]

Сообщение от Serge_Bliznykov

dimka123, а Вы не так, случайно, хотите написать?

Unit mod1;

interface

const n=10;

Type masiv=array[1..n]of real;
var masA:masiv;
Type PROG = class
  procedure InputMass(var masA:masiv;n:integer);
  procedure Outobmen(masA:masiv;n:integer);
end;

implementation
procedure PROG.InputMass(var masA: masiv; n : integer);
begin
end;

procedure PROG.Outobmen(masA:masiv;n:integer);
begin
end;

end.

так.но использовал бы object а не . сlass

[dimka123]

Сообщение от dimka123

так.но использовал бы object а не . сlass

да и если и так.. то этот долбаный паскаль всеравно орет на forward
Type PROG = class;
procedure PROG.InputMass(var masA:masiv;n:integer);
procedure PROG.Outobmen(masA:masiv;n:integer) ;
end;

Unit mod1;// НАПИСАЛ НАЗВАНИЕ И СРАЗУ СОХРАНЯЕШЬ  В ТУ ПАПКУ ГДЕ ЛЕЖИТ САМА ПРОГА.И НАЗЫВАЕШЬ ТАКОЕ ЖЕ КАК ИМЯ МОДУЛЯ

interface   // СЮДА ХЕРАЧИШЬ ОПИСАНИЕ ПЕРЕМЕННЫХ И ПРОЦЕДУРЫ.

const n=10;

Type masiv=array[1..n]of real;
var masA:masiv;
Type PROG = class;
procedure PROG.InputMass(var masA:masiv;n:integer); 
procedure PROG.Outobmen(masA:masiv;n:integer);
end;

implementation // А ТУТ РАСПИСЫВАЕШЬ ЭТИ ПРОЦЕДУРЫ 

procedure PROG.InputMass(var masA: masiv; n : integer); 
var i : integer;
begin;
writeln('Ввод массива'); 
for i := 1 to n do begin;
  write('masA[',i,'] = ');
    readln(masA[i]); end;

end;

procedure PROG.Outobmen(masA:masiv;n:integer);
var i,i1,i2,k:integer;x:real;
begin;
k:=0;{проверим стоит ли заниматься обменом}
for i:=1 to n do
if masA[i]>0 then k:=k+1;
if k<2 then
 begin
  write('В массиве нет пар положительных элементов!');
  readln;
  exit;
 end;
i1:=1;i2:=n;{начало и конец}
repeat
for i:=i1 to i2 do
if masA[i]>0 then
 begin
  i1:=i;{ищем первый положительный с начала}
  break;
 end;
for i:=i2 downto i1 do
if masA[i]>0 then
 begin
  i2:=i;{то же с конца}
  break;
 end;
if i1<=i2 then{если не прошли середину, обмениваем элементы}
 begin
  x:=masA[i1];
  masA[i1]:=masA[i2];
  masA[i2]:=x;
 end;
i1:=i1+1;{начало вперед}
i2:=i2-1;{конец назад}
until i2<i1;{все поменяли, встретились}
writeln('Перестановка положительных:');
for i:=1 to n do
write(masA[i]:5:1);
readln
end;  //КОНЕЦ РОЦЕДУРЫ
end. //КОНЕЦ САМОГО МОДУЛЯ

[Аватар]

Это не паскаль долбаный

Type PROG = class;
procedure PROG.InputMass(var masA:masiv;n:integer); 
procedure PROG.Outobmen(masA:masiv;n:integer);
end;

[dimka123]

Сообщение от Аватар

Это не паскаль долбаный

Type PROG = class;
procedure PROG.InputMass(var masA:masiv;n:integer); 
procedure PROG.Outobmen(masA:masiv;n:integer);
end;

когда ставил object он просил точку с запятой, ) ошибка убралась спасибо)
а как в самой программе теперь вызывать эти процедуры? подскажите плиз

uses mod1;

begin;
InputMass(masA,n);
Outobmen(masA,n);
end.