|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.05.2020, 15:25 | #1 |
Новичок
Джуниор
Регистрация: 23.05.2020
Сообщений: 3
|
Файлы
Ввести квадратную матрицу A(N,N) (N<=10). Записать файл F средние арифметические значения строк матрицы. Найти максимальное значение файла и заменить им отрицательные компоненты файла. Файл и матрицу распечатать.
Не могла дать понять программе, что нужно заменить максимальным - отрицательные. Подскажите как исправить Program Lub9b; var N: integer; a: array[1..10,1..10] of real; i,j,max,min:byte; sum,sr,mas1: real; f:text; b:integer; begin assign(f,'f.dat'); rewrite(f); {Создаем файл для записи} writeln('Размерность матрицы:'); read(n); for i:=1 to n do for j:=1 to n do readln(a[i,j]);{Вручную заполняем матрицу} begin sum:=0; for j:=1 to 3 do sum:=sum+a[i,j]; sr:=sum/j; writeln('среднее арифметическое строки ',i,sr:1:3); mas1:=sr; end; begin {Получаем одномерную матрицу выводя по столбцам, записываем ее в файл} write(a[i,j]:6); write(f,a[i,j]:6); end; reset(f); read(f,max); max:=1; while not eof(f) do begin read(f,b); if b<0 then begin b:=max; end; end; reset(f); writeLn('Полученая матрица:'); while not EOF(f) do begin read(f,b); write(b:5); end; writeLn; close(f); end. |
23.05.2020, 21:22 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
Ну для начала - нужно научиться форматировать исходник - теги CODE, отступы и т.д. , а то такой "рушник" читать не хочется.
|
23.05.2020, 21:59 | #3 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Если лень вручную форматировать, то можно хотя бы через форматтер из PascalABCNET IDE прогнать:
Код:
Возможно, нужно писать не в текстовый файл, а в файл действительных чисел, иначе замена отрицательных чисел на максимум мне видится неудобной.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста расшифровать файл .json, все.кодировки попробывал! Также обьясните плеез как расшифровывать такие файлы? Все файлы щяс скину! | Тимур1983 | JavaScript, Ajax | 11 | 09.11.2019 21:14 |
Файлы данных. типизированные файлы. последовательный доступ | Elena188 | Паскаль, Turbo Pascal, PascalABC.NET | 15 | 25.01.2016 22:47 |
Файлы: Составить программу, которая перепишет фамилии в отдельные файлы в соответствии с названием группы | Гульвира | Помощь студентам | 1 | 23.05.2013 10:04 |
Очень нужно сделать задачу в Delphi(Типизированные файлы. файлы записи) | Vitalik1 | Помощь студентам | 1 | 16.12.2011 10:38 |
два вредных вопроса:про асю и прикриплёные файлы файлы | steck | Свободное общение | 3 | 17.06.2007 14:53 |