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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.06.2015, 08:18   #1
qwerty2106
Новичок
Джуниор
 
Регистрация: 07.06.2015
Сообщений: 2
По умолчанию Сформировать матрицу A(N,M) (N<=10, M<=15). Записать в файл F суммы первого и последнего элементов в каждом столбце матрицы

Помогите исправить программу.
Ошибка времени выполнения.

Сформировать матрицу A(N,M) (N<=10, M<=15). Записать в файл F суммы первого и последнего элементов в каждом столбце матрицы. Найти минимальное значение в файле. Если минимум – положи-тельное число, то записать его вместо каждой второй компоненты файла. Файл распечатать.

Код:
Var a:array [1..10,1..15] of integer;
f:file of integer;
S,i,j,n,m:integer;
b,min,p:integer;

Begin
 Write('число строк от 1 до 10 N=');
 readln(N);
 Write('число столбцов от 1 до 15 M=');
 readln(M);
 for i:=1 to n do
  for j:=1 to m do
   begin
   write('a[', i, ',', j, ']=');
readLn(a[i,j]);
   end;
 writeln('матрица:');  
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j],'   ');
   writeln; 
  end;  
  

assign(F,'F.dat');
rewrite(F);
j:=1;
while j<m do
begin

S:=a[1,j]+a[n,j];
write (F,S);
j:=j+1;
write (F,S);
end;
close (f);

reset(F);
read(F,b);
min:=b;
while not eof(F) do
begin
read(F,b);
if b<min then
min:=b;
end;
close(f);
writeln('min=',min);

reset(F);
while NOT EOF(F) do
begin
read(F,b);
if min>0 then
begin
p:=filepos(F);
seek(F,p-2);
write(F,min);
end;
end;
close(F);


reset(F);
while NOT EOF(F) do
begin
read(F,b);
writeln(b);
end;
close(F);

end.

Последний раз редактировалось Аватар; 08.06.2015 в 08:41.
qwerty2106 вне форума Ответить с цитированием
Старый 08.06.2015, 13:22   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
program Project1;

Var a:array [1..10,1..15] of integer;
f:file of integer;
S,i,j,n,m:integer;
b,min,p:integer;

Begin
 Write('число строк от 1 до 10 N=');    readln(N);
 Write('число столбцов от 1 до 15 M='); readln(M);
 for i:=1 to n do
  for j:=1 to m do     begin
   write('a[', i, ',', j, ']=');
    readLn(a[i,j]);
   end;

 writeln('матрица:');
 for i:=1 to n do   begin
   for j:=1 to m do  write(a[i,j],'   ');
   writeln;
  end;

assign(F,'F.dat');
rewrite(F);
 for j:=1 to m do write(f,a[1,j]+a[n,j]);
close(F);

end.
Устраивает?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В каждом столбце матрицы D[n,m] нулевые элементы переставить в начало столбца pitak Помощь студентам 10 29.12.2013 11:27
в матрице найти сумму элементов в каждом столбце Стамус Помощь студентам 2 15.10.2012 07:23
Найти в одномерном массиве индексы первого и последнего отрицательных элементов(с++) Борис. Помощь студентам 3 29.02.2012 20:49
Дан двумерный массив. Найти сумму и количество элементов в каждом столбце, положительных и лежащих вне главной диагонали Alexbmgn Помощь студентам 1 25.12.2011 22:21
Найти отношения суммы элементов главной диагонали и суммы элементов побочной диагонали квадратной матрицы Elmander Помощь студентам 2 21.06.2007 07:15