доработка теста на delphi

[Olya1985]

помогите, пожалуйста, доделать начатый код, чтобы при выборе radiobutton2 первого вопроса появлялся следующий вопрос и т д.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 const
  n=2;

var
  Form1: TForm1;
 questions:array[1..n]of string=('Ýëåêòðîííàÿ òàáëèöà - ýòî','Êàêèì ìèíèìàëüíûì óñëîâèÿì äîëæíà óäîâëåòâîðÿòü ïðîöåäóðà äëÿ òîãî, ÷òîáû íàçûâàòüñÿ ðåêóðñèâíîé');
 i:integer=1;
 answers:array[1..n,1..3] of string =(('ïðèëîæåíèå, õðàíÿùåå è îáðàáàòûâàþùåå äàííûå â ïðÿìîóãîëüíûõ òàáëèöàõ è ïðåäíàçíà÷åííîå äëÿ àâòîìàòèçàöèè ðàñ÷åòîâ','ïðîãðàììíûå ñðåäñòâà, îñóùåñòâëÿþùèå ïîèñê èíôîðìàöèè','ïðèëîæåíèå, ïðåäíàçíà÷åííîå äëÿ ñáîðà, õðàíåíèÿ, îáðàáîòêè è ïåðåäà÷è èíôîðìàöèè'),('ñîäåðæàòü óñëîâèå âõîäà â ïðîöåäóðó','ñîäåðæàòü óñëîâèå âõîäà â ïðîöåäóðó','ñîäåðæàòü âëîæåííûå öèêëû'));

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=questions[i];
if i<n then inc(i);
radiobutton1.caption:=answers[i][1];
radiobutton2.caption:=answers[i][2];
radiobutton3.caption:=answers[i][3];

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 label1.caption:=questions[i];
 radiobutton1.caption:=answers[i][1];
radiobutton2.caption:=answers[i][2];
radiobutton3.caption:=answers[i][3];
inc(i);
end;

end.

[phomm]

Объединить все радиобатоны в один TradioGroup (это компонент такой, назвать его RG)

var corcnt : byte;
corans : array [1..n] of byte = (2,1,3); // сюда номера правильных ответов
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if rg.itemindex = -1 
  then exit; // защита, если не выбран ответ
if rg.itemindex = corans[i]
  then inc (corcnt);  
if i<n then inc(i)
  else showmessage(‘Правильных ответов - ’+ inttostr(corcnt));
label1.caption:=questions[i];
radiobutton1.caption:=answers[i][1];
radiobutton2.caption:=answers[i][2];
radiobutton3.caption:=answers[i][3];
radiobutton1.checked:=false;
radiobutton2.checked:=false;
radiobutton3.checked:=false;
end;

[Olya1985]

спасибо!

но почему то счет правильных ответов не ведется. всегда пишется 0.

[Deniskaaa]

var a,b,c,d,x,x1,x2:real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
d:=sqr(b)-4*a*c;
if d>0 then
begin
x1:=(-b + sqrt(d))/(2*a);
x2:=(-b - sqrt(d))/(2*a);
end
else
begin
if d=0 then
begin
x1:=-b/(2*a);
x2:=0;
end
else
begin
x1:=0;
x2:=0;
end;
end;
if x1<>0 then
begin

if x2<>0 then
Label6.Caption:=FloatToStr(x1,x2)

else
begin
begin
x:=x1;
Label6.Caption:=FloatToStr(x);
end;
end
else
if x2<>0 then
begin
x:=x2;
Label6.Caption:=FloatToStr(x);
end
else
Label6.Caption:='Нет корней';
end;
end;

end.

[phomm]

Архивируйте проект и прикрепляйте - посмотрим что у Вас там

[Olya1985]

проект прикрепила