Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
11 / 10 / 3
Регистрация: 06.10.2008
Сообщений: 107
1

DLL и комплексные операции

16.12.2010, 23:17. Показов 1048. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
library Complex2; // Комплексная арифметика
 
uses
  SysUtils,
  Classes,
  Complex1 in 'Complex1.pas';
 
{$R *.RES}
 
type
TComplex = record // Тип комплексного числа
Re, Im: real
end;
 
function CAdd(x,y:TComplex):TComplex; Export; // Комплексное сложение
begin
Result.Re:=x.Re + y.Re;
Result.Im:=x.Im + y.Im;
end; // сложение
 
function CSub(x,y:TComplex):TComplex; Export; // Комплексное вычитание
begin
Result.Re:=x.Re - y.Re;
Result.Im:=x.Im - y.Im;
end; // вычитание
 
function CMult(x,y:TComplex):TComplex; Export; // Комплексное умножение
begin
Result.Re:=x.Re*y.Re - x.Im*y.Im;
Result.Im:=x.Re*y.Im + x.Im*y.Re;
end; // умножение
 
function CDiv(x,y:TComplex):TComplex; Export; // Комплексное деление
var z: real;
begin
z:=sqr(y.Re)+sqr(y.Im);
try //Защита при делении на 0
Result.Re:=(x.Re*y.Re + x.Im*y.Im)/z;
Result.Im:=(x.Re*y.Im - x.Im*y.Re)/z;
except // Результат, если делитель 0
Result.Re:=1.1e309;
Result.Im:=1.1e309
end;
end; // деление
 
exports// Список экспорта
CAdd Index 1 Name 'AddC';
CSub Index 2 Name 'SubC';
CMult Index 3 Name 'MultC';
CDiv Index 4 Name 'DivC';
 
begin
end.
Ошибка в 48 строке
[Pascal Error] Complex2.dpr(48): E2029 Declaration expected but identifier 'CSub' found
не пойму в чем дело.... поможете разобраться?

P.S. в строке CAdd Index 1 Name 'AddC';
Index и Name почему то выделены жирным, а в остальных строках нет...
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2010, 23:17
Ответы с готовыми решениями:

Комплексные числа, и функции, выполняющие операции над ними
Дали на Д/З создать тип комплексных чисел и функцию для операций над этими числами. Весь интернет...

Арифметические операции. Комплексные числа
Была поставлена задача: class Complex Смешанная арифметика ( перегрузка операторов) Как я...

Комплексные числа. Реализовать класс и математические операции
Здравствуйте. Тема-комплексные числа. Надо: реализовать класс, следом надо реализовать...

Объект «комплексные числа». Операции определяются по обще принятым формулам
Не могу решить задачу, как делать не пойму, искал в интернете не помогло. Спасибо! Объект...

1
Эксперт С++
3058 / 1400 / 421
Регистрация: 19.01.2009
Сообщений: 3,771
17.12.2010, 00:04 2
Цитата Сообщение от ZelenyiZmei Посмотреть сообщение
P.S. в строке CAdd Index 1 Name 'AddC';
Index и Name почему то выделены жирным, а в остальных строках нет...
со строки 47
Цитата Сообщение от ZelenyiZmei Посмотреть сообщение
Delphi
1
2
3
4
5
exports// Список экспорта
CAdd Index 1 Name 'AddC';
CSub Index 2 Name 'SubC';
CMult Index 3 Name 'MultC';
CDiv Index 4 Name 'DivC';
замени на
Delphi
1
2
3
4
5
exports// Список экспорта
CAdd Index 1 Name 'AddC',
CSub Index 2 Name 'SubC',
CMult Index 3 Name 'MultC',
CDiv Index 4 Name 'DivC';
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2010, 00:04

Ошибка об отсутствии MSVCP140D.dll, ucrtbased.dll, CONCRT140D.dll, VCRUNTIME140D.dll
Добрый день, товарищи. Возникла проблема. Делаю программу с использованием openCV 3.1 на Visual...

Кто может поделиться файлами ogg.dll, vorbis.dll и vorbisfile.dll - 32-х и 64-битными версиями?
Движок перевожу на платформу Win64 и нужно, чтобы разрядность ЕХЕ и DLL совпадали, а в интернете...

Затупил, скажите где взять libmysqld.dll, libmysqld50.dll, libmysqld51.dll
Вечер добрый, ставлю ZEOS на Delphi 7, и для нормальной работы нужны файлы libmysqld.dll,...

Сборка Qt: отучение Qt от mingw10.dll, libgcc_s_dw2-1.dll и других Qt***.dll
В связи с тем, что часто возникают одни и те же вопросы, а в нете копаться никто не любит привожу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.