массив

[хрюн]

Я в информатике вообще не разбираюсь, но вот дали задание, а я нифига не понимаю. Помогите пожалуйста.

1.В числовую переменную вводится отличное от нуля вещественное число в десятичной системе счисления. Необходимо вывести на экран значения сумм цифр его целой и дробной части. Предусмотреть проверку правильности ввода информации

2. В массив размерностью N*N, построчно вводятся натуральные числа от 1 до N2(квадрат).(N - заданное число не более 8). Сформировать новый массив, осуществляя поворот элементов введенного массива вокруг его центра на 90 градусов против часовой стрелки. Выполнить печать нового массива в виде таблицы.

[Stilet]

2. В массив размерностью N*N, построчно вводятся натуральные числа от 1 до N2(квадрат).(N - заданное число не более 8). Сформировать новый массив, осуществляя поворот элементов введенного массива вокруг его центра на 90 градусов против часовой стрелки. Выполнить печать нового массива в виде таблицы.

Это легко. Вот пример поворота матрицы. Только Квадраты подставишь вместо случаного числа:

MODULE mass;
IMPORT StdLog,ObxRandom;
VAR b,a:ARRAY(5) OF ARRAY(5) OF INTEGER;
i,j:INTEGER;

PROCEDURE Сформировать;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   a[i,j]:=SHORT(ENTIER(ObxRandom.Uniform()*10));
   StdLog.Int(a[i,j]);StdLog.Tab;
  END; StdLog.Ln;
 END;
END Сформировать;

PROCEDURE ПовернутьМатрицу;
BEGIN
 FOR i:=0 TO LEN(b)-1 DO
  FOR j:=0 TO LEN(b[i])-1 DO
   b[i,j]:=a[j,LEN(a[i])-1-i];
  END;
 END;
END ПовернутьМатрицу;

PROCEDURE ВывестиМатрицу;
BEGIN
 FOR i:=0 TO LEN(b)-1 DO
  FOR j:=0 TO LEN(b[i])-1 DO
   a[i,j]:=b[i,j];
   StdLog.Int(a[i,j]);StdLog.Tab; 
  END; StdLog.Ln;
 END;
END ВывестиМатрицу;

PROCEDURE do*;
BEGIN 
 StdLog.Clear;
 Сформировать;StdLog.Ln;
 ПовернутьМатрицу; 
 ВывестиМатрицу
END do;

END mass.
mass.do;

Результат будет такой:

1 4 9 6 7
7 9 0 9 0
6 4 0 7 9
0 9 7 8 6
6 2 7 9 5

7 0 9 6 5
6 9 7 8 9
9 0 0 7 7
4 9 4 9 2
1 7 6 0 6

[хрюн]

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