Двумерный массив (Pascal)

[loctar]

как бы это сказать... я уча философию, черчу работу по инженерной графике, и стараюсь найти код... еще штуки 3-4 проги надо написать =((((, потому что гребаные кретины решили что зачетная неделя в 4-е дня это нормально, изучение языка сюда как бы некуда вклеить, уж извини ) а за пример спасибо, постараюсь разобраться

кстати... с твоего же кода это я и перелепил в паскаль )) http://www.programmersforum.ru/showthread.php?t=184411

[Stilet]

а что вас смущает?

Вот что:

Двумерный массив МxN содержит некоторые буквы русского алфавита

Дай ка я тебе своей настойкой угощу:

const
  words='fdjaskdcvwqyetwqero';
var s:string;i:integer;
begin
  readln(s);
  for i:=1 to Length(s) do begin
    if pos(s[i],words)=0 then begin
      writeln('nea'); readln; halt;
    end;
  end;
  writeln('aga'); readln;
end.

Правда тут не русский, но то не важно.
Поэтому я и спрашиваю - ахинею с массивом придумал кто?

[loctar]

прям то что нужно. безмерно благодарен )

[Serge_Bliznykov]

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

кстати... с твоего же кода это я и перелепил в паскаль )) http://www.programmersforum.ru/showthread.php?t=184411

ну вот, так в этой же теме код:

Procedure VVod(out a:mas);
 Var i,j:integer;
 begin
 For i:=1 to n do
 for j := 1 to m do
 begin
 Write('A[',i,',',j,']='); readln(A[i,j])
 end;
 end;
.....
Var a:mas; s:string;
 begin
 Vvod(a);
 Write(Kod('Введите слово, которое будем проверять : '));
 Readln(s);
 Proverka(a,s);
 readln;
 end.

не пытались понять, что это за процедура VVOD и для чего она нужна?!


Stilet, а чем массив из чаров плох? Нормальная задача, ничем не лучше и не хуже сотен подобных задач с поиском мин/макса и подсчётом суммы строк
Кстати, Ваш код будет работать не совсем корректно.

Подразумевается, что символ из массива можно использовать только единожды (ну, как кубик из азбуки).
поэтому, если матрица
А М
Б В

то слово МАМА из этих символов составить нельзя!

[Stilet]

а чем массив из чаров плох?

Двумерный?
Или я чего-то не понимаю или это из серии "Купи мне Liebherr T 282B мне не на чем в школу ездить за квартал"

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

Ну это мелочи. Это можно поправить процедурой delete() для words сделав ее переменкой.