На этот раз используя тот же принцип, что у чат-бота напишем свой электронный ежедневник на неделю. (Если забыли, то посмотрите домашнее задание на урок)
Создадим списки для дней недели: Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday.

Для начала, на каждый день будем назначать одно дело.

1) Заполните список строками "нет дел" (подойдет цикл for)
2) Создайте команду "Изменить дело" (edit)
3) Создайте команду "Вывести календарь на неделю быстрее!! Заранее

Задача 5. “Кузнечик” В одной стране жил-был волшебный кузнечик, умеющий прыгать на любое расстояние. А ко- гда он изучил тему «числовые последовательности», то решил прыгать по дороге с нумерованны- ми клетками по придуманному им правилу: 1 2 4 7 11 16 22 29 и так далее, дальше продолжи- те сами. А другой кузнечик решил подкараулить его в какой-нибудь клетке N, чтобы не дать уска- кать в бесконечность ему, предложите алгоритм, проверяющий, попадет ли первый кузнечик в клетку N? Решение: Можно догадаться, что каждое n-ное число bn = bn-1 + n – 1, где b1 = 1. Можно также догадаться, что каждое число нашей прогрессии bn = 1 + 1 + 2 + 3 + … + n – 1 = 1 + Sn , где Sn – это сумма арифметической прогрессии с a1=0 и d=1. И по формуле прогрессии получаем: bn = 1 + n(n-1)/2. Остается проверить, равно ли введенное N какому-нибудь bn. Решаем уравнение: N = 1 + n(n-1)/2, квадратное уравнение: n2 – n + 2 – 2N = 0, D = 1 – 4(2-2N) = 8N – 7, n = (1+sqrt(8N-7))/2 – берем только положительный ответ. Получился алгоритм: Подставляем N в формулу для n и если n – целое, то кузнечик попадет в клетку с номером N. Вопрос только, как проверить, целое ли n. Для этого проверяем, достаточно ли мало отклонение его от его округле- ния: если abs( n – round( n ) ) < 0,000000000000001, то n – скорее всего целое. По крайней мере с точностью до 0,000000000000001.

'MS-DOS QBasic 1.0
DIM a(1 TO 20) AS SINGLE, b(1 TO 20) AS SINGLE
CLS
RANDOMIZE TIMER
PRINT "Massiv a"
j = 0
FOR i = 1 TO 20
   a(i) = 10 * RND - 5
   PRINT a(i);
   IF a(i) > 0 THEN
      j = j + 1
      b(j) = a(i)
   END IF
NEXT i
FOR i = 1 TO 20
   IF a(i) <= 0 THEN
      j = j + 1
      b(j) = a(i)
   END IF
NEXT i
PRINT
PRINT "Massiv b"
FOR i = 1 TO j
   PRINT b(i);
NEXT i
PRINT

Тестовое решение:
Massiv a
-1.726111  1.835247 -4.176585  4.217188  4.836039  4.953975  .551706  .2788973
-1.588834  1.447831  1.91242 -3.830101  3.318729  1.483444  .0306803 -.3601742
 1.934826  1.057516 -2.458627  .9090161
Massiv b
 1.835247  4.217188  4.836039  4.953975  .551706  .2788973  1.447831  1.91242
 3.318729  1.483444  .0306803  1.934826  1.057516  .9090161 -1.726111 -4.176585
-1.588834 -3.830101 -.3601742 -2.458627