Технический форум - Помогите решить задачи на Паскале

Алгоритмы - дам. Остальное оформление программ (описание переменных, ввод значений, вывод результата и т.п. делайте сами).

Цитата:

Сообщение от Niaren (Сообщение 266496)

1. Написать программу вычисления следа квадратной матрицы А размером 4 на 4 (след-сумма элементов главной диагонали).

Код:

 Spur:=0;

 FOR i:=1 TO 4 DO Spur:=Spur+A[i,i];

Цитата:

2. Дан вектор А (а1...а10). Преобразовать вектор так, чтобы сначала размещались все отрицательные компоненты ( с сохранением порядка их следования в исходном массиве) не используя при этом вспомогательного вектора.

Поскольку эта задачка более ли менее сложная, привожу программу целиком:

Код:

VAR

 A:ARRAY[1..10] of REAL;

 i,j,k:INTEGER;

 An:REAL;

BEGIN

 Randomize;

 FOR i:=1 TO 10 DO

   BEGIN

     A[i]:=Random-0.5;

     Write(A[i]:7:3);

   END;

 WriteLn;

 j:=0;

 FOR i:=1 TO 10 DO

   IF A[i]<0 THEN

    BEGIN

      INC(j);

      An:=A[i];

      IF i>1 THEN FOR k:=i-1 DOWNTO j DO A[k+1]:=A[k];

      A[j]:=An;

    END;

 FOR i:=1 TO 10 DO

   Write(A[i]:7:3);

 WriteLn;

 ReadLn;

END.

Цитата:

3. Вычислить:S = 1/1*3 + 1/2*4 + 1/3*5+...+ с точностью эпсилон (s=3/4)

Код:

i:=0;

S:=0;

REPEAT

 INC(i);

 a:=1/(i*(i+2));

 S:=S+a;

UNTIL a<epsilon;

Цитата:

4. У квадратной матрицы Х 5 на 5 найти сумму p,q,r элементов расположенных соответственно выше, ниже и на главной диагонали, среди строк. начинающихся с отрицательного элемента.

Код:

p:=0;

q:=0;

r:=0;

FOR i:=1 TO 5 DO

 FOR j:=1 TO 5 DO

   BEGIN

    IF (j>i) AND (A[i,1]<0) THEN p:=p+A[i,j]; 

    IF (j<i) AND (A[i,1]<0) THEN q:=q+A[i,j]; 

    IF (j=i) AND (A[i,1]<0) THEN r:=r+A[i,j];

   END;

Цитата:

И нужно составить одну блок-схему к любой из выше предложенных задач.

Тут ничем помочь не могу.