Опубликовано 26.01.2018 по предмету Информатика от Гость

Разработать подпрограмму для вычисления суммы двух комплексных чисел использовать разработанную подпрограмму для вычисления суммы N комплексных чисел. значение N вводится с клавиатуры.
Помогите решить!

Ответ оставил Гость

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

function ReadComplex:Complex;
begin
  var (r,i):=ReadReal2;
  Result:=cplx(r,i)
end;

procedure WriteComplex(x:Complex);
begin
  if x.Imaginary=0 then Write(x.Real)
  else begin
    if x.Real<>0 then Write(x.Real);
    if (x.Imaginary>0) and (x.Real<>0) then Write(+);
    Write(x.Imaginary,i)
    end
end;

begin
  var n:=ReadInteger(N =);
  Writeln(Введите ,n, комплексных чисел);
  Writeln(Формат ввода числа: действ.часть, пробел, мнимая часть);
  var s:=cplx(0.0,0.0);
  loop n do s+=ReadComplex;
  Write(S=); WriteComplex(s)
end.

Пример
N = 5
Введите 5 комплексных чисел
Формат ввода числа: действ.часть, пробел, мнимая часть
2.3 -3.12
-1.7 8
6.14 0.2
-2.4 -3.2
0 1.6
S=4.34+3.48i

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы