Случайные буквы

[StudentMarat]

Как сделать так, чтоб на экран выводились случайно три латинских буквы.

[StudentMarat]

Совсем забыл. Язык программирования Delphi

[JUDAS]

function RandomChar():char;
begin
  result:=chr(random(ord('Z')-ord('A'))+ord('A'));
  if random(10)>5 then
  result:= chr(ord(result)-(ord('A')-ord('a')));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  randomize();
  Label1.Caption := RandomChar+RandomChar+RandomChar;
end;

[StudentMarat]

Сообщение от JUDAS

function RandomChar():char;
begin
  result:=chr(random(ord('Z')-ord('A'))+ord('A'));
  if random(10)>5 then
  result:= chr(ord(result)-(ord('A')-ord('a')));
end;

Если не трудно можешь объяснить, что делает эта функция, и что значит условие if random(10)>5

[JUDAS]

генерирует случайную буковку
ну смотри пошагово?
---
begin
result:=chr(random(ord('Z')-ord('A'))+ord('A')); - строка 1:
результат = символ с номером [ случайное число ( код(Z)-код(A) ) + код(A)]
код (...) - числовой код символа в таблице кодов
агнлийский буквы идут подряд в любой известной мне кодироке, посему если код А = 1 то код Z = номеру в алфавите = 24.
Строчка гененриует случайное число от 0 до числа букв алфавита, к этому числу добавляется код буквы А (например 48) и получается чимсловой, реальный код символа, который преобразовывается в символ через CHR.
if random(10)>5 then // строка 2
генерируем случайное число от 0 до 10. Для чего ? Ответ: дело в том, что ты указал что должны генерироватся буквы алфавита без регистра, то есть и большие и маленький (в симбиозе). Посему, я генерирую после буквы случайное число и проверяю его на попадание после 5. Получается фифти/фифти (50 на 50) что число будет больше 5 и меньше пяти для каждого символа.
Если сгененрировано случаное число более 5, значит уменшим букву:
result:= chr(ord(result)-abs(ord('A')-ord('a')));
уменшаем букву так же ка ки формируем.
допустим что код А (как я писал выше см. красную ццыфру) начинается с 48, то код мелкой бувы А, будет начинатся например с 100 получается
- находим разницу между кодом а малой и А большой 48-100 = -52
- в не зависимости от того что больше и что меньше смещение отнимаю от сгенерированной буквы.
Получается что этим я изменяю код большой буквы на смещение от набора больших букв к набору мелких букв.
код - -52 = код + 52 => код мелкой буквы
- преобразовываю код, обратно в букву.
end;

[Serge_Bliznykov]

if random(10)>5 then генерируем случайное число от 0 до 10.

от нуля до 9.
0,1,2,3,4,5 - будет прописная (большая) буква
6 7 8 9 - будет строчная (маленькая).
явно не одинаковая вероятность выпадения больших и маленьких букв... )
тогда уж if random(2)=0 then ....

а по мне, так ещё лучше, одной строчкой обойтись - без ORD и CHR

function RandomChar:char;
const
  sLetter :   string
      = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
begin
  result:= sLetter[ Random(Length(sLetter))+1 ];
end;

и при необходимости туда легко добавить нужные символы (ну, например, цифры, или знак подчёркивания или вообще всё, что потребуется! Хоть кирилицу...)

[JUDAS]

Сергей, мелочи про вероятность не важны. По поводу Вашего варианта, решение оригинальное, но думаю в таком виде не стоит его оформлять в виде функции:

const
  sLetter :   string
      = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';

procedure TForm1.Button1Click(Sender: TObject);
var i,len : integer;
begin
  randomize();
  len := Length(sLetter);
  Label1.Caption:='';
  for i:=1 to 3 do
  Label1.Caption := Label1.Caption+sLetter[Random(len)+1];
end;