Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.03.2011, 11:11   #1
CaN9^^
Пользователь
 
Регистрация: 21.02.2011
Сообщений: 10
Вопрос комплексные числа с использованием модуля

здравствуйте) помогите плиз отладить программу:
3адание:Входные данные
Каждое из комплексных чисел задается значением своей действительной и мнимой части. Заданные числа отличны от нуля.
Выходные данные
Результаты вычислений выдать в следующем формате:
Комплексные числа:
A=<число A>
B=<число B>
Результаты вычислений:
|A|=<значение модуля A>
|B|=<значение модуля B>
A+B=<значение A+B>
A-B=<значение A-B>
B-A=<значение B-A>
A*B=<значение A*B>
A/B=<значение A/B>
B/A=<значение B/A>

вот мой код:
Код 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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72


Код:
unit cmplx
;
        interface
type
   complex=record
          re,Im:real;
         end;
procedure AddC(x,y:complex; var  z:complex);
procedure subC(x,y:complex; var  z:complex);
procedure mulC(x,y:complex; var  z:complex);
procedure divC(x,y:complex; var  z:complex);
procedure BblBodC(p:complex);
procedure absC(x,y:complex; var  z:complex);
        implementation
procedure BblBodC;
begin
if p.Im<0 then write(p.re,'-',-p.Im:9:5,'i')
 else
      writeln(p.re:9:5,'+',P.Im:9:5,'i');
 end;
 procedure AddC;
 begin
   z.re:=x.re+y.re;
   z.Im:=x.Im+y.Im;
 end;
 procedure subC;
 begin
   z.re:=x.re-y.re;
   z.Im:=x.Im-y.Im;
 end;
 procedure MulC;
 begin
   z.re:=x.re*y.re-x.Im*y.Im;
   z.Im:=x.re*y.im+x.Im*y.re;
 end;
 procedure DivC;
 var
   zz:real;
 begin
 zz:=sqr(y.re)+sqr(y.im);
 z.re:=(x.re*y.re+x.im*y.im)/zz;
 z.im:=(x.re*y.im-x.im*y.re)/zz;
 end;
 procedure absC;
 var
 f:real;
 begin
 f:= sqrt(sqr(z.re)+sqr(z.im));
 end;
 END.
 uses cmplx;
 var a,b,c:complex;
 begin
 writeln(':введите 1 компл число');
 read(a.re,a.im);
 readln;
 writeln('|A|=',absC(a):0:6);
 writeln('введите 2 компл число:');
 read(b.re,b.im);
 readln;
 writeln('|B|=',absC(b):0:6);
 addC(a,b,c);
 write('A+B=');
 BblBodC(c);
 mulC(a,b,c);
 write('A*B=');
 BblBod(c);
 divC(a,b,c);
 write('A/B=');
 BblBod(c);
readln;
 end.

буду очень благодарен,если поможите сделать прогу именно с использованием модуля)
заранее спасибо)

Последний раз редактировалось Stilet; 13.03.2011 в 13:16.
CaN9^^ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Комплексные числа Программер Михаил Общие вопросы C/C++ 7 28.11.2012 00:03
Комплексные числа в С++ Slavytich Помощь студентам 0 25.12.2010 03:34
Комплексные числа Оля_1991 Помощь студентам 1 19.09.2010 21:10
Комплексные числа shtuceron Помощь студентам 2 21.01.2010 23:47
Комплексные числа 777UFO777 Общие вопросы Delphi 0 21.12.2008 23:48