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

@07051997 · Регистрация: 06.11.2014

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста!

Задано две записи Z1 и Z2, причем поле Re каждого из них - настоящая часть комплексного числа, а поле lm каждого из них - мнимая часть комплексного числа. Найти разницу Z1-Z2 двух комплексных чисел, причем обращение к переменным Z1 и Z2 необходимо выполнить с помощью типизированных указателей.

Спасибо большое)*

@ZX Spectrum-128 · 15.02.2015, 18:41

Pascal

type
  complex=record
    re,im:real;
  end;
  pcomplex=^complex;
var
  z1,z2:pcomplex;
  rez:complex;
begin
  GetMem(z1, SizeOf(complex));
  GetMem(z2, SizeOf(complex));
  z1^.re:=100;
  z1^.im:=5;
  z2^.re:=90;
  z2^.im:=3;
  rez.re:=z1^.re-z2^.re;
  rez.im:=z1^.im-z2^.im;
  Write(z1^.re:0:2,'+i',z1^.im:0:2,' - ',z2^.re:0:2,'+i',z2^.im:0:2,' = ',rez.re:0:2,'+i',rez.im:0:2);
  readln;
  FreeMem(z1, SizeOf(complex));
  FreeMem(z2, SizeOf(complex));
end.

@07051997 0 / 0 / 0 Регистрация: 06.11.2014 Сообщений: 73
		1
	Найти разницу двух комплексных чисел 13.02.2015, 17:43. Показов 1368. Ответов 1 Метки нет (Все метки) Помогите пожалуйста! Задано две записи Z1 и Z2, причем поле Re каждого из них - настоящая часть комплексного числа, а поле lm каждого из них - мнимая часть комплексного числа. Найти разницу Z1-Z2 двух комплексных чисел, причем обращение к переменным Z1 и Z2 необходимо выполнить с помощью типизированных указателей. Спасибо большое)* 0

	15.02.2015, 18:41

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

Решение