[XaKeR282]

Сработало))

[Assistant]

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

да и дем действително в тему был...

это точно ))

[M.A.D.M.A.N.]

Пора делать раздел "Для тех, кто не знает, что такое программирование".

[XaKeR282]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
randomize;
i:=random(2);
case i  of
1:(label1.Caption:='что такое солнце?') and
(RadioButton1.Caption:='aftafa') and
(RadioButton2.Caption:='aftafa') and
(RadioButton3.Caption:='aftafa') and
(RadioButton4.Caption:='aftafa');
2: Label1.Caption:='f';
end;
end;

А как правильно написать это?

[ryderx34]

Код:

case i of
1:begin
    label1.Caption:='что такое солнце?';
    RadioButton1.Caption:='aftafa';
    RadioButton2.Caption:='aftafa';
    RadioButton3.Caption:='aftafa';
    RadioButton4.Caption:='aftafa';
  end;
2: Label1.Caption := 'f';
end;

[XaKeR282]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Label1.Visible:=True;
RadioButton1.Visible:=true;
RadioButton2.Visible:=true;
RadioButton3.Visible:=true;
RadioButton4.Visible:=true;
randomize;
i:=random(2);
case i of
1:
begin
label1.Caption:='что такое солнце?';
    RadioButton1.Caption:='Полнолуние';
    RadioButton2.Caption:='Шарик';
    RadioButton3.Caption:='Источник света';
    RadioButton4.Caption:='Планета';
if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked)  then
 ShowMessage('Игра окончена');
 //Close;
end;
0:
Begin
label1.Caption:='Сколько делает 5+5?';
    RadioButton1.Caption:='11';
    RadioButton2.Caption:='10';
    RadioButton3.Caption:='14';
    RadioButton4.Caption:='9';
 if (RadioButton3.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked)  then
 ShowMessage('Игра окончена');
 //Close;
End;

end;
if ((label1.Caption ='что такое солнце?') and (RadioButton3.Checked))
or ((Label1.Caption = 'Сколько делает 5+5?') and (RadioButton2.Checked)) then
begin
  randomize;
  i:=(2);
case i  of
0:
begin
 label1.Caption:='Как называется страна где живут лезгины?';
    RadioButton1.Caption:='Таджикистан';
    RadioButton2.Caption:='Армения';
    RadioButton3.Caption:='Россия';
    RadioButton4.Caption:='они повсюду';
if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton3.Checked)  then
 ShowMessage('Игра окончена');
end;
1:
begin
 label1.Caption:='Что из ниже причисленных не относится к компьютеру?';
    RadioButton1.Caption:='Камера';
    RadioButton2.Caption:='Колонки';
    RadioButton3.Caption:='Мышка';
    RadioButton4.Caption:='Ручка';
if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked)  then
 ShowMessage('Игра окончена');
end;
end;
end;
end;

А почему программа не переходит на второй вопрос?

[Pilot_Red]

XaKeR282 хотел помочь, но начал читать твой листинг, и у меня отключился мозг!

[Janom]

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Label1.Visible:=True;
RadioButton1.Visible:=true;
RadioButton2.Visible:=true;
RadioButton3.Visible:=true;
RadioButton4.Visible:=true;
randomize;
i:=random(2);
case i of
1:
begin
label1.Caption:='что такое солнце?';
    RadioButton1.Caption:='Полнолуние';
    RadioButton2.Caption:='Шарик';
    RadioButton3.Caption:='Источник света';
    RadioButton4.Caption:='Планета';
if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked)  then
 ShowMessage('Игра окончена');
 //Close;
end;
0:
Begin
label1.Caption:='Сколько делает 5+5?';
    RadioButton1.Caption:='11';
    RadioButton2.Caption:='10';
    RadioButton3.Caption:='14';
    RadioButton4.Caption:='9';
 if (RadioButton3.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked)  then
 ShowMessage('Игра окончена');
 //Close;
End;

end;
if ((label1.Caption ='что такое солнце?') and (RadioButton3.Checked))
or ((Label1.Caption = 'Сколько делает 5+5?') and (RadioButton2.Checked)) then
begin
  randomize;
  i:=(2);
case i  of
0:
begin
 label1.Caption:='Как называется страна где живут лезгины?';
    RadioButton1.Caption:='Таджикистан';
    RadioButton2.Caption:='Армения';
    RadioButton3.Caption:='Россия';
    RadioButton4.Caption:='они повсюду';
if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton3.Checked)  then
 ShowMessage('Игра окончена');
end;
1:
begin
 label1.Caption:='Что из ниже причисленных не относится к компьютеру?';
    RadioButton1.Caption:='Камера';
    RadioButton2.Caption:='Колонки';
    RadioButton3.Caption:='Мышка';
    RadioButton4.Caption:='Ручка';
if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked)  then
 ShowMessage('Игра окончена');
end;
end;
end;
end;

А почему программа не переходит на второй вопрос?

Ты это сам прочитать пробовал? я выделил то что в глаза бросается... но это конечно жесть)))

[XaKeR282]

Я что-то не заматил то что ты выделил))

[Janom]

ну я так и подумал... повторюсь: Ты это прочитать пробовал?