Ïîìîùü - Ïîèñê - Ïîëüçîâàòåëè - Êàëåíäàðü
Ïîëíàÿ âåðñèÿ: ÇÀÄÀ×À ÍÀ ÑÎÐÒÈÐÎÂÊÓ ÄÂÓÌÅÐÍÎÃÎ ÌÀÑÑÈÂÀ
Ôîðóì «Âñ¸ î Ïàñêàëå» > Pascal, Object Pascal > Çàäà÷è
ÀÍÃÅË
ÂÇßÒÜ ÄÀÍÍÛÅ ÈÇ ÔÀÉËÀ È ÎÒÂÅÒ ÏÎÌÅÑÒÈÒÜ Â ÔÀÈË.
ÄÀÍ ÄÂÓÌÅÐÍÛÉ ÌÀÑÑÈ 5 ÍÀ 5. ÂÛÂÅÑÒÈ ÒÀÊÈÅ ×ÈÑËÀ ÊÎÒÎÐÛÅ ÁÓÄÓÒ ÌÈÍÈÌÀËÜÍÛ Â ÑÒÐÎÊÅ È ÌÀÊÑÈÌÀËÜÍÛ Â ÑÒÎËÁÖÅ È ÍÀÎÁÎÐÎÒ ÌÀÊÑÈÌÀËÜÍÛ Â ÑÒÐÎÊÅ È ÌÈÍÈÌÀËÜÍÛ Â ÑÒÎËÁÖÅ.

ÏÎÆÀËÓÉÑÒÀ ÏÎÌÎÃÈÒÅ!!! ÇÀÐÀÍÅÅ ÑÏÀÑÈÁÎ!!!

Ó ÌÅÍß ÏÎËÓ×ÈËÎÑÜ ÂÇßÒÜ ÈÇ ÔÀÉËÀ, À ÊÀÊ ÄÀËÜØÅ ß ÍÅ ÇÍÀÞ. ÍÅ ÏÎËÓ×ÀÅÒÑß ÎÒÑÎÐÒÈÐÎÂÀÒÜ.

VAR F: TEXT;
I,J: INTEGER;
VAR A:ARRAY [1..5,1..5] OF INTEGER;
BEGIN
ASSIGN(F,'MASSIV.DAT');
RESET(F);
FOR I:= 1 TO 5 DO BEGIN
FOR J:= 1 TO 5 DO BEGIN
READ(F, A[I,J]);
WRITE(A[I,J]:4);
END;
WRITELN;
END;
END.

ÏÎÌÎÃÈÒÅ!!!!!
Alåx J'Root
Íàñêîëüêî ÿ çíàþ, ýòè òî÷êè íàçûâàþòñÿ ñåäëîâûìè.

Program Sedl;
Uses Crt;
Var
X:array[1..5,1..5] of integer;
maxstr,minstr:array[1..5] of integer;
maxst,minst:array[1..5] of integer;
i,j:integer;
max,min:integer;
fl:boolean;
f: text;
Begin
ClrScr;
Assign(f,'MASSIV.DAT');
Reset(f);
For i:=1 to 5 do
Begin
For j:=1 to 5 do
Begin
read(f,X[i,j]);
End;

End;

for i:= 1 to 5 do
begin
max:=x[i,1];
min:=x[i,1];
for j:=2 to 5 do
begin
if x[i,j] < min then min:= x[i,j];
if x[i,j] > max then max:= x[i,j];
end;
maxstr[i]:= max;
minstr[i]:= min;
end;

for i:= 1 to 5 do
begin
max:= x[i,1];
min:= x[i,1];
for j:= 2 to 5 do
begin
if x[j,i] < min then min:= x[j,i];
if x[j,i] > max then max:= x[j,i];
end;
maxst[i]:= max;
minst[i]:= min;
end;

For i:=1 to 5 do
Begin
For j:=1 to 5 do
Begin
write(X[i,j]:4);
end;
writeln;
end;

Rewrite(f);
For i:=1 to 5 do
Begin
For j:=1 to 5 do
Begin
write(f,X[i,j]:2);
End;
writeln(f);
End;

fl:=false;
For i:=1 to 5 do
For j:=1 to 5 do
if (maxstr[i]=minst[j]) or (minstr[i]=maxst[j]) then
begin
fl:= true;
writeln;
writeln('Sedlov to4ka ');
writeln('stroka ',i);
writeln('stolbec ',j);
writeln('Zna4enie: ',X[i,j]);

writeln(f);
writeln(f,'Sedlov to4ka ');
writeln(f,'stroka ',i);
writeln(f,'stolbec ',j);
writeln(f,'Zna4enie: ',X[i,j]);

end;

if not fl then
writeln('sedlovix to4ek net.');
readln;
Close(f);
End.


Íàâåðíîå, ýòó çàäà÷ó ìîæíî íàïèñàòü ïðîùå è êòî-òî ïðåäëîæèò äðóãîå ðåøåíèå, íî ÿ âèæó ðåàëèçàöèþ âîò òàê.
ÀÍÃÅË
Ñïàñèáî!!! smile.gif
Ýòî òåêñòîâàÿ âåðñèÿ — òîëüêî îñíîâíîé êîíòåíò. Äëÿ ïðîñìîòðà ïîëíîé âåðñèè ýòîé ñòðàíèöû, ïîæàëóéñòà, íàæìèòå ñþäà.