вопрос по МАССИВАМ СИМВОЛОВ(Pascal)

[-ushёl-]

Подскажите как можно создать многомерный массив из символов,например из букв F,G,K,L,N

var 
M:array[1..10,1..10]of char;
begin
for i:=1 to 10 do
for j:=1 to 10 do
M[i,j]:=chr(random(70,71,75,76,78));{??????????????}

[Sazary]

M[i,j] := chr(random(9)+70);

- буквы с кодами от 70 до 78
Если нужно из конкретных букв, то нужно добавить проверку является ли буква допустимой, и если нет, то пересчитывать значение для текущего элемента.

[-ushёl-]

а как добавить проверку?
т.е. нужно ещё один цикл нужен с другой уже шаговой переменной добавлять или как?

[Sazary]

а как добавить проверку?

Можно нужные буквы запихнуть во множество. Тогда нужно просто проверять, входит ли сгенерированная буква в множество. И если нет, то генерировать заново.

[-ushёl-]

примерно так:

type
 simvol=set of char;
var
 b:simvol;
 M:array[1..10,1..10]of char;
begin
 b:=[F,G,K,L,N]

подскажи как дальше поступить?

[Sazary]

-ushёl-, для кода используйте тег CODE.

type
simvol=set of char;
var
b:simvol;
M:array[1..10,1..10]of char;
i,j : integer;
begin
randomize;
b:=['F','G','K','L','N'];
for i:=1 to 10 do
 for j:=1 to 10 do
  begin
  repeat
  M[i,j] := chr(random(9)+70);
  until M[i,j] in b;
  end;

[-ushёl-]

спасибо!!!!!!вывод вот доблю еще

for i:=1 to 10 do
   begin
    writeln;
    for j:=1 to 10 do
     write(M[i,j]:4);
   end;
  end.

ВСЕХ БЛАГ!

From Stilet: Тебе ж сказали - код оформляй тегом!