Сравнение в паскаль

[Asicks]

не понимаю как сделать так чтобы после разложения слова на буквы введенного пользователем ,сравнить их с данными массива, на наличие таких же букв. хотяб намек подкиньте плиз а то я уже сгорю скоро((Зачетное задание надежды уже нет
program Zachet;
uses crt;
var a:array[1..4,1..4] of string[20];
n,y:string;
i,j,u:integer;
begin
clrscr;
writeln('Введите слово!');
readln(n);
writeln('"",n,""');
writeln(' length = ', length(n));
writeln('Введите буквы!');
for i:=1 to 4 do
for j:=1 to 4 do begin
writeln('Введите значения элементов ',i,' ',j);
readln(a[i,j]);
end;
for i:=1 to 4 do begin
writeln;
for j:=1 to 4 do
write(a[i,j]:5);
end;
u:=length(n);
for u:=1 to length(n) do begin
writeln;
writeln(copy(n,u,1));
end;
readkey;
end.
То что отображено, разбивает слово на буквы но не сравнивает их с массивом...
Вот само задание:
Пользователь вводит слово, после этого пользователь заполняет двумерный массив, разнообразными символами. Программа должна определить можно ли из символов входящих в массив составить введенное слово.
Хелп ми плииииииизззззз!!!!!!!

[Serge_Bliznykov]

а повторное использование букв из массива допускается?
например, если в массиве есть одна буква М и одна А - слово МАМА можно составить или нет?

[Asicks]

Неа повторное использование букв не допускается Спасибо что отозвался)))

[Asicks]

я уже как неделю над этим заданием сижу(

[Serge_Bliznykov]

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

ну, дык, и в чём проблема то?.. способов решения уйма...
например,
поиск нужной буквы, если нашли, берём её и записываем на её место пробел (или любой неиспользуемый символ, например, #0).
выполняем цикл для всех буковок слова.
всё. задача решена.

код самостоятельно сделаешь? или помочь?

p.s. а если надо введённый массив символов использовать многократно, то самый простой способ - завести временную матрицу для поиска и отметок (стирания) тех буковок, которые нашли, и копировать исходную матрицу во временную перед циклом проверки...

[Asicks]

Спасииибо)))) Сначало сам попробую))))

[Serge_Bliznykov]

Так что - код подкинуть?
Или опубликуешь то, что сделано?

[Asicks]

кооооод)))) плиииз))) позориться не хочу х)

[IT-man]

а может проще тут множества юзать?

[Serge_Bliznykov]

ладно. вот рабочий код:

program Zachet;
uses crt;
var a: array[1..4, 1..4] of string[1];
  s : string;
  i, j, k: integer;
  isFound : boolean;
begin
  clrscr;
  writeln('Введите слово!');
  readln(s);
  writeln('"',s,'"', ' length = ', length(s));
  writeln('Введите буквы!');
  for i := 1 to 4 do
    for j := 1 to 4 do begin
      write('Введите значения элементов ', i, ' ', j, ' ');
      readln(a[i, j]);
    end;
  writeln;
  for i := 1 to 4 do begin
    for j := 1 to 4 do
      write(a[i, j]: 3);
    writeln;
  end;

  k := 1;
  isFound := true;
  while (k<= length(s)) and (isFound) do begin
    { поиск буковки s[k] в массиве}
    isFound := false;
    i := 1;
    while (i<=4) and (Not isFound) do
    begin
       j := 1;
       while (j<=4) and (Not isFound) do begin
         if a[i,j] = s[k] then
         {нашли букву в массиве}
         begin
            a[i,j] := #0;
            isFound := true;
         end;
         inc(j);
       end;
       inc(i);
    end;
    inc(k);
  end;
  if isFound
    then WriteLn('Можно составить слово')
    else WriteLn('Нет, слово составить нельзя.');
  readkey;
end.

p.s. код проверки РЕГИСТРОЗАВИСИМ (т.е. если вбили слово аССа - то в массиве должны быть строчные буковки а и две прописные буквы С
это можно изменить - если в сравнении букв приводить их к одному регистру (либо верхнему (строчные буквы), либо к нижнему (прописные буквы))