Выдаёт неправильный ответ

@W0X · Регистрация: 17.06.2019

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

Не могу понять почему, ответ выдает, но не правильный.Отвечаю на 7 правильно вопросов выдаёт уже 3. Хотя тройка начинается с 11.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
type answers=array[1..20,0..3] of byte;
  const otv:answers=((1,0,0,0),(0,0,1,0),(0,0,0,1),(0,1,0,0),(0,0,1,0),(1,0,0,0),(0,0,1,0),(1,0,0,0),(0,1,0,0),(0,0,0,1),(0,1,0,0),(0,1,0,0),(0,1,0,0),(0,0,0,1),(0,0,0,1),(1,0,0,0),(1,0,0,0),(0,0,0,1),(0,0,1,0),(0,0,1,0));
 
...
procedure TForm2.btn1Click(Sender: TObject);
begin
ball:=otv[1,rg2.itemIndex]+
otv[2,rg3.itemIndex]+
otv[3,rg4.itemIndex]+
otv[4,rg5.itemIndex]+
otv[5,rg7.itemIndex]+
otv[6,rg9.itemIndex]+
otv[7,rg6.itemIndex]+
otv[8,rg8.itemIndex]+
otv[9,rg10.itemIndex]+
otv[10,rg11.itemIndex]+
otv[11,rg12.itemIndex]+
otv[12,rg1.itemIndex]+
otv[13,rg13.itemIndex]+
otv[14,rg14.itemIndex]+
otv[15,rg15.itemIndex]+
otv[16,rg16.itemIndex]+
otv[17,rg17.itemIndex]+
otv[18,rg18.itemIndex]+
otv[19,rg19.itemIndex]+
otv[20,rg20.itemIndex];
 
if (ball >= 20) then lbl2.caption :='5'
else
 
if (ball >= 16) and (ball <= 19) then lbl2.caption :='4'
else
 
if (ball >= 11) and (ball <= 15) then lbl2.caption:='3'
else
 
if (ball >= 1) and (ball <= 10) then lbl2.caption :='2'
else
 
end;

@mr-Crocodile · 31.10.2019, 11:58

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

Отвечаю на 7 правильно вопросов выдаёт уже 3. Хотя тройка начинается с 11.

а ты выведи значение ball и посмотри, чему твой "мяч" равен.
у тебя же суммируются (код ужасный, к слову) все радиогруппы.
во многих из них правильные ответы нулевые. поэтому, даже если ты вообще не отвечаешь, там всё равно единичка просуммируется.

@AzAtom · 31.10.2019, 12:13

Здесь, наверное, то же самое, что и в этой теме Ответ в тест-программе - у не отмеченных RadioGroup ItemIndex равен -1 и выходит за границы массива ответов, а там как повезёт.

Решение применимо то же, что и в той теме.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@AzAtom Модератор 4138 / 2351 / 809 Регистрация: 15.11.2015 Сообщений: 9,392
	31.10.2019, 12:13
	Здесь, наверное, то же самое, что и в этой теме Ответ в тест-программе - у не отмеченных RadioGroup ItemIndex равен -1 и выходит за границы массива ответов, а там как повезёт. Решение применимо то же, что и в той теме. 1