Дан двумерный массив, в котором содержатся латинские маленькие буквы, затем вводится предложение с клавиатуры, если из элементов м

[Richik123]

Дан двумерный массив, в котором содержатся латинские маленькие буквы, затем вводится предложение с клавиатуры, если из элементов массива можно составить предложение которое мы ввели с клавиаутры, то вывести в файле. Если можно всё закоментить

[kuy]

const n=3; //высота матрицы
      m=2; //ширина матрицы
var mas: array[1..n,1..m] of char = (('b','i'),('g',' '),('a','n')); //твой двумерный массив
    text,bool: string;
    i,j,k: integer;
    p:boolean;
begin
  text:='big ban'; //текст который тебе нужно с клавы ввести, напишеш readln(text);
  bool:='+';     //выдаст вконце - или +, если из элементов массива можно составить предложение
  for i:=1 to length(text) do //проверка каждого символа в строке
   begin
    p:=false;
    for j:=1 to n do  //сравнение символа строки с символами матрицы
     for k:=1 to m do
      if (text[i]=mas[j,k]) then  p:=true;
    if (p) and (bool='+') then bool:='+'
     else bool:='-';
   end;
write(bool); //у меня тут просто выдаёт результат + или -, а тебе нужно если +, то в файл записать, 
//мне лень просто его создавать и описывать)
readln;
end.

[Serge_Bliznykov]

во-первых, задача несложная.

а во-вторых, нужны правила составления (какие есть ограничения на использование/неиспользование символов из массива, что делать, если в предложении есть, например, пробелы, допускается ли повторное использование символов и т.д.)

наработки есть?

[SlavaSSU]

в коде kuy повторное использование допускается)

и кстати не понял, почему именно двумерный массив символов?

[kuy]

SlavaSSU, в условии не написано о повторном использовании, можно, нельзя... Усли без повторного использования, то можно так:

const n=3;
      m=2; 
var mas: array[1..n,1..m] of string = (('g','n'),('b','b'),('i','a')); 
    text,bool: string;
    i,j,k: integer;
    p:boolean;
begin
  text:='bigban'; readln(text);
  bool:='+';    
  for i:=1 to length(text) do 
   begin
    p:=false;
    for j:=1 to n do  
     begin
      for k:=1 to m do
       if (text[i]=mas[j,k]) then
        begin
         mas[j,k]:='';
         p:=true;
         break;
        end;
       if p then break;
     end;
    if (p) and (bool='+') then bool:='+'
     else bool:='-';
   end;
write(bool); 
readln;
end.

[Richik123]

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

во-первых, задача несложная.

а во-вторых, нужны правила составления (какие есть ограничения на использование/неиспользование символов из массива, что делать, если в предложении есть, например, пробелы, допускается ли повторное использование символов и т.д.)

наработки есть?

повторное допускается..наработок нет((

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

и кстати не понял, почему именно двумерный массив символов?

такой задали

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

const n=3; //высота матрицы
      m=2; //ширина матрицы
var mas: array[1..n,1..m] of char = (('b','i'),('g',' '),('a','n')); //твой двумерный массив
    text,bool: string;
    i,j,k: integer;
    p:boolean;
begin
  text:='big ban'; //текст который тебе нужно с клавы ввести, напишеш readln(text);
  bool:='+';     //выдаст вконце - или +, если из элементов массива можно составить предложение
  for i:=1 to length(text) do //проверка каждого символа в строке
   begin
    p:=false;
    for j:=1 to n do  //сравнение символа строки с символами матрицы
     for k:=1 to m do
      if (text[i]=mas[j,k]) then  p:=true;
    if (p) and (bool='+') then bool:='+'
     else bool:='-';
   end;
write(bool); //у меня тут просто выдаёт результат + или -, а тебе нужно если +, то в файл записать, 
//мне лень просто его создавать и описывать)
readln;
end.

массив побольше надо и предложение буду с клавиатуры вводить

[SlavaSSU]

var
a:array[1..256] of byte;
b:array[1..10,1..10] of char;
s:string;
n,m,i,j:integer;
begin
for i:=50 to 150 do a[i]:=0;
writeln('vvedite kolichestvo strok i stolbcov');
readln(n,m);
writeln('vvedite simvoli');
for i:=1 to n do begin
for j:=1 to m do begin read(b[i,j]); a[ord(b[i,j])]:=1; end;
readln;
end;
writeln('vvedite slovo');
readln(s); writeln('res');
for i:=1 to n do begin
for j:=1 to m do write(b[i,j],' ');
writeln;
end;
writeln('s=',s);
for i:=1 to length(s) do if a[ord(s[i])]=0 then begin writeln('NO'); exit; end;
writeln('YES');
readln;
end.

[Richik123]

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

var
a:array[1..256] of byte;
b:array[1..10,1..10] of char;
s:string;
n,m,i,j:integer;
begin
for i:=50 to 150 do a[i]:=0;
writeln('vvedite kolichestvo strok i stolbcov');
readln(n,m);
writeln('vvedite simvoli');
for i:=1 to n do begin
for j:=1 to m do begin read(b[i,j]); a[ord(b[i,j])]:=1; end;
readln;
end;
writeln('vvedite slovo');
readln(s); writeln('res');
for i:=1 to n do begin
for j:=1 to m do write(b[i,j],' ');
writeln;
end;
writeln('s=',s);
for i:=1 to length(s) do if a[ord(s[i])]=0 then begin writeln('NO'); exit; end;
writeln('YES');
readln;
end.

можно с комментариями

[SlavaSSU]

var
a:array[1..256] of byte; {массив из нулей и единиц,}
b:array[1..10,1..10] of char;{твой массив символов}
s:string;{твоя строка}
n,m,i,j:integer;
begin
for i:=50 to 150 do a[i]:=0;{сначала обнуляем все элементы массива(т.е. никакой символ еще не встречался)}
writeln('vvedite kolichestvo strok i stolbcov');
readln(n,m);
writeln('vvedite simvoli');
for i:=1 to n do begin
for j:=1 to m do begin read(b[i,j]); a[ord(b[i,j])]:=1;
{функция ord возвращает код символа, например был символ 'x' и пусть его код 77(я точно не знаю), 
тогда ord(x)=77, и элемент массива а[77] станет равным единице,
 что соответствует тому, что в твоей матрице символов есть символ,
 код которого равен 77} end;
readln;
end;
writeln('vvedite slovo');
readln(s); writeln('res');
for i:=1 to n do begin{}
for j:=1 to m do write(b[i,j],' ');
writeln;
end;
writeln('s=',s);{выводишь свою матрицу и строку}
for i:=1 to length(s) do if a[ord(s[i])]=0 then begin writeln('NO'); exit; end;
writeln('YES');
{здесь берешь сначала первый символ строки, допустим он 'p', 
опять же ord возвратит код , например, 99, и мы проверяем a[99], 
если этот элемент массива равен нулю значит его не было в твоей матрице символов, поэтому выводим 'NO', и завершаем программу, 
а если он равен 1(т.е. ты вводил этот символ в матрицу), тогда 
просто будем проверять следующий символ строки 
(for i:=1 to length(s)), дальше напишем writeln('YES');,
 если нельзя составить твою строку из символов матрицы,
 то программа аварийно завершится и до сюда не дойдет, 
если же она дошла до сюда - значит можно это сделать }
readln;
end.