Найти ошибки в программе и определить что она делает

@8Barash8 · Регистрация: 03.05.2019

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

Найти ошибки в программе и объяснить что она делает, если n=3.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
INPUT n
DIM a (n,n), b(n)
FOR i=1 TO n
    FOR j=1 TO n
        a(i,j)=ABS((3*i-2*j)MOD 7)
    NEXT j
    b(i)=a(i,i)+a(i,n-i+1)
NEXT i
FOR i= 1 TO n
    IF b(i)/3=INT(b(i)/3) THEN
        FOR j= 1 TO n
            PRINT a(i,j);
        NEXT j
        PRINT
    END IF
NEXT i
SLEEP
END

@Pro_grammer · 31.05.2019, 21:32

Сообщение от 8Barash8

Найти ошибки в программе и объяснить что она делает

Как же найти ошибки, если мы не знаем, что должна делать программа?

@8Barash8 · 01.06.2019, 08:57 **[ТС]**

Именно, такое вот задание. Ну сама ошибка должна быть не значительна, типа букву поменять или что-то местами

@wer1 · 01.06.2019, 11:37

Уважаемый 8Barash8,
ошибка находится в строке 11. Вот ваш код:

IF b(i) / 3 = INT(b(i) / 3) THEN

Вы сравниваете НА РАВЕНСТВО вещественные числа (!!!)

@кот Бегемот · 01.06.2019, 12:43

нтч, глупости Вы пишите:

Вы сравниваете НА РАВЕНСТВО вещественные числа (!!!)

учите матчасть. Выражение

QBasic/QuickBASIC
1
IF b(i) / 3 = INT(b(i) / 3) THEN

это обычная проверка на делимость числа b(i) на 3, которая часто встречается в программах на Бейсике, ни о каких вещественных числах здесь нигде речи нет, а переводится это выражение так: если результат деления числа на 3 равен целой части от деления числа на 3, то число делится на 3

То же самое можно было записать и так:

QBasic/QuickBASIC
1
IF b(i)/3=b(i)\3

или

QBasic/QuickBASIC
1
IF b(i) MOD 3=0

@Pro_grammer · 01.06.2019, 17:01

Сообщение от 8Barash8

Ну сама ошибка должна быть не значительна, типа букву поменять или что-то местами

Понимаете, какая штука. Синтаксических шибок в коде нет, он запускается и работает.
А чтобы выявить логические ошибки нужно знать что этот код должен делать. Потому как может оказаться, что код должен делать именно то, что делает сейчас, такова задумка автора. И угадать изначальную задумку это уже из области парапсихологии, а не программирования.

@кот Бегемот · 01.06.2019, 17:47

В коде нет ни синтаксических, ни логических ошибок.
Если бы здесь была логическая ошибка, решить вторую часть задачи (что делает программа) было бы просто невозможно.
А тут всё нормально: массивы вычисляются, условие проверяется, нужная строка выводится.

@wer1 · 01.06.2019, 17:53

Сообщение от кот Бегемот

То же самое можно было записать и так:

QBasic/QuickBASIC
1
IF b(i)/3=b(i)\3

или

QBasic/QuickBASIC
1
IF b(i) MOD 3=0

Уважаемый кот Бегемот,
это не то же самое. Массивы по умолчанию имеют тип SINGLE
(то есть вещественный тип). А ваши преобразования пусть останутся на вашей совести.

@кот Бегемот · 01.06.2019, 18:29

Сообщение от нтч

это не то же самое. Массивы по умолчанию имеют тип SINGLE

Зачем вы морочите голову людям своим бредом?
QBasic очень непривередлив к типу данных и легко переводит необъявленные переменные из действительных в целые и обратно. Что позволяет не объявлять тип переменных или массивов.
Достаточно сказать, что в QBasic выполнима, к примеру, программа

QBasic/QuickBASIC
1
2
a=13.6
PRINT a MOD 5

что в Паскале было бы ошибкой.

@wer1 · 01.06.2019, 18:40

кот Бегемот,
мне это известно. Но у ТС в условии сравниваются вещественные числа (!!!). А это может один раз пройти, а другой раз не пройти. В общем это не просто ошибка. Это Критическая Ошибка. Мне ли вам говорить об этом, человеку который написал тысячи программ!!

@кот Бегемот · 01.06.2019, 19:12

Сообщение от нтч

Но у ТС в условии сравниваются вещественные числа (!!!)

Ещё раз вас прошу: перестаньте нести ересь. Ваш бред выдаёт в Вас дилетанта, нахватавшегося верхушек. Все числа в информатике ( не важно, целые, действительные) - это определённый конечный набор ноликов и единиц, следовательно, сравнивать их можно всегда.

@wer1 · 01.06.2019, 19:20

Глубоко уважаемый кот Бегемот,
вы можете пригласить в эту тему эксперта, который бы ответил на вопрос.
Можно ли сравнивать на равенство вещественные числа?
Если он скажет, что можно, то я перед Вами извинюсь при всех. Ну и плюс кучу спасибок и отзыв в придачу!

@кот Бегемот · 01.06.2019, 19:23

Зачем мне кого-то приглашать, я не нуждаюсь ни в Ваших извинениях, ни в Ваших спасибках. Я 22 года проработал учителем информатики высшей категории и мои ученики постоянно выигрывали олимпиады и заканчивали самые престижные ВУЗы по самым престижным компьютерным специальностям. Так что ищите себе эксперта сами. А "нам кузнец не нужен".

@wer1 · 01.06.2019, 19:48

кот Бегемот,
мне тоже не нужен эксперт. Просто я хорошо знаю истину.
Вещественные числа НА РАВЕНСТВО сравнивать нельзя (!!!)

Добавлено через 17 минут
кот Бегемот
пример того, что я прав... Программа выдает ответ: FALSE

QBasic/QuickBASIC
1
IF SQR(2) ^ 2 = 2 THEN PRINT "TRUE" ELSE PRINT "FALSE"

@кот Бегемот · 01.06.2019, 19:54

Хорошо, если числа вещественные, то, разумеется, лучше использовать разницу, но к этой задаче весь этот спор не имеет никакого отношения, потому что здесь сравниваются не два вещественных числа, а вещественное с целым. Причём, целое получено отбрасыванием дробной части вещественного, то есть такое сравнение - это лишь выяснение, есть ли у вещественного числа дробная часть. Надеюсь, эта истина Вам тоже известна.

Добавлено через 2 минуты
PS Ваш пример некорректен уже потому, что левая часть заведомо не будет равна правой, так что false здесь совершенно естественный ответ

@wer1 · 01.06.2019, 20:04

кот Бегемот,
вы понимаете, что равенство (смотрите задачу ТС) (1 / 3) * 3 = 1 невозможно?
Число 1/3 = 0.3333333 будучи умножено на 3 приведет к сравнению 0.9999999 = 1

Добавлено через 2 минуты
...
почему неверно?
если корень квадратный из 2 возвести в квадрат, то равно это 2.

@Pro_grammer · 01.06.2019, 20:19

Сообщение от нтч

вы понимаете, что равенство (смотрите задачу ТС) (1 / 3) * 3 = 1 невозможно?

Так в этом и смысл кода!

QBasic/QuickBASIC
1
IF b(i)/3=INT(b(i)/3) THEN

Эта строка проверяет число на кратность 3
Т.е. если b(i) делится на 3 без остатка(3, 6, 9 и т.п.), то выполняется условие.

@wer1 · 01.06.2019, 20:32

Pro_grammer,
я не утверждаю, что вещественное число не может поделиться на 3...
Но получится в итоге вещественное число. И нельзя гарантировать,
что к примеру 3 / 3 будет иметь вид 1.00000000000001. Число то не целое!

@Pro_grammer · 01.06.2019, 21:25

Сообщение от нтч

И нельзя гарантировать,
что к примеру 3 / 3 будет иметь вид 1.00000000000001.

Зачем теоретизировать? Проще проверить.
Вот такой код вас убедит в том, что он работает правильно

QBasic/QuickBASIC
1
2
3
4
5
6
7
CLS
DIM i AS DOUBLE
FOR i = 1 TO 100 STEP .5
    IF i / 3 = INT(i / 3) THEN
      PRINT i
    END IF
NEXT

Специально сделал шаг 0.5 чтобы все сомнения пропали.

@wer1 · 02.06.2019, 06:08

Pro_grammer,
да, ваша программа работает верно. Я тоже могу привести подобные примеры.
Суть дела в том, что может попасться задача, когда сравнение вещественных чисел на равенство даст отрицательный результат. Мне такое уже попадалось.

А вот что пишут авторы книги "Начала программирования на языке Qbasic"
К операндам вещественного типа НЕ СЛЕДУЕТ применять операцию отношения "=" (равно), условие может не выполняться из-за неточного представления вещественных чисел в памяти ЭВМ и неизбежных ошибок округления при вычислениях.
...
В общем если даны два вещественных числа А и В, то сравнение А = В, следует заменять на ABS(A - B) < eps. (где eps - приемлемая погрешность результата)
Pro_grammer,
вы умный человек, знаете достаточно много и понимаете, что все сравнения на равенство вещественных чисел нельзя проверить. Иными словами, может попасться такая задача, которая исказит результат работы программы (а то и вообще его скроет)
...
Мне больше нечего Вам сказать. Вы не школьник... Считаю дальнейшую дискуссию бесполезной.
Если вы уверены в том, что вы правы, то можете обнулить мою репутацию дав комментарий: "Умышленное введение в заблуждение пользователей. И полное незнание QBasica"

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@8Barash8 0 / 0 / 0 Регистрация: 03.05.2019 Сообщений: 15
	01.06.2019, 08:57 [ТС]
	Именно, такое вот задание. Ну сама ошибка должна быть не значительна, типа букву поменять или что-то местами 0

@wer1 1104 / 480 / 33 Регистрация: 05.07.2018 Сообщений: 1,870 Записей в блоге: 7
	01.06.2019, 11:37
	Уважаемый 8Barash8, ошибка находится в строке 11. Вот ваш код: IF b(i) / 3 = INT(b(i) / 3) THEN Вы сравниваете НА РАВЕНСТВО вещественные числа (!!!) 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	01.06.2019, 17:47
	В коде нет ни синтаксических, ни логических ошибок. Если бы здесь была логическая ошибка, решить вторую часть задачи (что делает программа) было бы просто невозможно. А тут всё нормально: массивы вычисляются, условие проверяется, нужная строка выводится. 0

@wer1 1104 / 480 / 33 Регистрация: 05.07.2018 Сообщений: 1,870 Записей в блоге: 7
	01.06.2019, 18:40
	кот Бегемот, мне это известно. Но у ТС в условии сравниваются вещественные числа (!!!). А это может один раз пройти, а другой раз не пройти. В общем это не просто ошибка. Это Критическая Ошибка. Мне ли вам говорить об этом, человеку который написал тысячи программ!! 0

@wer1 1104 / 480 / 33 Регистрация: 05.07.2018 Сообщений: 1,870 Записей в блоге: 7
	01.06.2019, 19:20
	Глубоко уважаемый кот Бегемот, вы можете пригласить в эту тему эксперта, который бы ответил на вопрос. Можно ли сравнивать на равенство вещественные числа? Если он скажет, что можно, то я перед Вами извинюсь при всех. Ну и плюс кучу спасибок и отзыв в придачу! 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	01.06.2019, 19:23
	Зачем мне кого-то приглашать, я не нуждаюсь ни в Ваших извинениях, ни в Ваших спасибках. Я 22 года проработал учителем информатики высшей категории и мои ученики постоянно выигрывали олимпиады и заканчивали самые престижные ВУЗы по самым престижным компьютерным специальностям. Так что ищите себе эксперта сами. А "нам кузнец не нужен". 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	01.06.2019, 19:54
	Хорошо, если числа вещественные, то, разумеется, лучше использовать разницу, но к этой задаче весь этот спор не имеет никакого отношения, потому что здесь сравниваются не два вещественных числа, а вещественное с целым. Причём, целое получено отбрасыванием дробной части вещественного, то есть такое сравнение - это лишь выяснение, есть ли у вещественного числа дробная часть. Надеюсь, эта истина Вам тоже известна. Добавлено через 2 минуты PS Ваш пример некорректен уже потому, что левая часть заведомо не будет равна правой, так что false здесь совершенно естественный ответ 0

@wer1 1104 / 480 / 33 Регистрация: 05.07.2018 Сообщений: 1,870 Записей в блоге: 7
	01.06.2019, 20:04
	кот Бегемот, вы понимаете, что равенство (смотрите задачу ТС) (1 / 3) * 3 = 1 невозможно? Число 1/3 = 0.3333333 будучи умножено на 3 приведет к сравнению 0.9999999 = 1 Добавлено через 2 минуты ... почему неверно? если корень квадратный из 2 возвести в квадрат, то равно это 2. 0

@wer1 1104 / 480 / 33 Регистрация: 05.07.2018 Сообщений: 1,870 Записей в блоге: 7
	01.06.2019, 20:32
	Pro_grammer, я не утверждаю, что вещественное число не может поделиться на 3... Но получится в итоге вещественное число. И нельзя гарантировать, что к примеру 3 / 3 будет иметь вид 1.00000000000001. Число то не целое! 0

@wer1 1104 / 480 / 33 Регистрация: 05.07.2018 Сообщений: 1,870 Записей в блоге: 7
	02.06.2019, 06:08
	Pro_grammer, да, ваша программа работает верно. Я тоже могу привести подобные примеры. Суть дела в том, что может попасться задача, когда сравнение вещественных чисел на равенство даст отрицательный результат. Мне такое уже попадалось. А вот что пишут авторы книги "Начала программирования на языке Qbasic" К операндам вещественного типа НЕ СЛЕДУЕТ применять операцию отношения "=" (равно), условие может не выполняться из-за неточного представления вещественных чисел в памяти ЭВМ и неизбежных ошибок округления при вычислениях. ... В общем если даны два вещественных числа А и В, то сравнение А = В, следует заменять на ABS(A - B) < eps. (где eps - приемлемая погрешность результата) Pro_grammer, вы умный человек, знаете достаточно много и понимаете, что все сравнения на равенство вещественных чисел нельзя проверить. Иными словами, может попасться такая задача, которая исказит результат работы программы (а то и вообще его скроет) ... Мне больше нечего Вам сказать. Вы не школьник... Считаю дальнейшую дискуссию бесполезной. Если вы уверены в том, что вы правы, то можете обнулить мою репутацию дав комментарий: "Умышленное введение в заблуждение пользователей. И полное незнание QBasica" 0