Äàí ìàññèâ ÷èñåë. Íàéòè, ñêîëüêî â íåì ïàð îäèíàêîâûõ ñîñåäíèõ ýëåìåíòîâ.
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 – ïåðåìåííàÿ öèêëà (ñ÷åò÷èê) öåëîãî òèïà;
Ê – êîëè÷åñòâî îäèíàêîâûõ ïàð ñîñåäíèõ ýëåìåíòîâ.
|