В текстовом файле с именем nbsp;matrica.txt записана последующая числовая матрица. Сделать
В текстовом файле с именем nbsp;matrica.txt записана последующая числовая матрица. Создать массив по правилу: 1 элемент этого массива равен сумме частей 1 строчки матрицы, 2 элемент nbsp;сумме 2 строки и т.д. В файл с именем matrica2.txt вывести числовую матрицу и приобретенный массив
Задать свой вопрос1 ответ
Милена Прохорочева
Program Matrica;
Var M1: array [1..4,1..5] of integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;M2: array [1..4] of integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i,j: byte; nbsp;s:integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;F1: text; файловая nbsp;nbsp;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Переменная
Begin
nbsp;nbsp;nbsp;nbsp;Assign (F1,matrica.txt); Связывание nbsp;nbsp;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;F1 с файлом matrica.txt
nbsp;nbsp;nbsp;nbsp;Reset(F1); Открытие файла
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;для чтения
nbsp;nbsp;nbsp;nbsp;For i:=1 to 4 do
nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;For j:=1 to 5 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Read (F1, M1[I,j]); Последовательное чтение из одной строчки
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Readln(F1) переход к
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;следующей строке
nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;Close(F1); Закрытие файла
For i:=1 to 4 do
nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;s:=0;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;For j:=1 to 5 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;s:=s+M1[i,j];обретаем сумму
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;частей i строчки
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;M2[i]:=s
nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;Assign (F1,matrica2.txt); Связывание F1 с файлом matrica2.txt
nbsp;nbsp;nbsp;nbsp;Rewrite (F1); открытие файла
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;для записи
For i:=1 to 4 do
nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;For j:=1 to 5 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Write (F1, M1[i,j]:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Writeln(F1)
nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;WriteLn(F1);
nbsp;nbsp;nbsp;nbsp;For i:=1 to 4 do Write(F1,M2[i]:4);
nbsp;nbsp;nbsp;nbsp;Close(F1); Закрытие файла
End.
Var M1: array [1..4,1..5] of integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;M2: array [1..4] of integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i,j: byte; nbsp;s:integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;F1: text; файловая nbsp;nbsp;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Переменная
Begin
nbsp;nbsp;nbsp;nbsp;Assign (F1,matrica.txt); Связывание nbsp;nbsp;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;F1 с файлом matrica.txt
nbsp;nbsp;nbsp;nbsp;Reset(F1); Открытие файла
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;для чтения
nbsp;nbsp;nbsp;nbsp;For i:=1 to 4 do
nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;For j:=1 to 5 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Read (F1, M1[I,j]); Последовательное чтение из одной строчки
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Readln(F1) переход к
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;следующей строке
nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;Close(F1); Закрытие файла
For i:=1 to 4 do
nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;s:=0;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;For j:=1 to 5 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;s:=s+M1[i,j];обретаем сумму
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;частей i строчки
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;M2[i]:=s
nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;Assign (F1,matrica2.txt); Связывание F1 с файлом matrica2.txt
nbsp;nbsp;nbsp;nbsp;Rewrite (F1); открытие файла
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;для записи
For i:=1 to 4 do
nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;For j:=1 to 5 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Write (F1, M1[i,j]:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Writeln(F1)
nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;WriteLn(F1);
nbsp;nbsp;nbsp;nbsp;For i:=1 to 4 do Write(F1,M2[i]:4);
nbsp;nbsp;nbsp;nbsp;Close(F1); Закрытие файла
End.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Я хочу найти решение и ответ для этой задачи и получить
Математика.
Здравствуйте
Меня зовут Виталий, я AdOps-аналитик компании Adfinity.pro
Заинтересовал ваш проект obrazovalka.com
Думаю сможем увеличить
Разные вопросы.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
В семье из трех человек три электронных устройства: ноутбук, планшет и
Разные вопросы.
Жаркыраган кашка маш жаралгандан ашка маш табышмак жообу менен
Кыргыз тили.
За лето подруги прочитали 48 книг.Причем Оля прочитала в 3 раза
Математика.
Облако тегов