Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как организовать нормальный "рандом"?? [D7, WinXP]

Страницы: 1 2 >
VlaDD © (2004-09-30 02:58:00)
Суть задачи такова:
На экране 8 ячеек, в каждой из них записано какое-то первоначальное значение(1..10). Нужно организовать "рандом", чтобы в случайно выбранной ячейке число наращивалось на 1. За один такт только одна ячейка. При достижении числа 10 в какой-либо ячейке, она выпадает из "рандома", а последующие такты ее не косаются. Так продолжается, пока все числа в ячейках не дойдут до 10. Обязательное условие- чтобы небыло холостых ходов, т.е. "рандом" должен выбирать только из имеющихся ячеек куда прибавить еденичку.
Вроде задача простая, суть понятна, понимаю как делать, но воплотить в жизнь не получается!!! Помогите плиззз!!! Хотя бы на словах, но конечное же лучше алгоритм

Fedia (2004-10-11 01:36:00) [1]
To VlaDD (10.10.04 22:45) [26]
Хотел написать, что лучше бы этот код вообще больше не всплывал, ведь можно было воспользоваться советом [7] без введения новых переменных, но посмотрел на то, что в результате этого сообщения предложил Palladin, и теперь думаю, что результат оправдал затраченные средства.

VlaDD (2004-10-11 01:33:00) [2]
Я совершенно не понял от куда что взялось!!!
Если хотите что-либо продемонстрировать, нельзя ли поподробней?..

Palladin (2004-10-11 00:12:00) [3]
PS
до простого кирпича, позволяющего использование вышеуказанной простоты ты должен сам дойти...

Palladin (2004-10-11 00:05:00) [4]
я в шоке...

народ... простота, а не навороченность. Вот что является главным в программировании и придает изящность решениям разнообразных задач... именно стремление к простоте делает программирование искусством, а не ремеслом... ремеслом программирование является для кодеров! именно простота является теми изящными кирпичиками на которых строится следующая простота...

Var
Src,
Finished:TList;

Procedure SimpleIsAPriority;
Var
nIndex:Integer;
Begin
While Src.Count>0 Do
Begin
nIndex:=Ransom(Src.Count);
Src[nIndex]:=Pointer(Integer(Src[nIndex])+1);
If Integer(Src[nIndex])=10 Then
Begin
Finished.Add(Pointer(nIndex));
Src.Delete(nIndex);
End;
End;
End;

где в принципе и Finished является лишним и лишь используется для хранения истории завершения пути ячеек...

Юрий Зотов (2004-10-10 23:37:00) [5]
Ёпрст.

SergP. (2004-10-10 23:04:00) [6]

> Я использовал списки, но при удалении из него любого элемента
> (достигшего 10) не могу отследить его новое местоположение.

А ты в списке храни не само число, а его положение.

VlaDD (2004-10-10 22:45:00) [7]
Ну, в общем, я тут посидел и довел этот алгоритм до ума. Оцените.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
Memo5: TMemo;
Memo6: TMemo;
Memo7: TMemo;
Memo8: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

TCells=record
value:Integer;
full:Boolean;
end;

var
Form1: TForm1;
Col: integer;
cells: array [1..8] of TCells;
OstNom: array [1..8] of integer;
Procedure Start;

implementation

{$R *.dfm}

Procedure SetMemoValue;
begin
Form1.Memo1.Text:= IntToStr(cells[1].value);
Form1.Memo2.Text:= IntToStr(cells[2].value);
Form1.Memo3.Text:= IntToStr(cells[3].value);
Form1.Memo4.Text:= IntToStr(cells[4].value);
Form1.Memo5.Text:= IntToStr(cells[5].value);
Form1.Memo6.Text:= IntToStr(cells[6].value);
Form1.Memo7.Text:= IntToStr(cells[7].value);
Form1.Memo8.Text:= IntToStr(cells[8].value);
end;

Procedure Start;
var i:integer;
begin
Col:=8;
for i:=1 to 8 do
begin
cells[i].value:=0;
cells[i].full:=false;
end;
for i:=1 to 8 do OstNom[i]:=i;
SetMemoValue;
end;

procedure TForm1.Button1Click(Sender: TObject);
var NCell : integer;
bool,bk : Boolean;
i,j,n : integer;
begin
bool:=true; //?????????? ??? ?????????
for i:=1 to 8 do
if not cells[i].full then //???? ???? ?? ???? ?????? ?? ?????? bool=false
begin
bool:=false;
break;
end;
if bool then //??? ???? ??????????? ??? ??????
begin
start;
exit;
end;
Randomize;
NCell:=OstNom[Random(Col)+1];
inc(Cells[NCell].value);
if Cells[Ncell].value=10 then
begin
Cells[Ncell].full:=true;
bk:=false;
i:=1;
While bk<>true do
begin
if OstNom[i]=NCell then
begin
for j:=i to Col-1 do
OstNom[j]:=OstNom[j+1];
dec(Col);
bk:=true;
end;
inc(i);
end;
end;

SetMemoValue;

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Start;
end;

end.

VlaDD (2004-10-01 02:33:00) [8]
Огромное Вам спасибо! Правда толком еще не разобрался(я как раз сейчас этим и занимаюсь), но главное работает!

P.S.: мне дали отсрочку с прогой еще на 2 дня

VlaDD (2004-10-01 02:32:00) [9]
Огромное Вам спасибо! Правда толком еще не разобрался(я как раз сейчас этим и занимаюсь), но главное работает!

P.S.: мне дали отсрочку с прогой еще на 2 дня

default (2004-09-30 14:18:00) [10]
Defunct © (30.09.04 04:45) [18]
[18] вообщем пойдёт с маленькой поправкой(в цикле в начале кода 10 сменить на 8, ну это описка разумеется)
но, ИМХО, [11] поизяшней и главное в нём исключены лишние действия
например(при условии что не все ячейки откинулись), в Вашем алгоритме может быть случай что первая ячейка выпала, а в ней уже 10 есть, начинается цикл, если во второй тоже 10 есть опять цикл проходит ещё раз и тд, максимум 7 холостых проходов

Fedia (2004-09-30 07:41:00) [11]
Это все от нежелания работать под конец рабочего дня:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Button2: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; Tcells=record value: Word; full: Boolean; end; var Form1: TForm1; cells: array [1..8] of Tcells; procedure Start; implementation {$R *.dfm} procedure SetEditValue; begin Form1.Edit1.Text:= IntToStr(cells[1].value); Form1.Edit2.Text:= IntToStr(cells[2].value); Form1.Edit3.Text:= IntToStr(cells[3].value); Form1.Edit4.Text:= IntToStr(cells[4].value); Form1.Edit5.Text:= IntToStr(cells[5].value); Form1.Edit6.Text:= IntToStr(cells[6].value); Form1.Edit7.Text:= IntToStr(cells[7].value); Form1.Edit8.Text:= IntToStr(cells[8].value); end; procedure Start; var i: integer; begin for i:=1 to 8 do begin cells[i].value:=random(10)+1; if cells[i].value=10 then cells[i].full:=true else cells[i].full:=false; end; SetEditValue; end; procedure TForm1.Button1Click(Sender: TObject); var NCell: integer; bool: Boolean; i, n: integer; begin bool:=true; for i:=1 to 8 do if not cells[i].full then begin bool:=false; break; end; if bool then begin start; exit; end; NCell:=random(8) + 1; if cells[NCell].full then while cells[NCell].full do begin n:=random(2); //некоторый элемент случайности в изменении номера ячейки if n=0 then begin if NCell = 8 then NCell:=1 else inc(NCell); end else begin if NCell = 1 then NCell:=8 else dec(NCell); end; end; inc(cells[NCell].value); if cells[NCell].value = 10 then cells[NCell].full:=true; SetEditValue; end; procedure TForm1.FormCreate(Sender: TObject); begin Start; end; end.

Defunct (2004-09-30 04:53:00) [12]
> вообщем судя по коду нам обоим надо идти спать, хех

это верно подмечено

default (2004-09-30 04:47:00) [13]
да и я прозевал что в массиве могут быть сразу элементы с 10
вообщем судя по коду нам обоим надо идти спать, хех

default (2004-09-30 04:45:00) [14]
а я понял как в [5]
посмотрите этот алгоритм он очень прост
и потом увидите что [7] совсем не глупость
а я пошёл всё-таки спать!до вечера, там посмотрю что напишите

Defunct (2004-09-30 04:45:00) [15]
эх..

A: Array[1..8] of Integer; // ячейки index : integer; TriesCount : Integer; begin for i:=1 to 10 do A[i] := Random(9)+1; // начальные значения ячеек Repeat index := random( 7 ) + 1; TriesCount := 0; while (A[index]>=10) and (TriesCount<8) do begin inc(index); inc(TriesCount); if index>8 then index := 1; end; Inc(A[index]) until TriesCount>=8; end;

Defunct (2004-09-30 04:43:00) [16]
я понял задание так:

1. выбрать случайную ячейку.
2. увеличить ее значение до 10
3. пока не все ячейки равны 10 - GOTO 1

перечитал задание, правлю ответ [7]

A: Array[1..8] of Integer; // ячейки index : integer; TriesCount : Integer; begin for i:=1 to 10 do A[i] := Random(9)+1; // начальные значения ячеек Repeat index := random( 7 ) + 1; TriesCount := 0; while (A[index]>=10) and (TriesCount<8) do begin inc(index); if index>8 then index := 1; end; Inc(A[index]) until TriesCount>=8; end;

default (2004-09-30 04:32:00) [17]
Defunct © (30.09.04 04:26) [15]
может в условии что упустили?ячейка отправляется ввысь когда набирает 10 очков, у Вас они как мухи мрут, (при истинных знач-ях элементов массива)...

Defunct (2004-09-30 04:26:00) [18]
> поэтому в цикл не войдём и запишем False в случайную ячейку - типа она убита так и надо?!

Ну да, нам же надо удалить случайную ячейку не так ли?

Defunct (2004-09-30 04:25:00) [19]
Ошибка, да там есть:

//index := random( 10 - deleted);

index := random( 9 )+1;

default (2004-09-30 04:24:00) [20]
for i:=1 to 10 do
begin
index := random( 10 - deleted);
while Not(A[index]) do
begin
inc(index);
if index>10 then index := 1;
end;

A[index] := False; // удалить ячейку.
deleted := deleted + 1; // увеличить число удаленных ячеек
end;

давайте первый шаг посмотрим
весь массив A в True
поэтому в цикл не войдём и запишем False в случайную ячейку - типа она убита так и надо?!

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »