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










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

 

Óïðàæíåíèå 2 (Îäíîìåðíûå ìàññèâû)

Äàí ìàññèâ ÷èñåë. Íàéòè, ñêîëüêî â íåì ïàð îäèíàêîâûõ ñîñåäíèõ ýëåìåíòîâ.

PROGRAM PRG4_2;

//îïèñûâàåì êîíñòàíòó (äëÿ îïðåäåëåíèÿ ðàçìåðíîñòè ìàññèâà â ðàçäåëå îïèñàíèÿ ïåðåìåííûõ)

CONST M = 100;

//îïèñûâàåì ïåðåìåííûå

VAR MAS : ARRAY[1..M] OF INTEGER; //îäíîìåðíûé ìàññèâ öåëîãî òèïà

I, K, N : INTEGER;

BEGIN

WRITE('ÂÂÅÄÈÒÅ ÐÀÇÌÅÐ ÌÀÑÑÈÂÀ N = ');

READLN(N); //ââîäèì ðàçìåðíîñòü ìàññèâà ñ êëàâèàòóðû

Ê:=0; //ïðèñâàèâàåì íà÷àëüíîå çíà÷åíèå ïåðåìåííîé K

//îðãàíèçîâûâàåì öèêë äëÿ ââîäà ýëåìåíòîâ ìàññèâà (êîëè÷åñòâî ýëåìåíòîâ îïðåäåëÿåòñÿ çíà÷åíèåì ïåðåìåííîé N

FOR I := 1 ÒÎ N DO

BEGIN

WRITE('BBEÄÈTE ÝËÅÌÅÍÒ ÌÀÑÑÈÂÀ');

READLN(MAS[I]);

END;

//îðãàíèçîâûâàåì öèêë äëÿ îïðåäåëåíèÿ êîëè÷åñòâà îäèíàêîâûõ ïàð ñîñåäíèõ ýëåìåíòîâ ìàññèâà – ñ÷åò÷èê öèêëà ïðèíèìàåò çíà÷åíèå îò 1 äî N-1

FOR I := 1 TO N-1 DO

IF MAS[I] = MAS[I+1] THEN //îïðåäåëÿåì îäèíàêîâûå ïàðû – òåêóùèé ýëåìåíò è ñëåäóþùèé çà íèì ñîñåäíèé ýëåìåíò, åñëè óñëîâèå ïðèíèìàåò çíà÷åíèå True, òî çíà÷åíèå ïåðåìåííîé K óâåëè÷èâàåì íà 1

Ê := K+1;

WRITELN('OÄÈHAKOBÛX ÏÀÐ ÑÎÑÅÄÍÈÕ ÝËÅÌÅÍÒΠ', Ê) //âûâîäèì çíà÷åíèå ïåðåìåííîé k – êîëè÷åñòâî îäèíàêîâûõ ïàð ñîñåäíèõ ýëåìåíòîâ îäíîìåðíîãî ìàññèâà

END.

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

- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå (ïåðåìåííûå îïèñûâàþòñÿ â ðàçäåëå îïèñàíèÿ ïåðåìåííûõ, êîòîðûé íà÷èíàåòñÿ ñ êëþ÷åâîãî ñëîâà var) – óêàçûâàåì èìåíà ïåðåìåííûõ è èõ òèï;

- ââîäèì äëèíó ìàññèâà N (èñïîëüçóåì ïðîöåäóðó READLN), çíà÷åíèå ýëåìåíòîâ ìàññèâà (èñïîëüçóåì öèêë ñ ïàðàìåòðîì, öèêë âûïîëíÿåòñÿ N ðàç, ò.å. ñ÷åò÷èê i ïðèíèìàåò çíà÷åíèÿ îò 1 äî N) è óñòàíàâëèâàåì íà÷àëüíîå çíà÷åíèå Ê (äëÿ ïîäñ÷åòà îäèíàêîâûõ ïàð ñîñåäíèõ ýëåìåíòîâ îäíîìåðíîãî ìàññèâà) – íà÷àëüíîå çíà÷åíèå ðàâíî 0, ò.å. äî âûïîëíåíèÿ ïîäñ÷åòà ñ÷èòàåòñÿ, ÷òî îäèíàêîâûõ ïàð íåò;

- ïîñëåäîâàòåëüíî ïðîñìàòðèâàåì ýëåìåíòû (ýòî âûïîëíÿåòñÿ â òåëå öèêëà ñ ïàðàìåòðîì), è åñëè î÷åðåäíîé ýëåìåíò îäíîìåðíîãî ìàññèâà MAS[ I ] ðàâåí ñëåäóþùåìó ýëåìåíòó ìàññèâà MAS[I +1], òî óâåëè÷èâàåì çíà÷åíèå ïåðåìåííîé Ê íà åäèíèöó (Ê := K+1);

- âûâîäèì ðåçóëüòàò (èñïîëüçóåì ïðîöåäóðó WRITELN) .

Ïåðåìåííûå:

MAS – îäíîìåðíûé ìàññèâ ÷èñåë (ýëåìåíòû ìàññèâà – ýòî ÷èñëà öåëîãî òèïà äàííûõ, ðàçìåðíîñòü ìàññèâà ðàâíà M, ãäå Ì – ýòî êîíñòàíòà, çíà÷åíèå êîòîðîé ðàâíî 100);

N – ðàçìåð îäíîìåðíîãî ìàññèâà, êîòîðûé ââîäèò ïîëüçîâàòåëü ñ êëàâèàòóðû;

I – ïåðåìåííàÿ öèêëà (ñ÷åò÷èê) öåëîãî òèïà;

Ê – êîëè÷åñòâî îäèíàêîâûõ ïàð ñîñåäíèõ ýëåìåíòîâ.



 
     
   
 


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

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

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

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

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


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

 


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