Çàî÷íîå äèñòàíöèîííîå îáðàçîâàíèå ñ ïîëó÷åíèåì ãîñóäàðñòâåííîãî äèïëîìà ÷åðåç Internet










Ïîëó÷èòü èíôîðìàöèþ î ïîñòóïëåíèè
 
Ãëàâíàÿ Íîâîñòè Êàðòà ñàéòà Ôîòîàëüáîì Ãîñòåâàÿ êíèãà Êîíòàêòû

 

Óïðàæíåíèå 1 (Äâóìåðíûå ìàññèâû)

Äàíà ìàòðèöà NõÌ, ñîñòîÿùàÿ èç íàòóðàëüíûõ ÷èñåë. Íàéòè â íåé íàèìåíüøèé ýëåìåíò è îïðåäå­ëèòü åãî ìåñòîïîëîæåíèå. Åñëè òàêèõ ýëåìåíòîâ íåñêîëüêî, òî âûâåñòè íà ýêðàí ïîëîæåíèå êàæ­äîãî èç íèõ.

Ýòó çàäà÷ó ìîæíî ðåøèòü íåñêîëüêèìè ñïîñîáàìè. Íàïðèìåð, ïîëüçóÿñü òåì, ÷òî ê ýëåìåíòàì ìàññèâà îñóùåñòâëÿåòñÿ ïàðàëëåëüíûé äîñòóï è âîçìîæåí ìíîãîêðàòíûé ïðîñìîòð, ìîæíî îðãàíèçîâàòü äâà ïðîñìîòðà ìàòðèöû. Çà îäèí ïðîñìîòð íàõîäèì ìèíèìàëüíûé ýëåìåíò, è åñëè òàêèõ ýëåìåíòîâ íåñêîëüêî, òî çà âòîðîé ïðîñìîòð îïðåäåëÿåì èõ ìåñòîïîëîæåíèå.

PROGRAM PG5_1;

CONST

T = 100;

S = 100;

VAR A : ARRAY[1..T, 1..S] OF INTEGER;

N, M, IM, JM, I, J, MIN, Ê : INTEGER;

BEGIN

WRITE('BBEÄÈTE ÊÎËÈ×ÅÑÒÂÎ ÑÒÐÎÊ N = ');

READLN(N);

WRITE('BBEÄÈTE ÊÎËÈ×ÅÑÒÂÎ ÑÒÎËÁÖÎÂ Ì = ');

READLN(M);

FOR I := 1 TO N DO BEGIN

WRITELN('BBÅÄÈTE ×ÅÐÅÇ ÏÐÎÁÅË ', M, ' ×ÈÑÅË');

FOR J := 1 ÒÎ Ì DO

READ(A[I, J])

END;

MIN :=A[1, 1];

IM := 1;

JM := 1;

K := 0;

FOR I := 1 TO N DO

FOR J := 1 TO M DO

IF MIN>A[I, J] THEN

BEGIN

K:= 1;

IM:=I;

JM:=J;

MIN := A[l, J]

END

ELSE

IF MIN = A[l, J] THEN

Ê := K+1;

IF Ê = 1 THEN

BEGIN

WRITELN('B ÌÀÒÐÈÖÅ ÎÄÈÍ ÌÈÍÈÌÀËÜÍÛÉ ÝËÅÌÅÍÒ MIN =', MIN);

WRITELN('B ', IM, 'ÑÒÐÎÊÅ, Â ', JM, ' ÑÒÎËÁÖÅ')

END

ELSE

BEGIN

WRITELN('B ÌÀÒÐÈÖÅ ', Ê, 'ÌÈÍÈÌÀËÜÍÛÕ ÝËÅÌÅÍÒÎÂ MIN = ', MIN);

FOR I := IM TO N DO

FOR J := 1 TO M DO

IF MIN = A[l, J] THEN

WRITELN('B ÑÒÐÎÊÅ ', I, ' Â ÑÒÎËÁÖÅ ', J)

END

END.

Äëÿ ðåøåíèÿ çàäà÷è:

- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå;

- ââîäèì ðàçìåðû ìàññèâà À è çíà÷åíèÿ åãî ýëåìåíòîâ;

- ïðîñìàòðèâàåì ýëåìåíòû ìàññèâà, èùåì ìèíèìàëüíîå çíà÷åíèå è çàïîìèíàåì çíà÷åíèå èíäåêñîâ;

- ñ÷èòàåì êîëè÷åñòâî ìèíèìàëüíûõ ýëåìåíòîâ;

- â çàâèñèìîñòè îò Ê ëèáî âûâîäèì èíôîðìàöèþ î åäèíñòâåííîì ìèíèìàëüíîì ýëåìåíòå, ëèáî îðãàíèçóåì ïîâòîðíûé ïðîñìîòð ìàññèâà À äëÿ âûâîäà èíôîðìàöèè î âñåõ ìèíèìàëüíûõ ýëåìåíòàõ.

Ïåðåìåííûå:

À - äâóìåðíûé ìàññèâ;

N, Ì - êîëè÷åñòâî ñòðîê è ñòîëáöîâ ìàññèâà;

I, J - ïåðåìåííûå öèêëà;

Ê - êîëè÷åñòâî ìèíèìàëüíûõ ýëåìåíòîâ;

IM, JM - ñòðîêà è ñòîëáåö ìèíèìàëüíîãî ýëåìåíòà;

MIN - òåêóùèé ìèíèìóì.
 
{SITELINK-S263}ÂÒÎÐÎÉ ÑÏÎÑÎÁ ÐÅØÅÍÈß ÇÀÄÀ×È{/SITELINK}


 
     
   
 


Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êðóãëîì ñòîëå!
ïîäðîáíåå   >>>
 

Èíñòèòóò Ìåíåäæìåíòà, Ýêîíîìèêè è Èííîâàöèé íà÷èíàåò íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Óâàæåìûå ñòóäåíòû ÀÍÎ ÂÏÎ ÈÌÝèÈ!
ïîäðîáíåå   >>>
 

Íà÷èíàåòñÿ íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êîíôåðåíöèÿõ!
ïîäðîáíåå   >>>
 


âñå íîâîñòè...

 


Ðàññûëêè Subscribe.Ru
Ñîâðåìåííîå îáðàçîâàíèå
Ïîäïèñàòüñÿ ïèñüìîì