VPF::Помогите разобратся - Форум программистов

LoveMeCozImBLONDE

Дата 2.6.2009, 23:56 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 27.5.2009

Репутация: нет
Всего: нет

Код


unit rr;
interface
type
ch=record
r,i:real;
end;
compl=object
     re,im:real;
     Procedure Creat_compl(var f:compl);
     procedure out_compl(f:compl);
     procedure plus_compl(var f,g,h:compl);
     procedure minus_compl(var f,g,h:compl);
     procedure del_compl(var f,g,h:compl);
     procedure umn_compl(var f,g,h:compl);
     end;
     implementation
procedure create_compl(var f:compl);
begin
Writeln('Sozdanie Compleksnogo Chisla');
write('Vvedite Mnimuy chast - ');
readln(f.im);
write('Vvedite Razionalnyu chast - ');
readln(f.re);
end;
procedure out_compl(f:compl);
begin
with f do
write('Vivod compleksnogo chisla - ');
writeln('Chislo - ',f.RE,'+',f.im,'*i' );
end;
procedure plus_compl(var f,g,h:compl);
begin
h.re:=g.re+f.re;
h.im:=g.im+f.im;
write('Posle slozheniya vishlo chislo -' );
write(h.re);write('+');write(h.im);write('*i');writeln;
end;
procedure minus_compl(var f,g,h:compl);
begin
h.re:=f.re-g.re;
h.im:=f.im-g.im;
write('Posle vichitaniya vishlo chislo - ');
write(h.re);write('+');write(h.im);write('*i');writeln;
end;
procedure del_compl(var f,g,h:compl);
begin
h.re:=(f.re*g.re+f.im*g.im)/(g.im*g.im+g.re*g.re);
h.im:=(f.im*g.re-g.im*f.re)/(g.im*g.im+g.re*g.re);
write('Posle ymnozheniya vishlo chislo - ');
write(h.re);write('+');write(h.im);write('*i');writeln;
end;
procedure umn_compl(var f,g,h:compl);
begin
h.re:=(f.re*f.im)-(g.re*g.im);
h.im:=(f.re*g.im)+(f.im*f.re);
writeln('Posle ymnpzheniya chislo vishlo -' );
write(h.re);write('+');write(h.im);write('*i'); writeln;
end;
begin
end.

выбивает ошибку 59 - Undefined forward (Неопределенное опережающее описание).
непойму что нужно иправить...

kami

Дата 3.6.2009, 00:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 72

Цитата(LoveMeCozImBLONDE @ 2.6.2009, 23:56

)

выбивает ошибку 59 - Undefined forward (Неопределенное опережающее описание).

Pascal или Delphi? (давно в паскале не работал, посему и не помню - есть там разделение на interface с implementation).
Был бы Delphi, то я бы сказал так:
Перед каждой процедурой в implementation поставь compl..

получится так:

Код


procedure compl.create_compl(var f:compl);
begin
// и далее по тексту.

Бо это не просто процедуры - это методы объекта.

LoveMeCozImBLONDE

Дата 3.6.2009, 00:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 27.5.2009

Репутация: нет
Всего: нет

Цитата(kami @ 3.6.2009, 00:25)

Код


procedure compl.create_compl(var f:compl);
begin
// и далее по тексту.

Делая так выбивает другую ошибку.
...
дайте ссылку на человеческую литературу по етой теме=)
прочитаю може пойму сам.

Добавлено через 6 минут и 54 секунды
просто у меня такое чувство, что я вобще не то чтото делаю=)

kami

Дата 3.6.2009, 13:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 72

Смотрим еще раз:
в секции interface

Цитата(LoveMeCozImBLONDE @ 2.6.2009, 23:56

)

Procedure Creat_compl(var f:compl);

а секции implementation

Цитата(LoveMeCozImBLONDE @ 2.6.2009, 23:56

)

procedure create_compl(var f:compl);

имена-то разные.
Это одно.
Второе - бегло просмотрев код, не увидел нигде использования типа ch. Зачем он объявлен?
Третье - во всех процедурах идет параметрами сам тип compl. Так действительно требуется? Почему бы вместо объектов не задействовать в качестве параметров тот же ch тип? (но это уже так - лирика).

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »