Отправлено: 20.03.09 15:53. Заголовок: Random в Turbo Pascal

Здравствуйте ! Столкнулся с такой сложностью:
Нужно заполнить массив Полностью Случайными Числами...
Чтобы они не повторялись...
Увеличить размер Random-а бесполезно - всё равно есть шанс, что выпадет
одинаковые значения.

 Отправлено: 20.03.09 16:11. Заголовок: а если что-то типа &..

а если что-то типа "Random()*Random()" ? (т.е. берешь 2 [или более] подряд значения функции и как-то наподобие комбинируешь)

 Отправлено: 20.03.09 16:23. Заголовок: Спасибо за идею... А..

Спасибо за идею...
А как можно поменять количество элементов в массиве в коде программы?
Ну чтобы сам задавал их число при выполнении...

Добавлено 20 минут спустя:
Мдаа...
Вот что значит много свободного времени
Получилась так сказать эпическая программа:

Скрытый текст

Оффтоп: program minmax; {Задание: Переставить минимальное и максимальное число в случайном массиве...} uses crt; var a:array[1..25] of Integer; var i,c,c_min,c_max,n_min,n_max: Integer; var rMin,rMax: Integer; {Мин. и макс. числа в массиве} begin randomize; clrscr; Writeln('Пожалуйста введите минимальное число в массиве'); readln(rMin); Writeln('Спасибо. А теперь пожалуйста введите максимальное число в массиве'); readln(rMax); writeln('В массиве будут числа, в интервале от ',rMin,' до ',rMax,'. :D:D:D'); writeln; writeln; {Можно было обойтись и без этого, но так проще} writeln; {Это сделано для отступа} c_min:=rMax; {От максимального числа в массиве, к минимуму} {Добовляем для погрешности random-а} rMin:=rMin+5; {Цикл заполнения массива} for i:=1 to 25 do begin a:=rMin+random(rMax); a:=a-5+random(5); write(a,' '); end; {==Цикл нахождение минимального и максимального числа==} for i:=1 to 25 do begin {Находим максимум и его номер в массиве } if a>c_max then begin c_max:=a; n_max:=i; end; {Находим максимум и его номер в массиве } if a<c_min then begin c_min:=a; n_min:=i; end; end; {} writeln; writeln('Max.num:',n_max,' Min.nim:',n_min); writeln('Maximum:',c_max,' Minimum:',c_min); {} c:=a[n_max]; a[n_max]:=a[n_min]; a[n_min]:=c; {} for i:=1 to 25 do begin write(a,' '); end; readln; end. program fuck; uses crt; var a:array[1..10] of Integer; var i,c,c_min,c_max,n_min,n_max: Integer; var rMin,rMax: Integer; {Мин. и макс. числа в массиве} begin randomize; clrscr; Writeln('Пожалуйста введите минимальное число в массиве'); readln(rMin); Writeln('Спасибо. А теперь пожалуйста введите максимальное число в массиве'); readln(rMax); writeln('В массиве будут числа, в интервале от ',rMin,' до ',rMax,'. :D:D:D'); writeln; writeln; {Можно было обойтись и без этого, но так проще} writeln; {Это сделано для отступа} c_min:=rMax; {От максимального числа в массиве, к минимуму} {Цикл заполнения массива} for i:=1 to 10 do begin a:=rMin+random(rMax); write(a,' '); end; {==Цикл нахождение минимального и максимального числа==} for i:=1 to 25 do begin {Находим максимум и его номер в массиве } if a>c_max then begin c_max:=a; n_max:=i; end; {Находим максимум и его номер в массиве } if a<c_min then begin c_min:=a; n_min:=i; end; end; {} writeln; writeln('Max.num:',n_max,' Min.nim:',n_min); writeln('Maximum:',c_max,' Minimum:',c_min); {} c:=a[n_max]; a[n_max]:=a[n_min]; a[n_min]:=c; {} for i:=1 to 25 do begin write(a,' '); end; readln; end.

 Отправлено: 23.03.09 01:38. Заголовок: SkyNET пишет: А как..

SkyNET пишет:

цитата:

А как можно поменять количество элементов в массиве в коде программы?

Ну, "по-клипперовски" (там запросто "динамические" массивы делаются) это типа:

private a:={1, 3, 5, 6, 2} 
  
 // увеличиваем длину массива (добавляем в конец элемент со значением Nil) 
 asize(a, len(a)+1) 
 // вставляем новый элемент на 3-ю позицию в массиве (его значение Nil), 
 // все, начиная c 3-го, сдвигаются к концу, 3-й эл-т = Nil 
 ains(a, 3) 
 // присваиваем 3-му эл-ту значение 
 a[3]:=35 
 // в итоге имеем: 
 // a:={1, 3, 35, 5, 6, 2} 
 

И все дела!

цитата:

Вот что значит много свободного времени

Даа... Прям Достоевский какой-то :))

 Отправлено: 24.03.09 18:42. Заголовок: SkyNET пишет: А как..

SkyNET пишет:

цитата:

А как можно поменять количество элементов в массиве в коде программы? Ну чтобы сам задавал их число при выполнении...

Студент? И это домашнее задание? Я почему спрашиваю - странно было бы в другом случае использовать Turbo Pascal. Последняя версия ведь была аж в 1992 году. Дальше Delphi.

И, насколько я помню, динамические массивы появились именно в Delphi. В Turbo их, кажется, не было. А если так, то нужно использовать указатели, то есть, реализовать эти динамические массивы самостоятельно. В этом ничего сложного нет, и в этом, наверное, суть задачи - научиться именно настоящему, живому программированию, которого, кстати, в Клипперах/Харбурах нет.

По задаче: Пишите маленикий наборчик функций типа: InitArray, FreeArray, GetElem и так далее, какие нужны будут. И вместо статического массива используете указатель. Черезвычайно полезное упражнение