«аочное дистанционное образование с получением государственного диплома через 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
—овременное образование
ѕодписатьс€ письмом