Вставить действительное число, в последовательность так, чтобы она осталась неубывающей

@Imex · Регистрация: 13.09.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте.
Подскажите пожалуйста как сделать: Дана возрастающая последовательность действительных чисел a1<=a2<=...<=a10. Вставить действительное число b, a1<b<a10, в неё так, чтобы последовательность осталась неубывающей.

@vodav · 26.12.2014, 06:20

QBasic/QuickBASIC

OPTION BASE 1
CLS
DIM a(11)
RANDOMIZE TIMER
a(1) = RND
PRINT "Array A=["; a(1);
FOR i% = 2 TO 10
  DO
    a(i%) = a(i% - 1) * (1 + RND)
  LOOP WHILE a(i% - 1) = a(i%)
  PRINT "; "; a(i%);
NEXT i%
PRINT "]"
PRINT "Enter the number is less than "; a(10); " and greater than "; a(1); ":";
INPUT b
IF b >= a(1) AND b <= a(10) THEN
  FOR i% = 10 TO 2 STEP -1
    a(i% + 1) = a(i%)
    IF b >= a(i% - 1) THEN
      a(i%) = b
      EXIT FOR
    END IF
  NEXT i%
  PRINT "b inserted in at number "; i%
  PRINT "New array A=["; a(1);
  FOR i% = 2 TO 11
    PRINT "; "; a(i%);
  NEXT i%
  PRINT "]"
ELSE
  PRINT "Incorrect value b"
END IF
END

@Imex · 26.12.2014, 08:45 **[ТС]**

Подскажите еще пожалуйста, как ограничить последнее число (a10) до целых? Я где RND прописываю INT(RND*10) и все цифры кроме последнего отображаются нормально.

Добавлено через 7 минут
Разобрался сам. Спасибо.

@Imex 0 / 0 / 0 Регистрация: 13.09.2010 Сообщений: 12
		1
	Вставить действительное число, в последовательность так, чтобы она осталась неубывающей 25.12.2014, 23:08. Показов 1285. Ответов 2 Метки нет (Все метки) Здравствуйте. Подскажите пожалуйста как сделать: Дана возрастающая последовательность действительных чисел a1<=a2<=...<=a10. Вставить действительное число b, a1<b<a10, в неё так, чтобы последовательность осталась неубывающей. 0

@Imex 0 / 0 / 0 Регистрация: 13.09.2010 Сообщений: 12
	26.12.2014, 08:45 [ТС]	3
	Подскажите еще пожалуйста, как ограничить последнее число (a10) до целых? Я где RND прописываю INT(RND10) и все цифры кроме последнего отображаются нормально. Добавлено через 7 минут* Разобрался сам. Спасибо. 0

Вставить действительное число, в последовательность так, чтобы она осталась неубывающей

Решение