Подбрасывание монетки

@1337car · Регистрация: 17.03.2018

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

Написать приложение в котрой задаётся число подбрасываний монетки. После программа рандомно высчитывает сколько раз монетка упала орлом или решкой. Результаты записываются в отдельные Lable.

@Puporev · 19.03.2018, 18:31

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.ScrollBars:=ssVertical;
SpinEdit1.MinValue:=5;
SpinEdit1.MaxValue:=100;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n,i,b,o,r:integer;
begin
Memo1.Clear;
n:=SpinEdit1.Value;
randomize;
o:=0;
r:=0;
for i:=1 to n do
 begin
  b:=random(2);
  case b of
  0:begin
    inc(o);
    Memo1.Lines.Add('орел');
    end;
  1:begin
    inc(r);
    Memo1.Lines.Add('решка');
    end;
  end;
 end;
Label2.Caption:='Орел='+inttostr(o);
Label3.Caption:='Решка='+inttostr(r);
end;

@1337car 0 / 0 / 0 Регистрация: 17.03.2018 Сообщений: 10
		1
	Подбрасывание монетки 19.03.2018, 18:10. Показов 1927. Ответов 1 Метки нет (Все метки) Написать приложение в котрой задаётся число подбрасываний монетки. После программа рандомно высчитывает сколько раз монетка упала орлом или решкой. Результаты записываются в отдельные Lable. 0

	19.03.2018, 18:31

Опции темы

Подбрасывание монетки

Решение