Введите с клавиатуры построчно в двумерный массив числовую матрицу размером 4x4.
Введите с клавиатуры построчно в двумерный массив числовую матрицу размером 4x4. Разверните ее по столбцам в одномерный массив. Запишите массив в текстовый файл
Задать свой вопрос1 ответ
Олег
program test;
var
a:array[1..4,1..4] of integer;
i,j,x,n:integer;
f:text;
begin
assign(f,file.txt);
rewrite(f); Создаем файл для записи
writeln(Размерность матрицы:);
read(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
nbsp;readln(a[i,j]);Вручную наполняем матрицу
end;
end;
nbsp;writeln(Начальная матрица:);
for i:=1 to n do
begin
for j:=1 to n do
begin
nbsp;write(a[i,j]:3);Выводим двумерную матрицу
end;
writeln;
end;
writeln;
writeln(Развёрнутая матрица по столбцам:);
for j:=1 to n do
begin nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Получаем одномерную матрицу выводя по столбцам, записываем ее в файл
for i:=1 to n do
begin
write(a[i,j]:3);
write(f,a[i,j]:3);
end;
nbsp;end;
writeln;
writeln(Записываем матрицу в файл file.txt!);
nbsp;close(f);
end.
var
a:array[1..4,1..4] of integer;
i,j,x,n:integer;
f:text;
begin
assign(f,file.txt);
rewrite(f); Создаем файл для записи
writeln(Размерность матрицы:);
read(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
nbsp;readln(a[i,j]);Вручную наполняем матрицу
end;
end;
nbsp;writeln(Начальная матрица:);
for i:=1 to n do
begin
for j:=1 to n do
begin
nbsp;write(a[i,j]:3);Выводим двумерную матрицу
end;
writeln;
end;
writeln;
writeln(Развёрнутая матрица по столбцам:);
for j:=1 to n do
begin nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Получаем одномерную матрицу выводя по столбцам, записываем ее в файл
for i:=1 to n do
begin
write(a[i,j]:3);
write(f,a[i,j]:3);
end;
nbsp;end;
writeln;
writeln(Записываем матрицу в файл file.txt!);
nbsp;close(f);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов