Строку переместить в двумерный массив - Pascal ABC

Формулировка задачи:

Ребят, помогите строку klm поместить в двумерный массив с[i,j]. В коде указано, где нужно это сделать.
const
n=6;
m=6;
var i,j,i1,j1,i2,j2,i3,j3,i4,j4,l,t,k,l1,l2,e,r,y:integer;
s,s1,kl:string;
klm: string[36];
c1,c2,pr,el:char;
c:array[1..n,1..m] of char;
q,w:byte;
alf: string;
begin
alf := 'абвгдежзийклмнопрстуфхцчшщъыьэюя.,-_';
 writeln('Введите ключ');
 readln(kl);
 
  q:=1;                      //убирает из ключа повторяющиеся символы
  while q<length(kl) do
  if kl[q]<>' ' then
  begin
  for w:=length(kl) downto q+1 do
  if kl[w]=kl[q] then delete(kl,w,1);
  q:=q+1;
  end
  else q:=q+1;
 
 l1:=Length(alf);           // удаляет из строки alf символы ключа
 l2:=Length(kl);
   for e:=1 to l2 do
     for r:=1 to l1 do
     if alf[r]=kl[e] then
     Delete(alf,r,1);
 
klm:= kl + alf;
Writeln(klm);
 
 
 
//y:=1;
// for i:=1 to n do
// for j:=1 to m do               //здесь нужно строку поместить в двемурный массив
 //  c[i,j]:=klm[y];
//y:=y+1;
 
 writeln('Введите текст');
 readln(s);
 for i:=1 to n do
   begin                 //рисуем записанную матрицу
   for j:=1 to m do
   write(c[i,j]:4);
   writeln;
   end;
 l:=length(s);
   begin
   k:=1;
   while k<l do begin
   c1:=s[k]; c2:=s[k+1];    //присвоение первого и второго элемента строки символам
   for i:=1 to n do begin
   for j:=1 to m do begin
   if c1=c[i,j] then begin      //нахождение позиции
                     i1:=i;
                     j1:=j;
                     end;
   if c2=c[i,j] then begin
                     i2:=i;
                     j2:=j;
                     end;
          end;
end;
 if i1=i2 then begin                //шифрование символов в одинаковом столбце
               pr:=c[i1,1];
                 for t:=1 to m-1 do
                 c[i1,t]:=c[i1,t+1];
                 c[i1,m]:=pr;
                 s1:=s1+c[i1,j1]+c[i2,j2];
               end
 else
 if j1=j2 then begin                //шифрование символов в одинаковой строке
               pr:=c[1,j1];
               for t:=1 to n-1 do
                 c[t,j1]:=c[t+1,j1];
                 c[n,j1]:=pr;
                 s1:=s1+c[i1,j1]+c[i2,j2];
               end
 else begin                  //шифрование символов находящихся в разных столбцах и стоках
      i3:=i2;
      j3:=j1;
      i4:=i1;
      j4:=j2;
      s1:=s1+c[i3,j3]+c[i4,j4];
      end;
 inc(k,2);  //процедура увеличения числа на k на 2
 end;
writeln(s1);
end;
end.


textual

Код к задаче: «Строку переместить в двумерный массив - Pascal ABC»

const n=6;
var klm:string[36];
    c:array[1..n,1..n] of char;
    i,j,row,col:byte;
begin
klm:='абвгдежзийклмнопрстуфхцчшщъыьэюя.,-_';
for i:=1 to n*n do
 begin
  row:=(i-1)div n+1;{вычислим номер строки и столбца}
  col:=(i-1)mod n+1;
  c[row,col]:=klm[i];{запишем символ в матрицу}
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(c[i,j]:2);
  writeln
 end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.000 из 5

Источник
Похожие ответы