Напишите программу по выдаче рандомной композиции букв, подходящую последующим
Напишите программу по выдаче рандомной композиции букв, подходящую последующим требованиям:
- Результат должен состоять из 8 символов (букв)
- За буквой A могут стоять только буквы D, E, G, I, J
За буквой B только E, F, H, J, K
За буквой C только F, G, I, K, L
За буковкой D только A, G, H, J, L
За буковкой E только A, B, H, I, K
За буковкой F только B, C, I, J, L
За буквой G только A, C, D, J, K
За буковкой H только B, D, E, K, L
За буковкой I только A, C, E, F, L
За буковкой J только A, B, D, F, G
За буквой K только B, C, E, G, H
За буковкой L только C, D, F, H, I
Английские обозначения букв по желанию можно поменять на российские аналоги (A=А, B=Б, C=В, D=Г, E=Д, F=Е, G=Ж, H=З, I=И, J=К, K=Л, L=М)
const ar:array['A'..'L'] of string[5]=
('DEGIJ','EFHJK','FGIKL','AGHJL','ABHIK','BCIJL',
'ACDJK','BDEKL','ACEFL','ABDFG','BCEGH','CDFHI');
var s:string; c: char; i:integer;
begin
randomize;
s:=chr(random(13)+65);
for i:=2 to 8 do
begin
repeat
c:=chr(random(13)+65);
until pos(c,ar[s[i-1]])gt;0;
s:=s+c;
end;
writeln(s);
end.
Пример:
KCFJBKGA
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.