Форум: "Потрепаться";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
ВнизПомогите плизззз решить задачу! Найти похожие ветки
← →
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]
> [16] BeHoLdeR OReN © (28.09.03 17:15)
Первой брачной ночью тоже на помощь позовешь?
← →
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! :-)
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.013 c