ошибка incomparable types

[T.e.m.p.l.a.R]

if (not ( lu.y<i<rd.y and lu.x<j<rd.x ))and (ar[i,j]<>GetPixel(GetDC(0),j,i) then

в этой строке ошибка incomparable types

Типы переменных:

lu,rd:TPoint;
i,j:Integer;
ar:array [0..2000,0..2000] of Longint;

помогите исправить ошибку

[Merkator]

Pascal/Delphi не поддерживает двойных сравнений.
У Вас получается ситуация при которой сравнивается boolean и integer (или что там у вас). А это действительно не сравниваемые величины.

[Serge_Bliznykov]

Merkator +1

плюс скобки надо ОБЯЗАТЕЛЬНО ставить между логическими операциями:

if (not ( (lu.y<i) and (i<rd.y) and (lu.x<j) and (j<rd.x) ))
                        and (ar[i,j]<>GetPixel(GetDC(0),j,i)) then

[T.e.m.p.l.a.R]

большое спасибо

[hunteee]

Добрый день! Следующая проблема несовместимости типов.

procedure TForm1.Button1Click(Sender: TObject);


var P,Q,a,b,x,k,y,l,i:integer;
    S,D,M: string;
    
    W:array [1..36] of string;

begin
//записываем алфавит в массив
  W[1]:='À';W[2]:='Á';W[3]:=#13;W[4]:='Ì';W[5]:='Ã';W[6]:='Ò';
  W[7]:='Å';W[8]:='Ð';W[9]:='Ç';W[10]:='È';W[11]:='É';W[12]:='Ê';
  W[13]:='Ë';W[14]:='Â';W[15]:='Í';W[16]:='Î';W[17]:='Ï';W[18]:='Æ';
  W[19]:='Ñ';W[20]:='Ä';W[21]:='Ó';W[22]:='Ô';W[23]:='Õ';W[24]:='Ö';
  W[25]:='×';W[26]:='Ø';W[27]:='-';W[28]:='Ù';W[29]:='Ú';W[30]:='Û';
  W[31]:='Ü';W[32]:=',';W[33]:='Ý';W[34]:='Þ';W[34]:='ß';W[35]:=' ';
  W[36]:='!';

  S := Edit1.Text;
  l := length(S);
  y := exp(x*ln(Q)) mod P;
  a := exp(k*ln(Q)) mod P;
//сопоставляем каждый символ сообщения с алфавитом
  for i := 0 to l  do
  begin
  M := pos(S[i],W);
//рассчитываем b
  b := M - exp(k*ln(y)) mod P;
  D := D + inttostr(b);

  end;

  P := strtoint(Edit2.Text);
  Q := strtoint(Edit3.Text);
  Edit4.Text := inttostr(a);
  Edit5.Text := inttostr(b);

end;
end.

На линии M := pos(S[i],W); выдает ошибку несовместимости типов, т.к. M,S,W это string, а i из for это integer. Что делать?

[vovk]

M := inttostr(pos(S[i],W));

Только проблема не в i, а в том что pos возвращает индекс вхождения подстроки в строку.

и дальше

b := strtoint(M) - y;

Оформляете код тегом пожалуйста (решетка над окном редактора)

Кстати напишите в коде комментарий, а то я не понял, что и где вы хотите сделать

+

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

pos() возвращает значение integer а ты присваешь его переменной типа String это раз
(S[i],W) W должно быть string а у тебя array [1..36] of string тоже не проканает

О точно ещё и W.

[Mad_Cat]

pos() возвращает значение integer а ты присваешь его переменной типа String это раз
(S[i],W) W должно быть string а у тебя array [1..36] of string тоже не проканает

[vovk]

Может W надо обьявить как

w:array of char [1..36]

?

[hunteee]

Программа представляет собой реализацию алгоритма шифрования Эль-Гамаля. Суть заключается в том, что в Edit1.Text мы должны вводить сообщение, а в другие эдиты некоторые значения. Все дано по условию. Существует алфавит, где каждая буква алфавита имеет свое значение. Программа должна проверять символы сообщения введенные и сопоставлять их со значениями в объявленном алфавите, затем закладываться в некоторые формулы алгоритма и полученное сообщение должно выводиться в другой эдит.

[hunteee]

Немного изменил код. Появилась ошибка в функции. [Error] Unit1.pas(47): Incompatible types: 'Integer' and 'Extended'

var
  Form1: TForm1;
  var P,Q,a,b,x,k,y,l,M:integer;
    S,D: string;
    i:byte;
    W:array [1..36] of char;

implementation

{$R *.dfm}
Function exp (M,x,k,P:integer):integer;
begin
 b := M - exp(k*ln(y)) mod P;
 end;
procedure TForm1.Button1Click(Sender: TObject);

begin
  W[1]:='À';W[2]:='Á';W[3]:=#13;W[4]:='Ì';W[5]:='Ã';W[6]:='Ò';
  W[7]:='Å';W[8]:='Ð';W[9]:='Ç';W[10]:='È';W[11]:='É';W[12]:='Ê';
  W[13]:='Ë';W[14]:='Â';W[15]:='Í';W[16]:='Î';W[17]:='Ï';W[18]:='Æ';
  W[19]:='Ñ';W[20]:='Ä';W[21]:='Ó';W[22]:='Ô';W[23]:='Õ';W[24]:='Ö';
  W[25]:='×';W[26]:='Ø';W[27]:='-';W[28]:='Ù';W[29]:='Ú';W[30]:='Û';
  W[31]:='Ü';W[32]:=',';W[33]:='Ý';W[34]:='Þ';W[34]:='ß';W[35]:=' ';
  W[36]:='!';
  S := Edit1.Text;
  l := length(S);
  y := exp(x*ln(Q)) mod P;
  a := exp(k*ln(Q)) mod P;
  for i := 0 to l  do
  begin
  M := pos(S[i],W);
  b:= exp(M,x,k,P:integer);

  D := D + inttostr(b);

  end;

  P := strtoint(Edit2.Text);
  Q := strtoint(Edit3.Text);
  Edit4.Text := inttostr(a);
  Edit5.Text := inttostr(b);

end;
end.