Задача на расшифрование текста

[Pistoletka]

Проверьте код на ошибки. Не разберусь в чем проблема.
Открытый текст: ШИФРОВАНИЕ_ПЕРЕСТАНОВКОЙ.
Ключи: k1 5-3-1-2-4-6; k2 4-2-3-1.
Матрица из четырех столбцов и шести строк. Запись по строкам осуществляется в соответствии с ключом k1, а чте-
ние по столбцам – в соответствии с ключом k2
Шифртекст: "ПСНОРЙЕРВАИК_ЕАНФОИЕОТШВ".

Program rasshifr;
const n=10;
var
 text, dtext:string;
 c:char;
 key1, key2:array[1..n] of integer;
 textmatr:array[1..6,1..4] of string;
 i, j, v, len:integer;
Begin
 write('Введите текст для шифрования: ');
 read(text);
 writeln('-------------------------------------------------');
 len:=length(text);
 If len=24 then
  begin
   writeln('Введите первый ключ из 6 цифр: ');
   repeat
    v:=0;
    for i:=1 to 6 do
     begin
      read(c);
      key1[i]:=c
     end;
   for i:=1 to 5 do
    for j:=i+1 to 6 do
     if key1[i]=key1[j] then inc(v);
     if v<>0 then
      begin
       writeln ('Ошибка! Символы ключа не уникальны!');
       writeln('Введите первый ключ из 6 цифр: ');
      end
    until v=0;
    for j:=1 to 4 do
     for i:=1 to 6 do
      textmatr[i,key2[j]]:=dtext[(j-1)*6+i]; 
      text:='';
    for i:=1 to 6 do
     for j:=1 to 4 do
      text:=text+textmatr[key1[i],j];
   writeln('Расшифрованный текст:',' ',text)
  end
 else writeln('Неверно')
 End.

[evg_m]

textmatr[i,key2[j]]:=dtext[(j-1)*6+i];

А где заполнение dtext ?

 textmatr:array[1..6,1..4] of string;

в матрице заполняются не строки, а символы(отдельные буквы), поэтому лучше было бы

 textmatr:array[1..6,1..4] of char;

[Pistoletka]

key1[i]:=c

У меня в этой строке возникает ошибка: Нельзя преобразовать тип char к integer.

[Аватар]

Функция Ord

[Pistoletka]

Сообщение от Аватар

Функция Ord

Программа после ввода ключа зацикливается.

[evg_m]

Функция Ord
TC нужно именно введенное значение.
Ключи являются ЧИСЛОВЫМИ значениями. 1..6 1..4

Ключи: k1 5-3-1-2-4-6; k2 4-2-3-1.

key[i]:=strtoint(c);//val(c);???

[Serge_Bliznykov]

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

Программа после ввода ключа зацикливается.

вы исправили ошибки, про которые Вам сказали?
dtext заполняется? или Вы переписали алгоритм?
Покажите код, который получился после исправлений?
И скажите, какой у Вас Паскаль?

[evg_m]

   repeat
     writeln('Введите первый ключ из 6 цифр: ');
     readln(key1[1], key1[2], key1[3], key1[4], key1[5], key1[6]);
     v:=0;
     for i:=1 to 5 do
     for j:=i+1 to 6 do
       if key1[i]=key1[j] then inc(v);
     if v<>0 then writeln ('Ошибка! Символы ключа не уникальны!');
   until v=0;

про ReadLn
и еще раз ReadLn

[Serge_Bliznykov]

evg_m, годный код!
но я бы туда же добавил ещё проверку на то, что key[i] - это цифры.

[Pistoletka]

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

evg_m, годный код!
но я бы туда же добавил ещё проверку на то, что key[i] - это цифры.

Вот код, ошибка labrab2.pas(25) : Нельзя преобразовать тип string к array [1..6] of array [1..4] of char

Program rasshfr;
const n=10;
var
 text, dtext:string;

 key1, key2:array[1..n] of integer;
 textmatr:array[1..6,1..4] of char;
 i, j, v, len:integer;
Begin
 write('Введите текст для шифрования: ');
 read(text);
 writeln('-------------------------------------------------');
 len:=length(text);
 If len=24 then
  begin
   repeat
     writeln('Введите первый ключ из 6 цифр: ');
     readln(key1[1], key1[2], key1[3], key1[4], key1[5], key1[6]);
     v:=0;
     for i:=1 to 5 do
     for j:=i+1 to 6 do
       if key1[i]=key1[j] then inc(v);
     if v<>0 then writeln ('Ошибка! Символы ключа не уникальны!');
   until v=0;
    textmatr:=dtext;
    for j:=1 to 4 do
     for i:=1 to 6 do
      textmatr[i,key2[j]]:=dtext[(j-1)*6+i]; 
      text:='';
    for i:=1 to 6 do
     for j:=1 to 4 do
      text:=text+textmatr[key1[i],j];
   writeln('Расшифрованный текст:',' ',text)
  end
 else writeln('Неверно')
 End.