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










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

 

Óïðàæíåíèå 4 (Îáðàáîòêà ÷èñëîâûõ ïîñëåäîâàòåëüíîñòåé)

Ââîäèòñÿ ïîñëåäîâàòåëüíîñòü öåëûõ ÷èñåë, 0 - êîíåö ïîñëåäîâàòåëüíîñòè. Íàéòè äâà íàèìåíüøèõ ÷èñëà.

 
PROGRAM PRG2_4;

VAR X, MIN1, MIN2: INTEGER;

BEGIN

WRITE('BBEÄÈTE X = ');

READLN (X);

MIN1 :=X;

MIN2 := X;

{MIN2> = MIN1}

REPEAT

IF X<= MIN1 THEN

BEGIN

MIN2 := MIN1;

MIN1 :=X

END

ELSE

IF (MIN1>X) AND (X<MIN2) THEN

MIN2 := X;

WRITE('BBEÄÈTE X = ');

READLN (X);

UNTIL (X = 0);

WRITELN('ÄBA ÍÀÈÌÅÍÜØÈÕ ×ÈÑËÀ ÐÀÂÍÛ ', MIN1, 'È', MIN2);

END.

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

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

- óñòàíàâëèâàåì íà÷àëüíîå çíà÷åíèå MIN1 è MIN2 ïî ïåðâîìó ÷èñëó;

- ïîñëåäîâàòåëüíî ñ÷èòûâàåì ÷èñëà è, åñëè î÷åðåäíîå ÷èñëî X ìåíüøå ïëè ðàâíî MIN1(MIN1 < MIN2), òî ïåðåïðèñâàèâàåì çíà÷åíèå MIN1 è MIN2;

- åñëè X ïîïàäàåò â èíòåðâàë îò MIN1 äî MIN2, òî ïåðåïðèñâàèâàåì òîëüêî MIN2;

- âûâîäèì ðåçóëüòàò.

Ïåðåìåííûå:

X - î÷åðåäíîå ÷èñëî;

MINI - ïåðâîå íàèìåíüøåå ÷èñëî;

MIN2 - âòîðîå íàèìåíüøåå ÷èñëî (MIN2 >= MINI).



 
     
   
 


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

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

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

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

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


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

 


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