1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Всем доброго времени суток! Помогите с программным кодам
program loto; const n=90; var i:integer; a:array[1..n] of integer; begin randomize; for i:=1 to 85 do begin a[i]:=random(91); if a[i]<>0 then writeln(' a[',i,']=',a[i]); end; end.
Мне надо чтобы сгенерированные числа не повторялись! Как это сделать??
--------------------
Один из законов жизни гласит, что как только закрывается одна дверь, открывается другая. Но вся беда в том, что мы смотрим на запертую дверь!
for i := 1 to MAX do begin j := random(MAX-i+1)+i; // случайный элемент из i..MAX // меняем местами элементы i и j tmp := a[i]; a[i] := a[j]; a[j] := tmp; end;
(может, в ЧАВО добавить, вопрос частый)
Добавлено через 1 мин. А тебе надо сначала заполнить массив числами от 1 до MAX просто последовательно, а потом перемешать массив.
Добавлено через 1 мин. А тебе надо сначала заполнить массив числами от 1 до MAX просто последовательно, а потом перемешать массив.
Спасибо большое=) Ну это типа так...
Program loto; Const n=90; Type t=array [1..n] of integer; Var a:t; m,x,i:integer; Begin randomize; for i:=1 to 85 do a[i]:=i; for i:=1 to 85 do write(' a[',i,']=',a[i]); writeln; writeln('---------------------------------------------'); writeln; for i:=1 to n-1 do begin m:=random(n-i-1)+i+1; x:=a[i]; a[i]:=a[m]; a[m]:=x end; for i:=1 to 85 do if a[i]<>0 then write(' a[',i,']=',a[i]); End.
М.б. кому пригодиться
--------------------
Один из законов жизни гласит, что как только закрывается одна дверь, открывается другая. Но вся беда в том, что мы смотрим на запертую дверь!
Должна быть возможность поменять элемент с самим собой (ну оставить на месте). Сам подумай, чтобы при i=1, например, формула превратилась в random(MAX)+1.
А вообще я что-то понять не могу, то у тебя до 90 (в виде константы), то до 85, ты определись.
Должна быть возможность поменять элемент с самим собой (ну оставить на месте). Сам подумай, чтобы при i=1, например, формула превратилась в random(MAX)+1.
Что то я тебя не понимать=\ задача решается, все верно! Ты так хотел?
for i:=1 to 85 do a[i]:=i; for i:=1 to 85 do write(' a[',i,']=',a[i]); writeln; writeln('---------------------------------------------'); writeln; for i := 1 to 85 do begin m:= random(85-i+1)+i; X:=a[i]; a[i]:=a[m]; a[m]:=x; end; for i:=1 to 85 do if a[i]<>0 then write(' a[',i,']=',a[i]); End.
Цитата
А вообще я что-то понять не могу, то у тебя до 90 (в виде константы), то до 85, ты определись.
Это типа игра=) Ну дали задание в лотореии (в лотке) 90 шаров, из них остаются 5 или 3 шара в лотке а остальные выпадают. Короче это Лото(ты наверно знаешь что это такое=)).
Сообщение отредактировано: BanneD -
--------------------
Один из законов жизни гласит, что как только закрывается одна дверь, открывается другая. Но вся беда в том, что мы смотрим на запертую дверь!
> Что то я тебя не понимать=\ задача решается, все верно!
У тебя при i равном n-1 вызывается random(0), тебя не напрягает? Что такое random(0)? Функция, возвращающая число от 0 до -1? Жалко, что в язык не вставлена проверка аргумента для этого случая. Короче, неправильно ты алгоритм мой переписал.
Если трудно, напиши лучше так (всё по процедурам):
function Rand(a, b: integer): integer; // случ. число в a..b begin if a>b then begin WriteLn('Error, invalid argument: ',a, ' ', b); Halt; end else begin Rand := a + random(b-a+1); end; end;
procedure Swap(var a, b: integer); // обмен var tmp: integer; begin tmp := a; a := b; b := tmp; end;
procedure Shuffle(var A: array of integer; L, R: integer); // перемешивает массив, фрагмент от L до R. // Осторожно, внутри процедуры массив нумеруется с нуля, // поэтому желательно и исходный массив нумеровать с 0 // во избежание непоняток! var i: integer; begin for i := L to R do Swap(A[i], A[Rand(i, R)]); // для всех элементов меняем их с любым из тех, что за ними end;
> Что то я тебя не понимать=\ задача решается, все верно!
У тебя при i равном n-1 вызывается random(0), тебя не напрягает? Что такое random(0)? Функция, возвращающая число от 0 до -1? Жалко, что в язык не вставлена проверка аргумента для этого случая. Короче, неправильно ты алгоритм мой переписал.
Если трудно, напиши лучше так (всё по процедурам):
я то условие поставил что не выводим ноль! и он все 85 эл-ов массива мне выводит=)
if a[i]<>0 then write(' a[',i,']=',a[i]);
Не ленись проверь мой ПК=) А то что ты с процедурами написал я там нифига не понял так как мы до процедур еще не дошли Ладно не парься. Спасибо за все
Сообщение отредактировано: BanneD -
--------------------
Один из законов жизни гласит, что как только закрывается одна дверь, открывается другая. Но вся беда в том, что мы смотрим на запертую дверь!