Question

Нужно написать программу в паскаль, чтобы она выдавало слово(код) из 12 символов. Алфавит: ztmyvfpewjx23456789 Маска для слова: N1N1N1N1N1NN Маска кода где: N - возможны только буквы 1 - возможны только цифры

Answer 1

// PascalABC.NET

begin

 var cs := 'ztmyvfpewjx';

 var ds := '23456789';

 var s := '';

 for var i := 1 to 12 do

   if i in [1, 3, 5, 7, 9, 11, 12] then s += cs[Random(1, cs.Length)]

   else s += ds[Random(1, ds.Length)];

 s.Print

end.

Answer 2

Конечно, вот пример программы на Pascal, которая будет генерировать слово (код) из 12 символов согласно заданным условиям:

pascalCopy code
program CodeGenerator;

const
  Alphabet = 'ztmyvfpewjx';
  Numeric = '23456789';

var
  CodeMask: string = 'N1N1N1N1N1NN';
  GeneratedCode: string;
  i: Integer;

function GenerateRandomChar(const CharSet: string): Char;
begin
  Result := CharSet[Random(Length(CharSet)) + 1];
end;

begin
  Randomize;

  GeneratedCode := '';
  for i := 1 to Length(CodeMask) do
  begin
    case CodeMask[i] of
      'N': GeneratedCode := GeneratedCode + GenerateRandomChar(Alphabet);
      '1': GeneratedCode := GeneratedCode + GenerateRandomChar(Numeric);
    end;
  end;

  writeln('Generated Code: ', GeneratedCode);
end.

Программа использует генератор случайных чисел для выбора символов из указанных алфавитов. Вы можете запустить этот код в среде, поддерживающей язык Pascal, чтобы получить сгенерированный код из 12 символов согласно заданной маске.