1 / 1 / 1
Регистрация: 18.03.2010
Сообщений: 11
1

Сложение, вычитание, умножение и деление комплексных чисел

25.03.2010, 15:23. Показов 13397. Ответов 10
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста составить требуемые подпрограммы работы с комплексными числами(сложение, вычитание, умножение и деление комплексных чисел).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.03.2010, 15:23
Ответы с готовыми решениями:

Арифметические действия над числами пронумерованы следующим образом: 1- сложение ,2- вычитание, 3- умножение, 4- деление
Арифметические действия над числами пронумерованы следующим образом: 1- сложение , 2- вычитание,...

Разработать модуль, реализующий основные математические операции (сложение, вычитание, умножение, деление) над двумя числами
привет. очень нужна помощь с задачкой: Разработать модуль, реализующий основные математические...

Вычитание, умножение и деление для чисел в 4 сс
Пишу калькулятор для четверичной системы счисления. У меня вещественные числа и со сложением...

Сложение, вычитание и умножение матриц на константу
Реализовать в виде под программ для выполнения операций для квадратных матриц: сложение вычитание...

10
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
25.03.2010, 15:25 2
Pascal
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
type cplx=record
        r,i:real;
        end;
 
function sum_cplx(a,b:cplx):cplx; {сложение}
begin
    sum_cplx.r:=a.r+b.r;
    sum_cplx.i:=a.i+b.i;
end;
 
function mns_cplx(a,b:cplx):cplx; {вычитание}
begin
    sum_cplx.r:=a.r-b.r;
    sum_cplx.i:=a.i-b.i;
end;
 
function mul_cplx(a,b:cplx):cplx; {умножение}
begin
    mul_cplx.r:=a.r*b.r-a.i*b.i;
    mul_cplx.i:=a.r*b.i+a.i*b.r;
end;
 
function div_cplx(a,b:cplx):cplx; {деление}
begin
    div_cplx.r:=(a.r*b.r+a.i*b.i)/(sqr(b.i)+sqr(b.r));
    div_cplx.i:=(a.i*b.r-a.r*b.i)/(sqr(b.i)+sqr(b.r));
end;
2
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
25.03.2010, 15:32 3
Pascal
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
uses crt;
type complex=record
             re,im:real;
             end;
procedure Vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:9:5,' -',-f.im:0:5,'i')
else writeln(f.re:9:5,' +',f.im:0:5,'i');
end;
procedure Summa(f,g:complex;var z:complex);
begin
z.re:=f.re+g.re;
z.im:=f.im+g.im;
end;
procedure Raznost(f,g:complex;var z:complex);
begin
z.re:=f.re-g.re;
z.im:=f.im-g.im;
end;
procedure Proizvedenie(f,g:complex;var z:complex);
begin
z.re:=f.re*g.re-f.im*g.im;
z.im:=g.re*f.im+f.re*g.im;
end;
procedure Chastnoe(f,g:complex;var z:complex);
begin
z.re:=(f.re*g.re+f.im*g.im)/(sqr(g.re)+sqr(g.im));
z.im:=(f.im*g.re-f.re*g.im)/(sqr(g.re)+sqr(g.im));
end;
var  a,b,c:complex;
begin
clrscr;
writeln('Vvedite deist. i mnim. chasti a:');
readln(a.re,a.im);
writeln;
writeln('Vvedite deist. i mnim. chasti b:');
readln(b.re,b.im);
writeln;
Summa(a,b,c);
write('A+B=');
Vyvod(c);
Raznost(a,b,c);
write('A-B=');
Vyvod(c);
Proizvedenie(a,b,c);
write('A*B=');
Vyvod(c);
Chastnoe(a,b,c);
write('A/B=');
Vyvod(c);
readln
end.
Добавлено через 19 секунд
k1ry4,
2
yanyk1n
25.03.2010, 15:33
  #4

Не по теме:

Puporev, :drink: твоё здоровье!

0
1 / 1 / 1
Регистрация: 18.03.2010
Сообщений: 11
25.03.2010, 16:55  [ТС] 5
Премного благодарна))
0
0 / 0 / 0
Регистрация: 01.04.2010
Сообщений: 19
01.04.2010, 21:12 6
А если при таких же подпрограммах нужно еще и посчитать действительную и мнимую части числа:
C=(a^3+1)/(a*b^2-1)
Как это будет?
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
01.04.2010, 21:16 7
HotSouse, Берете те процедуры какие нужно и применяете.
Произведение, частное, возведение в натуральную степень, ну а прибавить к действительной части или вычесть число думаю ребенок сможет.
0
0 / 0 / 0
Регистрация: 01.04.2010
Сообщений: 19
01.04.2010, 21:25 8
Дело в том, что я только что начал проходить тему процедуры и функции и не совсем еще въехал.. Не могу никак сообразить как эти подпрограммы использовать..
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
01.04.2010, 22:20 9
Pascal
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
54
55
uses crt;
type complex=record
             re,im:real;
             end;
procedure Vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:4:1,' -',-f.im:4:1,'i')
else writeln(f.re:5:2,' +',f.im:5:2,'i');
end;
procedure Proizvedenie(f,g:complex;var z:complex);
begin
z.re:=f.re*g.re-f.im*g.im;
z.im:=g.re*f.im+f.re*g.im;
end;
procedure Chastnoe(f,g:complex;var z:complex);
begin
z.re:=(f.re*g.re+f.im*g.im)/(sqr(g.re)+sqr(g.im));
z.im:=(f.im*g.re-f.re*g.im)/(sqr(g.re)+sqr(g.im));
end;
function Argument(f:complex):real;
begin
Argument:=arctan(f.im/f.re);
end;
function Modul(f:complex):real;
begin
Modul:=sqrt(sqr(f.re)+sqr(f.im));
end;
procedure Power(f:complex;n:integer;var t:complex);
var i:integer;
    m,a:real;
begin
m:=1;
for i:=1 to n do
m:=m*Modul(f);
t.re:=m*cos(n*Argument(f));
t.im:=m*sin(n*Argument(f));
end;
var a,b,c,x,y,z:complex;
begin
clrscr;
writeln('Введите действительную и мнимую части числа А:');
readln(a.re,a.im);
writeln('Введите действительную и мнимую части числа B:');
readln(b.re,b.im);
Power(a,3,x);
x.re:=x.re+1;
Power(b,2,y);
Proizvedenie(a,y,z);
z.re:=z.re-1;
Chastnoe(x,z,c);
writeln('Результат действий:');
write('C=');
Vyvod(c);
readln
end.
Программа работает, но результат не проверял.
1
0 / 0 / 0
Регистрация: 12.10.2014
Сообщений: 29
20.12.2014, 21:31 10
Составить программу нахождения суммы двух комплексных чисел z1=x1+y1i и z2=x2+y2i с использованием подпрограммы-процедуры вычисления z=z1+z2.
0
Эксперт Pascal/Delphi
6809 / 4566 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
22.12.2014, 10:13 11
сюрма, глаза на сообщение выше поднимите. Все уже написано.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2014, 10:13
Помогаю со студенческими работами здесь

С клавиатуры вводятся 2 числа. Произвести сложение, умножение, вычитание, деление
реализовать программу с использованием процедур и функций,с клавиатуры вводятся 2 числа.произвести...

Умножение, сложение и вычитание матриц
Действия над матрицами

Сложение, вычитание, умножение многочленов
Может быть кому-нибудь пригодится. Программка складывает, вычитает, умножает многочлены и выводит...

Сделать калькулятор матриц (сложение, вычитание, умножение)
Всем привет! Есть задание, сделать калькулятор матриц (сложение, вычитание, умножение) в...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru