проблема с константами

[Анпри]

Добрый день! Помогите пожалуйста разобраться, ругается на константу Tab, пишет что ожидался константный инициализатор массива. Перепробовала разные вариант, ничего не принимает. В чем дело? Может что-то упустила и не обратила внимания? Заранее благодарю за помощь!

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

program StegoChange;
type
StringType = string [$FF];
Index = (Rus, Lat);
SetOfChar = set of char;
const
TempName = '$$$$$$$$.$$$';
Max = 13;
Key1 = $1234;
Key2 = $4567;

Пожалуйста, оформляйте Ваш код согласно правилам.
Tab : array [Index, 1..22] of char = ('ВЕКМНРСТХаеосАОикпрту'#32,
'BEKMHPCTXaeocAOuknpmy'#00);

[p51x]

Index - сколько это по вашему?

[Serge_Bliznykov]

Сообщение от Анпри

В чем дело? Может что-то упустила

Упустили, что не все компиляторы паскаля (видимо) поддерживают такой синтаксис.

FreePascal взял ваш код без проблем:
fp1.png

[Анпри]

то есть?

[Аватар]

И делфи берет. Так еще можно, вставь свои 22

Tab: array [Index, 1..3] of char = (('Б','Е', #32), ('B', 'E' ,#00));

[Анпри]

Вот полный код программы, но она не компилируется. завтра уже сдавать курсовую......(((

program StegoChange;
type
      StringType = string [$FF];
      Index      = (Rus, Lat);
      SetOfChar  = set of char;
const
      TempName = '$$$$$$$$.$$$';
      Max      = 13;
      Key1     = $1234;
      Key2     = $4567;
      Tab : array [Index, 1..22] of char = ('ВЕКМНРСТХаеосАОикпрту'#32,
                                            'BEKMHPCTXaeocAOuknpmy'#00);
var
      F, G, H   : text;
      X         : StringType;
      I, J      : integer;
      K, L      : byte;
      C, CC     : char;
      LatSet    : SetOfChar;
      CharSet   : SetOfChar;
      LargeLat  : SetOfChar;
      LargeChar : SetOfChar;
      Count     : real;
begin
      LowVideo;
      if not (ParamCount in [1..3])
      then
           begin
                 WriteLn ('Ожидается от  1 до 3  параметров:');
                 WriteLn ('1 - вывод стеганограммы на экран;');
                 WriteLn ('2 - вывод стеганограммы  в  файл;');
                 WriteLn ('3 - запись стеганограммы в  файл.');
                 Exit
           end;
      Assign (F, ParamStr (1));
      Reset (F);
      Count := 0;
      MemW [Dseg : $01FE] := Key1;
      MemW [Dseg : $01FC] := Key2;
      L       := 0;
      LatSet  := [];
      CharSet := [];
      for I := 1 to Max
      do
         begin
               LatSet  := LatSet  + [Tab [Lat, I]];
               CharSet := CharSet + [Tab [Rus, I]] + [Tab [Lat, I]]
         end;
      LargeLat  := LatSet;
      LargeChar := CharSet;
      for I := Succ (Max) to 21
      do
         begin
               LargeLat  := LargeLat  + [Tab [Lat, I]];
               LargeChar := LargeChar + [Tab [Lat, I]] + [Tab [Rus, I]]
         end;
(*---------------------ВЫВОД СТЕГАНОГРАММЫ НА ЭКРАН--------------------*)
      if ParamCount = 1
      then
           begin
                 while not Eof (F)
                 do
                    begin
                          ReadLn (F, X);
                          for I := 1 to Length (X)
                          do
                             begin
                                   J := 1;
                                   C := X [I];
                                   if C in LargeChar
                                   then
                                        begin
                                              K := K shl 1;
                                              if C in LargeLat
                                              then K := K or 1;
                                              L := Succ (L) mod 8;
                                              if L = 0
                                              then Write (Chr (K))
                                        end;
                             end
                    end;
                 Close (F);
                 if WhereX <> 1
                 then WriteLn;
                 WriteLn ('Ok!');
                 Exit
           end;

[Serge_Bliznykov]

Сообщение от Анпри

Вот полный код программы, но она не компилируется. завтра уже сдавать курсовую......(((

Вы не читаете, что Вам пишут?!

Чем не компилируется? Какой у Вас компилятор Паскаля?
Вы какой средой Паскаля пользуетесь?

Сообщение от Анпри

LowVideo;

а это ещё для чего?!

[Анпри]

компилирую паскаль abc

[Serge_Bliznykov]

Сообщение от Анпри

компилирую паскаль abc

Алилуя. Наконец-то.

Теперь следующие вопросы.

1) Вы просто взяли чужой код и теперь не знаете, что с ним делать?
Для чего Вам
LowVideo;
что по вашему означает и как Вы собираетесь использовать параметры командной строки?
я про этот код:

Сообщение от Анпри

if not (ParamCount in [1..3])
then
begin
WriteLn ('Ожидается от 1 до 3 параметров:');
......
Exit
end;
Assign (F, ParamStr (1));

а дальше - больше!

объясните, для чего Вам это:

      MemW [Dseg : $01FE] := Key1;
      MemW [Dseg : $01FC] := Key2;

????!!!


2) почему просто не взять другой компилятор? Free Pascal, например, откомпилирует "ваш" код (если Вы разберетесь, для чего этот код и что он делает, конечно - см. п.1)

3) Вы в курсе, что приведённая Вами программа - не имеет окончания? Это просто начало кода.


формально на ваш вопрос ответить не сложно.

Сообщение от Анпри

Помогите пожалуйста разобраться, ругается на константу Tab, пишет что ожидался константный инициализатор массива.

а в PascalABC можно так объявить массив

program StegoChange;
type
      StringType = string [$FF];
      Index      = (Rus, Lat);
      SetOfChar  = set of char;
const
      TempName = '$$$$$$$$.$$$';
      Max      = 13;
      Key1     = $1234;
      Key2     = $4567;
      Tab : array [Index, 1..22] of char =
      (('В','Е','К','М','Н','Р','С','Т','Х','а','е','о','с','А','О','и','к','п','р','т','у',#32),
      ('B','E','K','M','H','P','C','T','X','a','e','o','c','A','O','u','k','n','p','m','y',#00));
var
      F, G, H   : text;
      X         : StringType;
      I, J      : integer;
      K, L      : byte;
      C, CC     : char;
      LatSet    : SetOfChar;
      CharSet   : SetOfChar;
      LargeLat  : SetOfChar;
      LargeChar : SetOfChar;
      Count     : real;
begin
      LatSet  := [];
      CharSet := [];
      for I := 1 to Max
      do
         begin
               LatSet  := LatSet  + [Tab [Lat, I]];
               CharSet := CharSet + [Tab [Rus, I]] + [Tab [Lat, I]]
         end;
      WriteLn('Done');
end.

впрочем, не думаю, что это Вам поможет.

[Анпри]

Это действительно не мной созданный код, я пыталась откомпилировать его и на free pascal. Я пытаюсь разобраться в работе этой программы, поэтому и прошу помощи.
Полный код находится по этой ссылке (листинг4) http://xn----7sbab5ahcba1bkm0aw8azb1...steganografiya