Две простенькие программки для оболтуса

[Deathwing]

Квалифицированные добросердечные граждане и/или гражданки! Нужна срочная бескорыстная помощь, иначе меня могут отчислить. Две задачки на Паскале:

1. Составить требуемые подпрограммы работы с комплексными числами (сложение, вычитание, умножение, деление). Используя эти подпрограммы, определить действительную и мнимую части числа

ω = ((z1)³ + 1)/((z1)*(z2)² - 1)

/По процедурам и функциям

2. Дана матрица А размером 7х7. Составить программу нахождения суммы элементов, лежащих выше главной диагонали. / По массивам

Ежели кто откликнется, могу дать мейл. Заранее благодарю и надеюсь, надеюсь, надеюсь...

[Хыиуду]

1. Ну примерно так:

Код: Выделить всё

type TComplex=record
  re, im:real;
  end;
function CAdd(a,b:TComplex):TComplex;
var c:TComplex;
begin 
  c.re:=a.re+b.re;
  c.c.im:=a.im+b.im;
  CAdd:=c;
end;
function CSub(a,b:TComplex):TComplex;
var c:TComplex;
begin 
  c.re:=a.re-b.re;
  c.c.im:=a.im-b.im;
  CSub:=c;
end;
{аналогично пишутся функции умножения и деления. Формулы не помню}

for i:=1 to 7 do
for j:=i+1 to 7 do
count:=count + A[i,j];

[Deathwing]

Сенкью, сенкью вери мач, добренький Хыиуду. Так как я ночная птица, в смысле, мышь, благодарю сегодня.

[Deathwing]

Сенкью, сенкью вери мач, добренький Хыиуду. Так как я ночная птица, в смысле, мышь, благодарю сейчас. Хоть рекламный слоган вешай - реальная помощь от реальных людей...