Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
9 / 9 / 0
Регистрация: 15.01.2010
Сообщений: 9
1

Создать функции для выполнения арифметических операций над комплексными числами

16.01.2010, 11:07. Показов 1130. Ответов 1
Метки нет (Все метки)

Заданы два комплексных числа (a+ib) и (c+id) и тип операции(+, -, *, /). Создать функции для выполнения арифметических операций над комплексными числами и выщитать значение модулей заданых комплексных чисел. Указания: a, b, c и d вводить с клавиатуры.
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2010, 11:07
Ответы с готовыми решениями:

Функции для выполнения арифметических операций над комплексными числами
№1 Заданы два комплексных числа (a+ib) и (c+id) и тип операции(+, -, *, /). Создать функции для...

Определить процедуры выполнения арифметических операций над комплексными числами
Даны действительные числа u,u,v,v,w,w. Получить 2u + ( 3uw/2+w-v) -7 , где...

Создать функцыи для выполнения арифметических операцый над комплексными числами
Заданы два комплексные числа (a+ib) и (c+id) и тип операцыи (+,-,*,/). Создать функцыи для...

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

__________________
1
Модератор
63373 / 47069 / 32443
Регистрация: 18.05.2008
Сообщений: 114,082
16.01.2010, 12:58 2
Лучший ответ Сообщение было отмечено Oleg1 как решение

Решение

uses crt;
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
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;
 
function Modul(f:complex):real;
begin
Modul:=sqrt(sqr(f.re)+sqr(f.im));
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:complex;
begin
clrscr;
writeln('Vvedite deist. i mnim. chasti a:');
read(a.re,a.im);
readln;
writeln('Modul A=',Modul(a):0:6);
writeln('Vvedite deist. i mnim. chasti b:');
read(b.re,b.im);
readln;
writeln('Modul B=',Modul(b):0:6);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2010, 12:58

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Создать набор подпрограмм для выполнения операций над натуральными числами
Создать набор подпрограмм для выполнения следующих операций над натуральными числами: (a+b)в...

Операций над комплексными числами
Задача по теме модули ! Реализовать в виде модуля набор подпрограмм для выполнения следующих...

Определить процедуры выполнения арифметических операций над комплексными числами
даны действительные числа U1,U2,V1,V2,W1,W2.получить 2U+(3UW/2+W-U)-7, где U,V,W - комплексные...


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

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

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