Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

21st
Окт

Как перемешать массив, заполненный английским алфавитом?

Posted by Chas under Delphi

или русским алфавитом

Человек_Борща

var

  mass:array['a'..'z'] of char;

  i,j,n,k:Integer;
procedure Swap(a,b:Char);

var

 c:char;

begin

 c:=a;

 b:=a;

 a:=c;

end;
begin

  n:=Length(mass); //Узнаем длинну массива

  for k:=1 to n do //Цикл по всем элементам. К.О. здесь

  begin

  Randomize;

  i:=RandomRange(1,n); //Выбираем случайный элемент А

  repeat

    Randomize;

    j:=RandomRange(1,n); //Выбираем случайный элемент Б

  until (j <> i);  //Проверяем, что эл. Б != эл. А

  Swap(mass,mass[j]);  //Меняем А и Б местами.

  end;

end;

Аватар

var

  mass:array of char;

  i,j:Integer;

  c:char;

...

  SetLength(mass,Ord('z')-Ord('a')+1);

  for i:=0 to High(mass) do mass:=Chr(Ord('a')+i);

  Randomize;

  for i:=0 to High(mass) do begin

    repeat

      j:=Random(High(mass)+1);

    until (j <> i);

    c:=mass;

    mass:=mass[j];

    mass[j]:=c;

  end;