В матрице 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.
Объяснение кода листинга программы
- Объявлены переменные: a (массив), i, j (целые числа).
- Ввод исходных данных (элементов матрицы) с помощью цикла for и функции readln().
- Вывод исходной матрицы с помощью цикла for и функции write().
- Замена всех элементов матрицы их целыми частями (функция trunc()).
- Вывод преобразованной матрицы с помощью цикла for и функции write().
- Конец программы.