«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

”пражнение 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).


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

 омпьютерный сленг (” и ‘) «адачи на тему "ќбработка числовых последовательностей" ”пражнение 1 (ќбработка числовых последовательностей) ”пражнение 2 (ќбработка числовых последовательностей) ”пражнение 3 (ќбработка числовых последовательностей) «адачи на тему "—имвольные переменные и строки" ”пражнение 1 (—имвольные переменные и строки) ”пражнение 2 (—имвольные переменные и строки) ”пражнение 3 (—имвольные переменные и строки) ”пражнение 4 (—имвольные переменные и строки) 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом