Разработать программу, генерирующую случайное число по аналогу игральной кости

@maxim4eG38rus · Регистрация: 28.04.2016

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

Задание:
Разработать программу генерирующее случайное число по аналогу игральной кости. Программа должна иметь возможность выбора формы игральной кости (куб, додекаэдр и прочие), а также возможность использования нескольких костей одновременно.
Мой код

он огромен) - в нем,есть выбор кубиков(от 1 до 5),есть выбор вида кости(4 -грани,6 - граней,12 и т.д)
думаю тут все понятно)

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,g:integer ;
begin
case form1.ComboBox1.ItemIndex of
0:begin
i:=4;
end;
1:begin
i:=6;
end;
2:begin
i:=8;
end;
3:begin
i:=12;
end;
4:begin
i:=20;
end;
5:begin
i:=100;
end;
end;
Randomize;
case form1.ComboBox2.ItemIndex of
0:begin
edit1.Visible:=true;
edit1.text:=IntToStr(Random(i)+1);
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
end;
1:begin
edit1.Visible:=true;
edit1.text:=IntToStr(Random(i)+1);
edit2.Visible:=true;
edit2.text:=IntToStr(Random(i)+1);
edit3.visible:=False;
edit4.visible:=false;
edit5.visible:=false;
end;
2:begin
edit1.Visible:=true;
edit1.text:=IntToStr(Random(i)+1);
edit2.Visible:=true;
edit2.text:=IntToStr(Random(i)+1);
edit3.Visible:=true;
edit3.text:=IntToStr(Random(i)+1);
edit4.visible:=false;
edit5.visible:=false;
end;
3:begin
edit1.Visible:=true;
edit1.text:=IntToStr(Random(i)+1);
edit2.Visible:=true;
edit2.text:=IntToStr(Random(i)+1);
edit3.Visible:=true;
edit3.text:=IntToStr(Random(i)+1);
edit4.Visible:=true;
edit4.text:=IntToStr(Random(i)+1);
edit5.visible:=false;
end;
4:begin
edit1.Visible:=true;
edit1.text:=IntToStr(Random(i)+1);
edit2.Visible:=true;
edit2.text:=IntToStr(Random(i)+1);
edit3.Visible:=true;
edit3.text:=IntToStr(Random(i)+1);
edit4.Visible:=true;
edit4.text:=IntToStr(Random(i)+1);
edit5.Visible:=true;
edit5.text:=IntToStr(Random(i)+1);
  end;
end;
 if ComboBox1.ItemIndex<0 then
  begin
    ShowMessage('Не выбран куб!');
    Exit;
  end;
 begin
 if ComboBox2.ItemIndex<0 then
    ShowMessage('Не выбрано количество кубиков!');
    Exit;
  end;
end;
end.

@D1973 · 21.05.2018, 10:17

тогда, получается, она нафиг не нужна...

Delphi

procedure TForm1.ComboBox1Change(Sender: TObject);
var i: integer;
begin
 for i := 0 to ControlCount - 1 do
  if Controls[i] is TEdit then
   if TEdit(Controls[i]).Tag = TComboBox(Sender).Tag then 
     case TComboBox(Sender).ItemIndex of
       0 : TEdit(Controls[i]).Text := '4';
       1 : TEdit(Controls[i]).Text := '6';
       2 : TEdit(Controls[i]).Text := '8';
       3 : TEdit(Controls[i]).Text := '12';
       4 : TEdit(Controls[i]).Text := '20';
       5 : TEdit(Controls[i]).Text := '100';
     end;
end;

	21.05.2018, 10:17