Question

Задание по Паскалю Дан массив из 4х4 вещественных (дробных) чисел. Напишите программу вычисления суммы квадратов дробных частей у элементов массива стоящих выше главной диагонали.

Answer 1

var a:array [1..4,1..4] of real;

i,j:integer;

s:real;

begin

 for i:=1 to 4 do

   for j:=1 to 4 do readln(a[i,j]);

 for i:=1 to 4 do

  for j:=1 to 4 do if j>i then s:=s+sqr(frac(a[i,j]));

 writeln(s);

end.

Answer 2

Вот пример программы на языке Pascal, которая вычисляет сумму квадратов дробных частей элементов массива, стоящих выше главной диагонали:

pascalCopy code
program SumOfSquares;
var
  matrix: array[1..4, 1..4] of real;
  i, j: integer;
  sumOfSquares: real;
begin
  // Заполним массив случайными вещественными числами от 0 до 1
  randomize;
  for i := 1 to 4 do
    for j := 1 to 4 do
      matrix[i, j] := random;

  // Выведем исходный массив
  writeln('Исходный массив:');
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
      write(matrix[i, j]:0:2, ' ');
    writeln;
  end;

  // Вычисляем сумму квадратов дробных частей элементов выше главной диагонали
  sumOfSquares := 0;
  for i := 1 to 4 do
    for j := i + 1 to 4 do
      sumOfSquares := sumOfSquares + sqr(frac(matrix[i, j]));

  // Выводим результат
  writeln('Сумма квадратов дробных частей элементов выше главной диагонали: ', sumOfSquares:0:2);
end.

Эта программа создает массив 4x4, заполняет его случайными вещественными числами от 0 до 1, вычисляет сумму квадратов дробных частей элементов, стоящих выше главной диагонали, и выводит результат.