Программа-тест не переключается на следующий вопрос

@Melan · Регистрация: 20.02.2016

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

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

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
  const kolvo=2;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Shape1: TShape;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i:integer;
  right:integer;
  questions:array[1..kolvo] of string;
  Otvet1:array [1..kolvo] of string;
  Otvet2:array [1..kolvo] of string;
  Otvet3:array [1..kolvo] of string;
  Otvet4:array [1..kolvo] of string;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
right:=0;
Questions[1]:='';
Otvet1[1]:='';
Otvet2[1]:='';
Otvet3[1]:='';
Otvet4[1]:='';
Questions[2]:='';
Otvet1[2]:='';
Otvet2[2]:='';
Otvet3[2]:='';
Otvet4[2]:='';
 
Memo1.Lines.Text:=Questions[1];
Radiobutton1.Caption:=Otvet1[1];
Radiobutton2.Caption:=Otvet2[1];
Radiobutton3.Caption:=Otvet3[1];
Radiobutton4.Caption:=Otvet4[1];
 
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Radiobutton1.checked = false) and (Radiobutton2.checked = false)
  and (Radiobutton3.checked = false) and (Radiobutton4.checked = false)
  then
 
 
  begin
  ShowMessage('');
  abort;
 If i=1 then
 
if i=2 then
 memo1.text:=' '+IntToStr(right);
 button1.visible:=false;
 Abort;
begin
If Radiobutton1.Checked=true then
else
 shape1.Brush.Color:=clred;
begin
inc(right);
shape1.Brush.Color:=clgreen;
end;
 
end;
 
begin
If Radiobutton1.Checked=true then
else
shape1.Brush.Color:=clred;
begin
inc(right);
shape1.Brush.Color:=clgreen;
 
end;
inc(i);
Memo1.Lines.Text:=Questions[i];
Radiobutton1.Checked:=False;
Radiobutton2.Checked:=False;
Radiobutton3.Checked:=False;
Radiobutton4.Checked:=False;
Radiobutton1.Caption:=Otvet1[i];
Radiobutton2.Caption:=Otvet2[i];
Radiobutton3.Caption:=Otvet3[i];
Radiobutton4.Caption:=Otvet4[i];
end
end
end;
end.

@Shuma_256 · 03.03.2016, 00:11

А можно посмотреть не только код но и исходники с ехе-шками?
так просто легче разобраться будет

@Melan · 03.03.2016, 00:19 **[ТС]**

Тест.rar

@ZfoxAK · 03.03.2016, 10:29

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

Подскажите пожалуйста что делать.

Начните думать.

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

if (Radiobutton1.checked = false) and (Radiobutton2.checked = false)
and (Radiobutton3.checked = false) and (Radiobutton4.checked = false)

Это условие выполнится только в случае если все Radiobutton.checked = false, а не один из них.
поставте or вместо and

@Narimanych · 03.03.2016, 14:17

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

If Radiobutton1.Checked=true then
else
shape1.Brush.Color:=clred;

If Raiobutton1.Checked= false then shape1.Brush.Color:=clred;

Добавлено через 1 минуту
То же самое со строчки 81 по 83...

@CheshireesCat · 03.03.2016, 14:21

Narimanych, ели условие(81строка) правда тогда выполняется 84-87 а если лож тогда 83

Добавлено через 36 секунд
я сам не знал что можно так записывать но проверил работает

@NIKOLAYY · 03.03.2016, 16:19

По простому случаю все просто.
Переменная счетчик на кнопке, счетчик переключается - переключается и вопрос.

@unifikator · 03.03.2016, 17:09

Код:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
  const kolvo=2;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Shape1: TShape;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i:integer;
  right:integer;
  questions:array[1..kolvo] of string;
  Otvet1:array [1..kolvo] of string;
  Otvet2:array [1..kolvo] of string;
  Otvet3:array [1..kolvo] of string;
  Otvet4:array [1..kolvo] of string;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
right:=0;
Questions[1]:='Сколько тебе лет?';
Otvet1[1]:='14';
Otvet2[1]:='10';
Otvet3[1]:='50';
Otvet4[1]:='18';
Questions[2]:='Как дела?';
Otvet1[2]:='Хорошо';
Otvet2[2]:='Плохо';
Otvet3[2]:='Круто';
Otvet4[2]:='Нормально';
Memo1.Lines.Text:=Questions[1];
Radiobutton1.Caption:=Otvet1[1];
Radiobutton2.Caption:=Otvet2[1];
Radiobutton3.Caption:=Otvet3[1];
Radiobutton4.Caption:=Otvet4[1];
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Radiobutton1.checked = false) and (Radiobutton2.checked = false)
and (Radiobutton3.checked = false) and (Radiobutton4.checked = false)
then
begin
ShowMessage('Выберите ответ!');
abort;
end;
if i=1 then
begin
If Radiobutton1.Checked=true then
begin
inc(right);
shape1.Brush.Color:=clgreen;
end
else
shape1.Brush.Color:=clred;
end;
if i=2 then
begin
If Radiobutton1.Checked=true then
begin
inc(right);
shape1.Brush.Color:=clgreen;
end
else
shape1.Brush.Color:=clred;
memo1.text:='Количество правильных ответов: '+IntToStr(right);
button1.visible:=false;
Abort;
end;
inc(i);
Memo1.Lines.Text:=Questions[i];
Radiobutton1.Checked:=False;
Radiobutton2.Checked:=False;
Radiobutton3.Checked:=False;
Radiobutton4.Checked:=False;
Radiobutton1.Caption:=Otvet1[i];
Radiobutton2.Caption:=Otvet2[i];
Radiobutton3.Caption:=Otvet3[i];
Radiobutton4.Caption:=Otvet4[i];
end;
end.

Прилагаю проект на Delphi.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук 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 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Shuma_256 11 / 9 / 5 Регистрация: 08.02.2016 Сообщений: 189
	03.03.2016, 00:11
	А можно посмотреть не только код но и исходники с ехе-шками? так просто легче разобраться будет 0

@Melan 0 / 0 / 0 Регистрация: 20.02.2016 Сообщений: 24
	03.03.2016, 00:19 [ТС]
	Тест.rar 0

@CheshireesCat 88 / 84 / 43 Регистрация: 02.05.2015 Сообщений: 766
	03.03.2016, 14:21
	Narimanych, ели условие(81строка) правда тогда выполняется 84-87 а если лож тогда 83 Добавлено через 36 секунд я сам не знал что можно так записывать но проверил работает 0

@NIKOLAYY 844 / 739 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	03.03.2016, 16:19
	По простому случаю все просто. Переменная счетчик на кнопке, счетчик переключается - переключается и вопрос. 0