CLS
DIM A(10)
RANDOMIZE TIMER
   FOR I = 1 TO 10
    A(i) = INT(RND  30) – 5
      PRINT A(i);
IF A(i) MOD 2 = 0 THEN k = k + 1
   NEXT: PRINT
PRINT “ Кол. изменённых индексов:”; k
   FOR I = 1 TO 10
IF A(i) MOD 2 = 0 THEN A(i) = A(i) / i
PRINT INT(100 * A(i)) / 100;
   NEXT i

На выходе имеем:

QBasic/QuickBASIC

1
2
3

3   23   21   15   4   0   14   4   11   -2
Кол. изменённых индексов:
3   23   21   15   .8   0   2   .5   11   .-21

Здесь при делении последнего 10-го члена на 10 получили: -0.21, вместо -0.20. Точность до 2-го знака.

QBasic/QuickBASIC

1
2
3

14   -1   11   -4   -4   8   1   3   18   2
Кол. изменённых индексов:
14   -1   11   -1   .81   1.33   1   3   2   .2

Здесь при делении последнего 10-го члена на 10 получили: 0.2, вместо 0.20. Точность до 1-го знака.

Вы могли бы объяснить – почему так?

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

08.06.2020, 15:51

Ответы с готовыми решениями:

Вложенный цикл. Найти трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3 остаток 2, при делении на 4 остаток 3
НАЙТИ С ПОМОЩЬЮ ВЛОЖЕННОГО ЦИКЛА))) найти асе трехзначные числа, которые при делении на 2 дают...

Поиск четырехзначных чисел, которые при делении на 133 дают в остатке 125, а при делении на 134 - 111
2.Составить программу поиска четырехзначных чисел которые при делении на 133 дают в остатке 125.а...

Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при делении на 3.
1 задача Ввести двумерный массив A 3×4 . Определить произведение элементов, которые при делении...

Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при делении на 3
Ввести двумерный массив А3×4 . Определить произведение элемен-тов, которые при делении на 2 дают...

	08.06.2020, 15:51

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

08.06.2020, 15:51

Помогаю со студенческими работами здесь

Составить программу поиска трехзначных чисел, которые при делении на 47 дают в остатке 43, а при делении на 43
Составить программу поиска трехзначных чисел, которые при делении на 47 дают в остатке 43, а при...

Составить программу поиска трёхзначный чисел, которые при делении на 47 дают в остатке 43, а при делении на 4
Составить программу поиска трёхзначный чисел, которые при делении на 47 дают в остатке 43, а при...

Ошибка при попытке вывести звук при успешном целочисленном делении
Есть переменная score, которая увеличивается от клика по кнопке. Однако при попытке вывести...

Ошибка при делении
Здравствуйте, уважаемые форумчане. Имеется вопрос Во фрагменте кода (см. ниже) выдается ошибка...

Ошибка при делении
Пишу калькулятор, код при нажатии на кнопку деления double ch1 = Double.Parse(display.Text);...

Ошибка при делении
Почему-то появляется ошибка integer owerlow _asm{ mov ax, 39 mov bx, 2 mov dx, 32...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх