В матрице 3*4 заменить все элементы их целыми частями. - Free Pascal

Узнай цену своей работы

Формулировка задачи:

В матрице 3*4 заменить все элементы их целыми частями.Распечатать входную и выходную матрицы.

Решение задачи: «В матрице 3*4 заменить все элементы их целыми частями.»

textual
Листинг программы
var
  a,: array[1..3, 1..4] of real;
  i, j: integer;
 
begin
  writeln('Введите массив: ');
  for i := 1 to 3 do
    for j := 1 to 4 do readln(a[i, j]);
  writeln('Исходная матрица: ');
  for i := 1 to 3 do
  begin
    for j := 1 to 4 do write(a[i, j]:8);
    writeln;
  end;
  for i := 1 to 3 do
    for j := 1 to 4 do a[i,j] := trunc(a[i, j]);
  writeln('Преобразованная матрица: ');
  for i := 1 to 3 do
  begin
    for j := 1 to 4 do write(a[i, j]:8);
    writeln;
  end;
end.

Объяснение кода листинга программы

  1. Объявлены переменные: a (массив), i, j (целые числа).
  2. Ввод исходных данных (элементов матрицы) с помощью цикла for и функции readln().
  3. Вывод исходной матрицы с помощью цикла for и функции write().
  4. Замена всех элементов матрицы их целыми частями (функция trunc()).
  5. Вывод преобразованной матрицы с помощью цикла for и функции write().
  6. Конец программы.

Оцени полезность:

13   голосов , оценка 3.615 из 5
Похожие ответы