21.12.2012, 13:56 | #11 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
21.12.2012, 13:56 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Прочитайте, и я уверен, что ситуация станет ясней Файлы в Паскаль Типизированные файлы, Паскаль |
21.12.2012, 20:29 | #14 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const m1=7; n1=5; Var MassivNN,Q:Array[1..m1,1..n1] of Integer; v_min,v_max,Dummy,Min,Sum,Max:Integer; i,j,k,m,n,Imin,Jmax:byte; mn:Word; f:Text; Begin Assign(f,'D:\xxx.txt'); Rewrite(f); Randomize; Write('v_min= '); Readln(v_min); Write('v_max= '); Readln(v_max); for i:=1 to m1 do begin for j:=1 to n1 do begin MassivNN[i,j]:=v_min+Random(v_max-v_min); write(MassivNN[i,j]:4); write(f,MassivNN[i,j]:4); end; writeln; If i<m1 then writeln(f); end; Close(f); Writeln; Reset(f); n:=0; Repeat read(f,Dummy); Inc(n); Until EoLn(f); Reset(f); mn:=0; Repeat If Not(Eof(f)) then begin read(f,Dummy); Inc(mn); end; Until EoF(f); m:=mn div n; Reset(f); For i:=1 to m do For j:=1 to n do read(f,Q[i,j]); Close(f); Min:=v_max*n; Max:=v_min; for i:=1 to m do begin Sum:=Q[i,1]; for j:=2 to n do Sum:=Sum+Q[i,j]; if Sum<Min then begin Min:=Sum; Imin:=i; end; end; for j:=1 to n do begin Sum:=Q[1,j]; for i:=2 to m do Sum:=Sum+Q[i,j]; if Sum>Max then begin Max:=Sum; Jmax:=j; end; end; Writeln('Line (',Imin,') with minimal sum: '); For j:=1 to n do write(Q[Imin,j]:4); Writeln; Writeln; Writeln('Column (',Jmax,') with maximal sum:'); For i:=1 to m do write(Q[i,Jmax]:4); Readln End. |
|
22.12.2012, 08:07 | #15 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо Владимир.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
25.12.2012, 06:32 | #16 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Владимир помогите пожалуйста. Код ко второму заданию верный но мне начиная с этого момента нужно сделать не используя массив. Каким образом это можно сделать?
For j:=1 to n do read(f,Q[i,j]); Close(f); Min:=v_max*n; Max:=v_min; for i:=1 to m do begin Sum:=Q[i,1]; for j:=2 to n do Sum:=Sum+Q[i,j]; if Sum<Min then begin Min:=Sum; Imin:=i; end; end; for j:=1 to n do begin Sum:=Q[1,j]; for i:=2 to m do Sum:=Sum+Q[i,j]; if Sum>Max then begin Max:=Sum; Jmax:=j; end; end; |
25.12.2012, 06:35 | #17 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Точнее вот с какого момента в коде нужно сделать не используя массив.
For j:=1 to n do read(f,Q[i,j]); Close(f); Min:=v_max*n; Max:=v_min; for i:=1 to m do begin Sum:=Q[i,1]; for j:=2 to n do Sum:=Sum+Q[i,j]; if Sum<Min then begin Min:=Sum; Imin:=i; end; end; for j:=1 to n do begin Sum:=Q[1,j]; for i:=2 to m do Sum:=Sum+Q[i,j]; if Sum>Max then begin Max:=Sum; Jmax:=j; end; end; |
25.12.2012, 09:25 | #18 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
К сожалению, помочь не могу. Ибо не дано мне понять, как в решении задачи о работе с двумерными массивами обойтись без массивов. Сожалею.
|
27.12.2012, 14:23 | #20 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Владимир, я узнал у преподавателя что там нужно с того момента как я отметил работать уже через файл а не через массив как дано в задании. Помогите пожалуйста сделать, срочно надо.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|