Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Сумма комплексных чисел
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Black Mamba Black Mamba вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.01.2011
По умолчанию Сумма комплексных чисел - 23.10.2011, 18:40

Pascal Код:
uses crt;
type Compl=Object
           r,m:real;
           st:string;
           procedure Chislo;
           end;

procedure Compl.Chislo;
var s1:string;
    cr,i:integer;
begin
i:=length(st)-1;
s1:='';
while(i>=1)and not(st[i] in ['+','-']) do
 begin
  s1:=st[i]+s1;
  i:=i-1;
 end;
s1:=st[i]+s1;
val(s1,m,cr);
s1:=copy(st,1,i-1);
val(s1,r,cr);
end;
var f:compl;
begin
clrscr;
writeln('vvedite konpleksnoe chislo');
readln(f.st);
f.Chislo;
writeln('Действительная часть=',f.r:0:5);
writeln('Мнимая часть=',f.m:0:5);
readln;
end.

Здравствуйте!
Мне нужно записать два комплексных числа в две строки, найти сумму действительной и мнимой частей этих чисел, и записать результат в виде комплексного числа в еще одну строку.
У меня есть код только для разложения одного числа на части...больше ничего не получается...
Помогите пожалуйста!
Ответить с цитированием
  (#2 (permalink)) Старый
Gun-Down Gun-Down вне форума
;)
 
Сообщений: 306
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.07.2010
По умолчанию 24.10.2011, 04:25

1) добавим конструктор к Compl:
pascal Код:
type Compl = Object
   constructor Init(r_, m_: real);
   ....
end;

constructor Compl.Init(r_, m_: real);
begin
   r := r_;  m := m_;
end;

2) применим то что получилось:
pascal Код:
var f: compl;
     f1: Compl;
     f2: Compl;
begin
  clrscr;
  writeln('vvedite konpleksnoe chislo');
  readln(f.st);

  writeln('vvedite konpleksnoe chislo');
  readln(f1.st);
  f1.Chislo;

  f2.Init(f.r + f1.r, f.m + f1.m);
  writeln('Действительная часть=',f2.r:0:5);
   writeln('Мнимая часть=',f2.m:0:5);

P.S. Один вопросик: где вас учат так програмирить? По хорошему поле st и метод Chislo -- нафиг из Compl
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сумма всех целых нечетных чисел в С++ Charlie Rat Вопросы начинающих программистов 13 09.07.2016 20:22
Реализация метода Гаусса для СЛАУ комплексных переменных (Delphi)!!! Vitek13 Delphi 1 27.02.2012 05:35
Красно-черное бинарное дерево. Сумма чисел в вершинах определенного цвета и уровня Jey_Dreamer Prolog 5 29.11.2011 21:06
Калькулятор комплексных чисел: задание на курсовой проект r.yevgeniy C++ Builder 5 28.02.2011 07:01
Функция равна сумма по i от 1 до N сумма по j от 2 до N lni/lnj marinevladi Lisp 4 12.11.2010 14:20
Сумма и произв 2х чисел FeeL Prolog 1 03.10.2010 23:12
Си. Сумма четных и нечетных чисел Network22 С/С++ 15 16.02.2010 22:47
Сумма n первых чисел Фибоначчи diln DHTML, JavaScript, VBScript 0 18.05.2008 19:46
Сумма ряда целых четных чисел от 0 до n Student2 Prolog 4 25.02.2007 14:01
Калькулятор комплексных чисел HappyProg Вопросы начинающих программистов 1 27.02.2006 22:22
Сумма чисел в списке Ольга Вовченко Prolog 4 01.03.2005 19:12
Как прописать код сложение двух комплексных чисел griban Вопросы начинающих программистов 1 06.05.2004 02:36



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов