Ошибка компиляции: error: assignment between incompatible sets - Free Pascal

Узнай цену своей работы

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

Кто-нибудь знает как исправить эту ошибку? ps2\sr.pas:13: error: assignment between incompatible sets
PROGRAM Sr(INPUT, OUTPUT);
Type
  EnLetters = SET OF 'A'..'z';
  RuLetters = SET OF 'A'..'я';
VAR
  Ch: CHAR;
  EnAccSymb: EnLetters;
  RuAccSymb: RuLetters;
  Is_Carry: BOOLEAN;
BEGIN
  EnAccSymb := ['A'..'z'];
  RuAccSymb := ['A', 'а', 'Е', 'е', 'И', 'и', 'О', 'о', 'У', 'у', 'ы','Э', 'э', 'Ю', 'ю', 'Я', 'я', 'Ё', 'ё', 'Б'..'Д', 'б'..'д', 'Ж', 'ж', 'З', 'з', 'К'..'Н', 'к'..'н', 'П'..'Т', 'п'..'т', 'Ф'..'Щ', 'ф'..'щ', 'ь', 'ъ'];
  Is_Carry := FALSE;
  WHILE NOT EOLN
  DO
    BEGIN
      READ(Ch);
      IF (Ch IN EnAccSymb) OR (Ch IN RuAccSymb)
      THEN
        WRITELN(Ch, ' is in AccSymb')
      ELSE
        WRITELN(Ch, ' is not in AccSymb')     
    END             
END.

Решение задачи: «Ошибка компиляции: error: assignment between incompatible sets»

textual
Листинг программы
>fpc a
Free Pascal Compiler version 2.6.4 [2014/03/06] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling a.pas
a.pas(9,3) Note: Local variable "Is_Carry" is assigned but never used
Linking a.exe
26 lines compiled, 0.2 sec , 26512 bytes code, 1740 bytes data

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.571 из 5
Похожие ответы