Помогите плизззз решить задачу!

← →
BeHoLdeR OReN (2003-09-28 13:23) [0]

задано Х человек и число У. Начиная с первого человека, отсчитывается по кругу У человек; тот, на котором остановились выбывает и.т.д ; пока не останется 1 чел. Составить программу которая по заданным Х и У выдает № оставшегося человека.

← →
Asteroid (2003-09-28 13:28) [1]

Ты уже описал алгоритм.

← →
BeHoLdeR OReN (2003-09-28 13:38) [2]

как его можно реализовать?

← →
pasha_golub (2003-09-28 13:41) [3]

1. Кольцом, то есть списком у которого конец указывает на голову
2. X mod Y + голова

← →
BeHoLdeR OReN (2003-09-28 13:55) [4]

напишите хотябы толькоосновную часть пожолуйста

← →
Palladin (2003-09-28 14:00) [5]

ну не... за высшее образование принципиально ничего не напишу...

← →
pasha_golub (2003-09-28 14:02) [6]

Type
TData = нужный тебе тип данных
Pelem = ^TElem;
TElem = record
Data: TData;
Next: PElem;
end;

Такую конструкцию видел/знаешь?

← →
pasha_golub (2003-09-28 14:03) [7]

2Palladin
А я и не заметил, согласен тут таким не шутят. еще один значек :-)

← →
BeHoLdeR OReN (2003-09-28 14:04) [8]

спасибо , а насчет образования я просто не заметил

← →
BeHoLdeR OReN (2003-09-28 14:34) [9]

не компилится прога видно что-то нетак

← →
Думкин (2003-09-28 14:36) [10]

Хммм. Интересно что? Вот ведь незадача.

← →
BeHoLdeR OReN (2003-09-28 14:43) [11]

Пожалуйста кому не сложно приведите полный код проги

← →
pasha_golub (2003-09-28 16:14) [12]

Не, извини, в твоем случае эту задачу не решить, а если даже принесешь преподу решенную, тебе ее завернут в два счета. Учитесь, батенька.

← →
Palladin (2003-09-28 16:20) [13]

> pasha_golub © (28.09.03 14:03) [7]

это типа чего, у меня их уже три получается? :)

← →
Mihey (2003-09-28 16:44) [14]

Моё решение (опробовал на двух значениях, вроде работает):

procedure TForm1.Button1Click(Sender: TObject);
var x, y: Integer;
n: array of Integer;
s, i, m: Integer;
begin
x := StrToInt(Edit1.Text);
y := StrToInt(Edit2.Text);
SetLength(n, x);
For i := 0 to x-1 do
begin
n[i] := i;
end;
s := 0;
For i := 0 to x-2 do
begin
s := s + y-1;
If (s) > (High(n)) then s := s-High(n)-1;
n[s] := 0;
For m := (s) to (High(n)-1) do
n[m] := n[m+1];
SetLength(n, (High(n)));
end;
Label1.Caption := IntToStr(n[0]+1);
end;

← →
BeHoLdeR OReN (2003-09-28 16:50) [15]

да ладно вам жалко что-ли помогите человеку , а то пары не миновать!

← →
BeHoLdeR OReN (2003-09-28 17:15) [16]

Большое спасибо!!!!!!!!!!!!!!!!!!!!!!!

← →
Думкин (2003-09-28 17:42) [17]

← →
Mihey (2003-09-28 17:58) [18]

2 Думкин:
> Первой брачной ночью тоже на помощь позовешь?
И опять приду я...

← →
pasha_golub (2003-09-28 19:02) [19]

2Mihey
нет уж погоди, прийду я и скажу Не, извини, в твоем случае эту задачу не решить, а если даже принесешь преподу решенную, тебе ее завернут в два счета. Учитесь, батенька.

← →
pasha_golub (2003-09-28 19:05) [20]

2Palladin
Yes, sir! :-)

Помогите плизззз решить задачу! Найти похожие ветки