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

@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"

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@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

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	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

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

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	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