Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2020, 15:42   #1
Екатерина Мельц
Новичок
Джуниор
 
Регистрация: 23.05.2020
Сообщений: 3
По умолчанию Файлы

Ввести квадратную матрицу A(N,N) (N<=10). Записать файл F средние арифметические значения строк матрицы. Найти максимальное значение файла и заменить им отрицательные компоненты файла. Файл и матрицу распечатать.

Не могла дать понять программе, что нужно заменить максимальным - отрицательные. Подскажите как исправить

Код:
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.
Екатерина Мельц вне форума Ответить с цитированием
Старый 24.05.2020, 16:17   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Паскаль это не Питон. Изменение отступов никак не повлияет на выполняемый код. Вы же ни одной ошибки не исправили, озвученные в прошлой теме.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 24.05.2020, 16:26   #3
Екатерина Мельц
Новичок
Джуниор
 
Регистрация: 23.05.2020
Сообщений: 3
По умолчанию

BDA, Так я и не могу исправить, поэтому и прошу помощи
Екатерина Мельц вне форума Ответить с цитированием
Старый 24.05.2020, 18:05   #4
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

Цитата:
Так я и не могу исправить
Это не тоже самое, что "не знаю ..."
Вы как расставляли операторные скобки?
Где у вас заголовки циклов, а где тело?
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста расшифровать файл .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