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

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

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@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