Ошибка неверная вещественная операция паскаль - Не ошибается лишь тот, кто ничего не делает!

program Oblik;
 
 
const path='d:/14/litvin/';
 
type Tcorp=record
       name:string[20];
       dohid:Real;
       vutratu:Real;
       prubytok:Real;
     end;
     TidName=record
       id:Integer;
       val:string[20];
     end;
     TidDP=record
       id:Integer;
       val:Real;end;
 
 
 
var key:Char;
    NumDel:Integer;
    base: file of Tcorp;
    FileIdName: file of TidName;
    FileIdDP: file of TidDP;
 
 
Procedure CreateId;
var n,i,j: integer;
    ArrName: array[0..255] of TidName;
    ArrDohid: array[0..255] of TidDP;
    ArrPrubytok: array[0..255] of TidDP;
    TempRec:Tcorp;
    TempIdN:TidName;
    TempIdDP:TidDP;
begin
Assign(base,path+'base.dat');
 if FileExists(path+'base.dat')
  then Reset(base)
  else Rewrite(base);
 n:=filesize(base);
 for i:=0 to n-1 do
  begin
   read(base,TempRec);
   ArrName[i].id:=i;
   ArrName[i].val:=TempRec.name;
   ArrDohid[i].id:=i;
   ArrDohid[i].val:=TempRec.dohid;
   ArrPrubytok[i].id:=i;
   ArrPrubytok[i].val:=TempRec.dohid-TempRec.vutratu;
  end;
 Close(base);
 
 
 Assign(FileIdName,path+'idn.dat');
 Rewrite(FileIdName);
 
 for i:=n-1 downto 1 do
 for j:=0 to i-1 do
 if ArrName[j].val>ArrName[j+1].val then
 begin
  TempIdN:=ArrName[j];
  ArrName[j]:=ArrName[j+1];
  ArrName[j+1]:=TempIdN;
 end;
 
 for i:=0 to n-1 do
 write(FileIdName,ArrName[i]);
 close(FileIdName);
 
 
 Assign(FileIdDP,path+'idp.dat');
 Rewrite(FileIdDP);
 
 for i:=n-1 downto 1 do
 for j:=0 to i-1 do
 if (ArrPrubytok[j].val>ArrPrubytok[j+1].val) then
 begin
  TempIdDP:=ArrPrubytok[j];
  ArrPrubytok[j]:=ArrPrubytok[j+1];
  ArrPrubytok[j+1]:=TempIdDP;
 end;
 
 for i:=0 to n-1 do
 write(FileIdDP,ArrPrubytok[i]);
 close(FileIdDP);
 
 
 Assign(FileIdDP,path+'idd.dat');
 Rewrite(FileIdDP);
 
 for i:=n-1 downto 1 do
 for j:=0 to i-1 do
 if ArrDohid[j].val>ArrDohid[j+1].val then
 begin
  TempIdDP:=ArrDohid[j];
  ArrDohid[j]:=ArrDohid[j+1];
  ArrDohid[j+1]:=TempIdDP;
 end;
 
 for i:=0 to n-1 do
 write(FileIdDP,ArrDohid[i]);
 close(FileIdDP);
end;
 
procedure add;
var new_record: Tcorp;i:char;
begin
 Assign(base,path+'base.dat');
 if FileExists(path+'base.dat')
  then Reset(base)
  else Rewrite(base);
 Seek(base,filesize(base));
 while i<>'y' do
  begin
   Writeln('New record:');
   Write('Name:');
   Readln(new_record.name);
   Write('income:');
   Readln(new_record.dohid);
   Write('costs:');
   Readln(new_record.vutratu);
   new_record.prubytok:=new_record.dohid-new_record.vutratu;
   Writeln('profit: ',new_record.prubytok:0:2);
   write(base,new_record);
   writeln('tse vsi zapysy?');
   writeln('tak?(y)ni?(n)');
   readln(i);
   
  end;
 
 Close(base);
 CreateId;
end;
 
procedure Print;
var key:char;
    i:Integer;
    TempRec:Tcorp;
    TempIdN:TidName;
    TempIdDP:TidDP;
begin
Writeln('+-Sort-by:---+--------------+--------------+-------------+');
Writeln('| By name(1) | By income(2) | By profit(3) |   Return(0) |');
Writeln('+------------+--------------+--------------+-------------+');
Readln(Key);
 
Assign(base,path+'base.dat');
Reset(base);
 case key of
 '1':begin
      Writeln('Sort by name');
      Assign(FileIdName,path+'idn.dat');
      Reset(FileIdName);
      for i:=0 to filesize(base)-1 do
       begin
        Read(FileIdName,TempIdN);
        Seek(base,TempIdN.id);
        Read(base,TempRec);
        Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);
       end;
      Close(FileIdName);
     end;
 '2':begin
      Writeln('Sort by income');
      Assign(FileIdDP,path+'idd.dat');
      Reset(FileIdDP);
      for i:=0 to filesize(base)-1 do
       begin
        Read(FileIdDP,TempIdDP);
        Seek(base,TempIdDP.id);
        Read(base,TempRec);
        Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);
       end;
      Close(FileIdDP);
     end;
 '3':begin
      Writeln('Sort by profit');
      Assign(FileIdDP,path+'idp.dat');
      Reset(FileIdDP);
      for i:=0 to filesize(base)-1 do
       begin
        Read(FileIdDP,TempIdDP);
        Seek(base,TempIdDP.id);
        read(base,TempRec);
        Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);
        end;
      Close(FileIdDP);
     end;
 else if key<>'0' then writeln (' ERROR: unknown command ',key);
 end ;
Close(base);
writeln ('Press enter to continue.');
Readln;
end;
 
procedure Delete(row:Integer);
var TempBase:Tcorp;
begin
Assign(base,path+'base.dat');
Reset(base);
seek(base,filesize(base)-1);
read(base,TempBase);
seek(base,row);
write(base,TempBase);
seek(base,filesize(base)-1);
Truncate(base);
Close(base);
CreateId;
Writeln('Deleting was successful.');
writeln ('Press enter to continue.');
Readln;
end;
 
procedure search;
var key:Char;
    TempIdName:TidName;
    TempIdDP:TidDP;
    TempRec:Tcorp;
    name:string[20];
    l,r,c:Integer;
    found:Boolean;
    p:Integer;
    min,max:Real;
begin
Writeln('+-Search-by:-+--------------+--------------+-------------+');
Writeln('| By name(1) | By income(2) | By profit(3) |   Return(0) |');
Writeln('+------------+--------------+--------------+-------------+');
Readln(key);
 
Assign(base,path+'base.dat');
Reset(base);
 case key of
 '1':begin
      Assign(FileIdName,path+'idn.dat');
      Reset(FileIdName);
      Write('Name: ');
      Readln(name);
      r:=filesize(FileIdName)-1;
      l:=0;
      found:=False;
      while (l<=r) and (not found) do
       begin
        c:=(l+r) div 2;
        Seek(FileIdName, c);
        read(FileIdname,TempIdName);
        if name < TempIdName.val then r:=c-1
        else if name > TempIdName.val then l:=c+1
        else
        begin
         found:=True;
         p:=c;
         while name=TempIdName.val do
          begin
           Seek(base,TempIdName.id);
           Read(base,TempRec);
           Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);
           if p-1<0 then Break;
           p:=p-1;
           Seek(FileIdName, p);
           read(FileIdname,TempIdName);
          end;
 
         p:=c+1;
         if p<FileSize(FileIdName) then
         begin
          Seek(FileIdName, p);
          read(FileIdname,TempIdName);
          while name=TempIdName.val do
           begin
            Seek(base,TempIdName.id);
            Read(base,TempRec);
            Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);
            if p+1>=FileSize(FileIdName) then Break;
            p:=p+1;
            Seek(FileIdName, p);
            read(FileIdname,TempIdName);
           end;
         end;
        end;
       end;
     end;
 '2':begin
      Assign(FileIdDP,path+'idn.dat');
      Reset(FileIdDP);
      Write('Value: ');
      Readln(min);
      r:=filesize(FileIdDP)-1;
      l:=0;
      found:=False;
      while (l<=r) and (not found) do
       begin
        c:=(l+r) div 2;
        Seek(FileIdDP, c);
        read(FileIdDP,TempIdDP);
        if min> TempIdDP.val then l:=c+1
        else if min <= TempIdDP.val then
        begin
         found:=True;
         p:=c;
         while min<=TempIdDP.val do
          begin
           Seek(base,TempIdDP.id);
           Read(base,TempRec);
           Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);
           if p-1<0 then Break;
           p:=p-1;
           Seek(FileIdDP, p);
           read(FileIdDP,TempIdDP);
          end;
 
         p:=c+1;
         if p<FileSize(FileIdDP) then
         begin
          Seek(FileIdDP, p);
          read(FileIdDP,TempIdDP);
          while p<FileSize(FileIdDP) do
           begin
            Seek(base,TempIdName.id);
            Read(base,TempRec);
            Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);
            if p+1>=FileSize(FileIdDP) then Break;
            p:=p+1;
            Seek(FileIdName, p);
            read(FileIdDP,TempIdDP);
           end;
         end;
        end;
       end;
     end;
 
 else if key<>'0' then writeln (' ERROR: unknown command ',key);
 end;
 
Close(base);
if not found then Writeln('Not found!');
writeln ('Press enter to continue.');
Readln;
end;
 
 
 
begin
key:=#0;
while key<>'0' do
 begin
  Writeln('+--------+-----------+-----------+----------+------------+');
  Writeln('| Add(1) | Delete(2) | Search(3) | Print(4) |    Exit(0) |');
  Writeln('+--------+-----------+-----------+----------+------------+');
  Readln(key);
  case key of
   '1':add;
   '2':begin
        Writeln('Enter number of record for deletion. Enter "-1" for return to main menu.');
        Readln(NumDel);
        if NumDel>=0 then  Delete(NumDel);
       end;
   '3':Search;
   '4':Print;
   else if key<>'0' then writeln (' ERROR: unknown command ',key);
  end;
 end;
 
end.

Источник

program Oblik;     const path='d:/14/litvin/';   type Tcorp=record        name:string[20];        dohid:Real;        vutratu:Real;        prubytok:Real;      end;      TidName=record        id:Integer;        val:string[20];      end;      TidDP=record        id:Integer;        val:Real;end;       var key:Char;     NumDel:Integer;     base: file of Tcorp;     FileIdName: file of TidName;     FileIdDP: file of TidDP;     Procedure CreateId; var n,i,j: integer;     ArrName: array[0..255] of TidName;     ArrDohid: array[0..255] of TidDP;     ArrPrubytok: array[0..255] of TidDP;     TempRec:Tcorp;     TempIdN:TidName;     TempIdDP:TidDP; begin Assign(base,path+'base.dat');  if FileExists(path+'base.dat')   then Reset(base)   else Rewrite(base);  n:=filesize(base);  for i:=0 to n-1 do   begin    read(base,TempRec);    ArrName[i].id:=i;    ArrName[i].val:=TempRec.name;    ArrDohid[i].id:=i;    ArrDohid[i].val:=TempRec.dohid;    ArrPrubytok[i].id:=i;    ArrPrubytok[i].val:=TempRec.dohid-TempRec.vutratu;   end;  Close(base);      Assign(FileIdName,path+'idn.dat');  Rewrite(FileIdName);    for i:=n-1 downto 1 do  for j:=0 to i-1 do  if ArrName[j].val>ArrName[j+1].val then  begin   TempIdN:=ArrName[j];   ArrName[j]:=ArrName[j+1];   ArrName[j+1]:=TempIdN;  end;    for i:=0 to n-1 do  write(FileIdName,ArrName[i]);  close(FileIdName);      Assign(FileIdDP,path+'idp.dat');  Rewrite(FileIdDP);    for i:=n-1 downto 1 do  for j:=0 to i-1 do  if (ArrPrubytok[j].val>ArrPrubytok[j+1].val) then  begin   TempIdDP:=ArrPrubytok[j];   ArrPrubytok[j]:=ArrPrubytok[j+1];   ArrPrubytok[j+1]:=TempIdDP;  end;    for i:=0 to n-1 do  write(FileIdDP,ArrPrubytok[i]);  close(FileIdDP);      Assign(FileIdDP,path+'idd.dat');  Rewrite(FileIdDP);    for i:=n-1 downto 1 do  for j:=0 to i-1 do  if ArrDohid[j].val>ArrDohid[j+1].val then  begin   TempIdDP:=ArrDohid[j];   ArrDohid[j]:=ArrDohid[j+1];   ArrDohid[j+1]:=TempIdDP;  end;    for i:=0 to n-1 do  write(FileIdDP,ArrDohid[i]);  close(FileIdDP); end;   procedure add; var new_record: Tcorp;i:char; begin  Assign(base,path+'base.dat');  if FileExists(path+'base.dat')   then Reset(base)   else Rewrite(base);  Seek(base,filesize(base));  while i<>'y' do   begin    Writeln('New record:');    Write('Name:');    Readln(new_record.name);    Write('income:');    Readln(new_record.dohid);    Write('costs:');    Readln(new_record.vutratu);    new_record.prubytok:=new_record.dohid-new_record.vutratu;    Writeln('profit: ',new_record.prubytok:0:2);    write(base,new_record);    writeln('tse vsi zapysy?');    writeln('tak?(y)ni?(n)');    readln(i);       end;    Close(base);  CreateId; end;   procedure Print; var key:char;     i:Integer;     TempRec:Tcorp;     TempIdN:TidName;     TempIdDP:TidDP; begin Writeln('+-Sort-by:---+--------------+--------------+-------------+'); Writeln('| By name(1) | By income(2) | By profit(3) |   Return(0) |'); Writeln('+------------+--------------+--------------+-------------+'); Readln(Key);   Assign(base,path+'base.dat'); Reset(base);  case key of  '1':begin       Writeln('Sort by name');       Assign(FileIdName,path+'idn.dat');       Reset(FileIdName);       for i:=0 to filesize(base)-1 do        begin         Read(FileIdName,TempIdN);         Seek(base,TempIdN.id);         Read(base,TempRec);         Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);        end;       Close(FileIdName);      end;  '2':begin       Writeln('Sort by income');       Assign(FileIdDP,path+'idd.dat');       Reset(FileIdDP);       for i:=0 to filesize(base)-1 do        begin         Read(FileIdDP,TempIdDP);         Seek(base,TempIdDP.id);         Read(base,TempRec);         Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);        end;       Close(FileIdDP);      end;  '3':begin       Writeln('Sort by profit');       Assign(FileIdDP,path+'idp.dat');       Reset(FileIdDP);       for i:=0 to filesize(base)-1 do        begin         Read(FileIdDP,TempIdDP);         Seek(base,TempIdDP.id);         read(base,TempRec);         Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);         end;       Close(FileIdDP);      end;  else if key<>'0' then writeln (' ERROR: unknown command ',key);  end ; Close(base); writeln ('Press enter to continue.'); Readln; end;   procedure Delete(row:Integer); var TempBase:Tcorp; begin Assign(base,path+'base.dat'); Reset(base); seek(base,filesize(base)-1); read(base,TempBase); seek(base,row); write(base,TempBase); seek(base,filesize(base)-1); Truncate(base); Close(base); CreateId; Writeln('Deleting was successful.'); writeln ('Press enter to continue.'); Readln; end;   procedure search; var key:Char;     TempIdName:TidName;     TempIdDP:TidDP;     TempRec:Tcorp;     name:string[20];     l,r,c:Integer;     found:Boolean;     p:Integer;     min,max:Real; begin Writeln('+-Search-by:-+--------------+--------------+-------------+'); Writeln('| By name(1) | By income(2) | By profit(3) |   Return(0) |'); Writeln('+------------+--------------+--------------+-------------+'); Readln(key);   Assign(base,path+'base.dat'); Reset(base);  case key of  '1':begin       Assign(FileIdName,path+'idn.dat');       Reset(FileIdName);       Write('Name: ');       Readln(name);       r:=filesize(FileIdName)-1;       l:=0;       found:=False;       while (l<=r) and (not found) do        begin         c:=(l+r) div 2;         Seek(FileIdName, c);         read(FileIdname,TempIdName);         if name < TempIdName.val then r:=c-1         else if name > TempIdName.val then l:=c+1         else         begin          found:=True;          p:=c;          while name=TempIdName.val do           begin            Seek(base,TempIdName.id);            Read(base,TempRec);            Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);            if p-1<0 then Break;            p:=p-1;            Seek(FileIdName, p);            read(FileIdname,TempIdName);           end;            p:=c+1;          if p<FileSize(FileIdName) then          begin           Seek(FileIdName, p);           read(FileIdname,TempIdName);           while name=TempIdName.val do            begin             Seek(base,TempIdName.id);             Read(base,TempRec);             Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);             if p+1>=FileSize(FileIdName) then Break;             p:=p+1;             Seek(FileIdName, p);             read(FileIdname,TempIdName);            end;          end;         end;        end;      end;  '2':begin       Assign(FileIdDP,path+'idn.dat');       Reset(FileIdDP);       Write('Value: ');       Readln(min);       r:=filesize(FileIdDP)-1;       l:=0;       found:=False;       while (l<=r) and (not found) do        begin         c:=(l+r) div 2;         Seek(FileIdDP, c);         read(FileIdDP,TempIdDP);         if min> TempIdDP.val then l:=c+1         else if min <= TempIdDP.val then         begin          found:=True;          p:=c;          while min<=TempIdDP.val do           begin            Seek(base,TempIdDP.id);            Read(base,TempRec);            Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);            if p-1<0 then Break;            p:=p-1;            Seek(FileIdDP, p);            read(FileIdDP,TempIdDP);           end;            p:=c+1;          if p<FileSize(FileIdDP) then          begin           Seek(FileIdDP, p);           read(FileIdDP,TempIdDP);           while p<FileSize(FileIdDP) do            begin             Seek(base,TempIdName.id);             Read(base,TempRec);             Writeln (TempRec.name,'   ',TempRec.dohid :0:2,'   ',TempRec.vutratu :0:2,'   ',TempRec.prubytok:0:2);             if p+1>=FileSize(FileIdDP) then Break;             p:=p+1;             Seek(FileIdName, p);             read(FileIdDP,TempIdDP);            end;          end;         end;        end;      end;    else if key<>'0' then writeln (' ERROR: unknown command ',key);  end;   Close(base); if not found then Writeln('Not found!'); writeln ('Press enter to continue.'); Readln; end;       begin key:=#0; while key<>'0' do  begin   Writeln('+--------+-----------+-----------+----------+------------+');   Writeln('| Add(1) | Delete(2) | Search(3) | Print(4) |    Exit(0) |');   Writeln('+--------+-----------+-----------+----------+------------+');   Readln(key);   case key of    '1':add;    '2':begin         Writeln('Enter number of record for deletion. Enter "-1" for return to main menu.');         Readln(NumDel);         if NumDel>=0 then  Delete(NumDel);        end;    '3':Search;    '4':Print;    else if key<>'0' then writeln (' ERROR: unknown command ',key);   end;  end;   end.

СООБЩЕНИЯ КОМПИЛЯТОРА ОБ ОШИБКАХ

1
Out of memory
Выход за границы памяти
Компилятор выполняется вне допустимых границ памяти. Имеется ряд возможных решений проблемы:

§ Если в меню Options?Linker?Link Buffer, установлен параметр Memory, переключите его в значение Disk.

§ Возможно программа слишком велика, чтобы компилироваться в таком объеме памяти. Следует разбить ее на два или более модуля.

2
Identifier expected
Не указан идентификатор
В этом месте должен находиться идентификатор.

3
Unknown identifier
Неизвестный идентификатор
Этот идентификатор не был описан.

4
Duplicate identifier
Повторный идентификатор
Идентификатор уже представляет имя программы, модуля, константы, переменной, типа, процедуры и функции, описанных в текущем блоке.

5
Syntax error
Синтаксическая ошибка
В исходном тексте найден неверный символ.

6
Error in real constant
Ошибка в вещественной константе

7
Error in integer constant
Ошибка в целой константе

8
String constant exceeds line
Строковая константа превышает размеры строки
Вероятно, отсутствует кавычка в конце строковой константы.

10
Unexpected end of file
Неожиданный конец файла
Причины:

§ несоответствующее количество begin и end (не забудьте, что оператор case также заканчивается словом end);

§ включаемый файл заканчивается в середине раздела операторов. Каждый раздел операторов должен целиком помещаться в одном файле;

§ незаконченный комментарий.

11
Line too long
Строка слишком длинная
Максимальная длина строки может равняться 126 символам. Возможно, отсутствует апостроф в конце строковой константы.

12
Type identifier expected
Нужен идентификатор типа
Не указан типа идентификатора, как это должно быть.

13
Too many open files
Слишком много открытых файлов
Файл CONFIG.SYS не содержит параметра FILES=xx или этот параметр указывает слишком много файлов. Следует увеличить число файлов.

14
Invalid file name
Неверное имя файла
Имя файла неверно или указывает несуществующий путь.

15
File not found
Файл не найден
Файл не может быть найден ни в текущем каталоге, ни в каком-либо другом исследуемом каталоге, предназначенном для этого типа файлов.

16
Disk full
Диск заполнен
Удалите некоторые файлы или воспользуйтесь новым диском (если речь идет о сменном носителе).

17
Invalid compiler directive
Неправильная директива компилятора
Возможно, неверная буква в директиве компилятора, один из параметров директивы компилятора неверный или используется глобальная директива компилятора, когда компиляция тела программы уже началась.

18
Too many files
Слишком много файлов
В компиляции программы или программного модуля участвует слишком много файлов. Следует объединить включаемые файлы или сделать короче имена файлов.

19
Undefined type in pointer definition
Неопределенный тип в определении ссылки
Была осуществлена ссылка на тип в приведенном ранее описании указателя, но этот тип не был описан.

20
Variable identifier expected
Нужен идентификатор переменной
Идентификатор не описывает переменную, как это должно быть.

21
Error in type
Ошибка в определении типа
Определение типа не может начинаться с этого символа.

22
Structure too large
Слишком большая структура
Максимально допустимый размер структурного типа 65 535 байт.

23
Set base type of range
Базовый тип множества выходит за допустимые границы
Базовый тип множества должен представлять собой отрезок типа с границами в пределах от 0 до 255 или перечислимого типа, допускающим не более чем 256 значений.

24
File components may not be files or objects
Элементы файла не могут быть файлами или объектами
Тип компоненты файлового типа не может быть объектным или файловым типом и не может быть структурным типом с компонентами файлового или объектного типа: конструкции file of file или file of object не допускаются.

25
Invalid string length
Неверная длина строки
Длина строки должна находиться в диапазоне от 1 до 255.

26
Type mismatch
Несоответствие типов
Причины:

§ несовместимые типы переменной и выражения в операторе присваивания;

§ несовместимые типы фактического и формального параметров в обращении к процедуре или функции;

§ тип выражения, несовместимый с типом индекса при индексировании массива;

§ несовместимые типы операндов в выражении.

27
Invalid subrange base type
Неправильный базовый тип интервального типа
Допустимыми являются все порядковые типы.

28
Lower bound greater than upper bound
Нижняя граница больше верхней
В описании диапазона нижняя граница больше, чем верхняя.

29
Ordinal type expected
Нужен порядковый тип
Вещественные, строковые, структурные и ссылочные типы в данном случае не допускаются.

30
Integer constant expected
Нужна целая константа

31
Constant expected
Нужна константа

32
Integer or real constant expected
Нужна целая или вещественная константа

33
Pointer type identifier expected
Нужен идентификатор типа указателя
Данный идентификатор не обозначает тип указателя, как это требуется.

34
Invalid function result type
Неправильный тип результата функции
Правильными типами результата функции являются все простые типы, а также строковые и ссылочные типы.

35
Label identifier expected
Нужен идентификатор метки
Метка не обозначена с помощью идентификатора, как это требуется.

36
BEGIN expected
Нужен BEGIN

37
END expected
Нужен END
Следует проверить соответствие ключевых слов BEGIN и END.

38
Integer expression expected
Нужно выражение типа INTEGER
Предыдущее выражение должно иметь целочисленный тип INTEGER

39
Ordinal expression expected
Нужно выражение порядкового типа
Предшествующее выражение должно иметь порядковый тип.

40
Boolean expression expected
Нужно выражение типа BOOLEAN
Предшествующее выражение должно иметь тип BOOLEAN

41
Operand types do not math operator
Типы операндов не соответствуют оператору
Данный оператор не может быть применен к операндам этого типа, например, нельзя ‘A’ разделить на ‘2’.

42
Error in expression
Ошибка в выражении
Данный идентификатор не может участвовать в выражении указанным образом.

43
Illegal assignment
Неверное присваивание
§ Нетипизированным файлам и переменным нельзя присваивать значения.

§ Идентификатору функции можно присваивать значения только внутри раздела операторов данной функции.

44
Field identifier expected
Нужен идентификатор поля
Данный идентификатор не является полем предшествующей переменной типа «запись».

45
Object file too large
Объектный файл слишком большой
Нельзя компоновать файлы .obj, превышающие 64 Кбайт.

46
Undefined external
Не определена внешняя процедура
Внешняя процедура или функция не имеет соответствующего определения Public в объектном файле. Убедитесь, что вы указали все объектные файлы в директивах {$L имя_файла}, и проверьте написание идентификаторов процедуры или функции в файле .asm.

47
Invalid object file record
Неправильная запись объектного файла
Файл .obj содержит неверную объектную запись. Убедитесь, что данный файл является действительно файлом .obj.

48
Code segment too large
Сегмент кода слишком большой
Максимальный размер кода программы или программного модуля равняется 65 520 байт. Если вы компилируете программный модуль, разбейте его на два или более программных модулей.

49
Data segment too large
Сегмент данных слишком велик
Максимальный размер сегмента данных равен 65 520 байт, включая данные, описываемые используемыми программными модулями. Если вам нужно большее количество глобальных данных, опишите большие структуры с помощью указателей и выделяйте для них память динамически с помощью процедуры New.

50
DO expected
Нужен оператор DO

51
Invalid PUBLIC definition
Неверное определение PUBLIC
§ Две или более директивы PUBLIC на языке ассемблера определяют один и тот же идентификатор.

§ Объектный файл .obj определяет идентификаторы PUBLIC, которые не находятся в сегменте CODE.

52
Invalid EXTRN definition
Неверное определение EXTRN
§ На идентификатор имеется ссылка в директиве EXTRN на языке ассемблера, но он не описан в программе или модуле на Паскале или в интерфейсной части какого-либо из используемых модулей.

§ Идентификатор обозначает абсолютную переменную.

§ Идентификатор обозначает процедуру или функцию типа inline.

53
Too many EXTRN definition
Слишком много определений EXTRN
Невозможно обработать файлы .obj, если имеется более чем 256 EXTRN.

54
OF expected
Требуется OF

55
INTERFACE expected
Требуется интерфейсный раздел

56
Invalid relocatable reference
Недопустимая перемещаемая ссылка
§ Файл .obj содержит данные и перемещаемые ссылки в сегментах, отличных от CODE. Например, вы пытаетесь описать инициализированные переменные в сегменте DATA.

§ Файл .com содержит ссылки с размерами в байтах на перемещаемые идентификаторы. Такая ошибка происходит в случае, если вы используете операторы HIGH и DOWN с перемещаемыми идентификаторами или если вы ссылаетесь в директивах DB на перемещаемые идентификаторы.

§ Операнд ссылается на перемещаемый идентификатор, который не был определен в сегменте CODE или в сегменте DATA.

§ Операнд ссылается на процедуру EXTRN или функцию EXTRN со смещением, например CALL SortProc+8.

57
Then expected
Требуется THEN
В нужном месте отсутствует слово then.

58
TO or DOWNTO expected
Требуется TO или DOWNTO
В нужном месте отсутствует ключевое слово TO или DOWNTO.

59
Undefined forward
Не определено опережающее описание
§ Процедура или функция были описаны в интерфейсном разделе программного модуля, но их определение отсутствует в разделе реализации.

§ Процедуры или функции были описаны с помощью описания forward, но их определение не найдено.

61
Invalid typecast
Неверное преобразование типа
§ Размеры ссылки на переменную и тип результата отличаются друг от друга при изменении типа переменной.

§ Вы пытаетесь осуществить приведение типа выражения, когда разрешается только ссылка на переменную, процедуру или функцию.

62
Division by zero
Деление на нуль
Предшествующая операция пытается выполнить деление на нуль.

63
Invalid file type
Неверный файловый тип
Данный файловый тип не обслуживается процедурой обработки файлов. Например, вы пытаетесь использовать процедуру Readln для типизированного файла или процедуру Seek для текстового.

64
Cannot Read or Write variables of this type
Нельзя считать или записать переменные данного типа
Процедуры Read и Readln могут считывать переменные символьного, целого, вещественного и строкового типа.

65
Pointer variable expected
Нужно использовать переменную-указатель
Предыдущая переменная должна иметь тип «указатель».

66
String variable expected
Нужна строковая переменная
Предшествующая переменная должна иметь строковый тип.

67
String expression expected
Нужно выражение строкового типа
Предшествующее выражение должно иметь строковый тип.

68
Circular unit reference
Циклическая ссылка на модуль
Два модуля не могут ссылаться друг на друга в разделе interface, но могут это делать в разделе implementation. Переупорядочите операторы uses таким образом, чтобы циклические ссылки имели место только в разделе implementation.

69
Unit name mismatch
Несоответствие имен программных модулей
Имя программного модуля, найденное в файле .tpu, не соответствует имени, указанному в операторе uses.

70
Unit version mismatch
Несоответствие версий программных модулей
Один или несколько программных модулей, используемых данной программой, были изменены после их компиляции. Воспользуйтесь командой Compile?Make или Compile?Build в интегрированной интерактивной среде программирования, что позволит автоматически скомпилировать программные модули, нуждающиеся в перекомпиляции.

71
Internal stack overflow
Переполнение внутреннего стека
Внутренний стек компилятора исчерпан из-за слишком большого уровня вложенности операторов. Переорганизуйте исходный код и уменьшите уровень вложенности. Например, переместите внутренние уровни вложенных операторов в отдельную процедуру.

72
Unit file format error
Ошибка формата файла программного модуля
Файле .tpu является недействительным. Возможно, он создан с помощью старой версии Turbo Pascal или Borland Pascal. В этом случае нужно перекомпилировать исходный код модуля и создать новый модуль.

73
Implementation expected
Требуется раздел реализации
Ключевое слово Implementation отсутствует там, где оно должно быть. Возможно, вы включили реализацию процедуры, функции или метода в интерфейсную часть модуля.

74
Constant and case types do not math
Типы констант и выражения оператора Case не соответствуют друг другу
Тип константы оператора Case несовместим с выражением селектора в операторе выбора

75
Record variable expected
Нужна переменная типа запись
Предшествующая переменная должна иметь тип «запись».

76
Constant out of range
Константа выходит за допустимые границы
§ Вы пытаетесь указать массив с константами, нарушающими границы.

§ Вы пытаетесь присвоить константу вне диапазона переменной.

§ Вы пытаетесь передать константу вне диапазона в качестве параметра процедуре или функции.

77
File variable expected
Нужна файловая переменная
Предшествующая переменная должна иметь файловый тип.

78
Pointer expression expected
Нужно выражение типа указатель
Предшествующая переменная должна иметь ссылочный тип.

79
Integer or real expression expected
Нужно выражение типа real или integer
Предшествующее выражение должно иметь тип real или integer.

80
Label not within current block
Метка не находится внутри текущего блока
Оператор goto не может ссылаться на метку, находящуюся вне текущего блока.

81
Label already defined
Метка уже определена
Данная метка уже помечает оператор.

82
Undefined label in processing statement part
Неопределенная метка в предшествующем разделе операторов
Данная метка была описана, и на нее осуществлялась ссылка в предшествующем разделе операторов, но она не определена.

83
Invalid @ argument
Недействительный аргумент оператора @
Действительными аргументами являются ссылки на переменные и идентификаторы процедур или функций.

84
Unit expected
Нужно ключевое слово Unit
Не указано ключевое слово Unit, как это требуется.

85
«;» expected
Нужно указать «;»
Не указана, где это требуется, точка с запятой.

86
«:» expected
Нужно указать «:»
Не указана, где это требуется, двоеточие.

87
«,» expected
Нужно указать «,»
Не указана, где это требуется, запятая.

88
«(» expected
Нужно указать «(»
Не указана, где это требуется, открывающаяся круглая скобка.

89
«)» expected
Нужно указать «)»
Не указана, где это требуется, закрывающаяся круглая скобка.

90
«=» expected
Нужно указать «=»
Нужно указать знак равенства.

91
«:=» expected
Нужно указать «:=»
Требуется использовать операцию присваивания.

92
«[» or «(.» expected
Нужно «[» or «(.»
Требуется указать квадратную скобку или «(. ».

93
«]» or «.)» expected
Нужно «]» or «.)»
Требуется указать квадратную скобку или «.) ».

94
«.» expected
Нужно «.»
Требуется указать точку. Убедитесь, что тип не используется как переменная или что именем программы не переопределяется важный идентификатор другого модуля.

95
«..» expected
Нужно «..»
Требуется указать точки. Там, где это нужно, не указан диапазон.

96
Too many variables
Слишком много переменных
Общий размер глобальных переменных, описанных в программе или программном модуле, не может превышать 64 Кбайт.

Размер локальных переменных, описанных в программе или функции, не может превышать 64 Кбайт.

98
Integer variable expected
Нужна переменная целого типа
Предшествующая переменная должна иметь тип integer.

99
Files are not allowed here
Здесь не допускаются файлы
Типизированная константа не может иметь файловый тип.

100
String length mismatch
Несоответствие длины
Длина строковой константы не соответствует количеству элементов символьного массива.

101
Invalid ordering of fields
Неверный порядок полей
Поля в константе типа «запись» должны указываться в порядке их описания.

102
String constant expected
Нужна константа строкового типа

103
Integer or real variable expected
Нужна переменная типа integer или real
Предшествующая переменная должна иметь целый или вещественный тип.

104
Character expression

Ожидается символьные выражения

105
Compilation aborted

Компиляция прервана

106
Error in statement

Ошибка в операторе

107
Error in type

Ошибка в типе

108
Expected

Ожидается имя

109
Invalid floating point operation

Неправильная операция для вещественных операндов

110
Ordinal variable expected

Ожидается переменная целого или символьного типа

111
Too many symbols

Слишком много символов

112
Undefined type

Неопределенный тип

113
Abnormal program termination

Ненормальное окончание программы

114
Ctrl-Break to quit

нажмите CTRL и Break для входа

115
Disk is write-protected

Диск защищен от записи

116
Disk read error

Ошибка записи на диск

117
Disk write error

Ошибка записи на диск

118
Drive not ready

дисковод не готов (нет дискеты)

119
Error on execute

Ошибка исполнения

120
Floating point overflow

Вещественное переполнение

121
Hardware failure

Ошибка оборудования

122
Heap overflow error

Не хватает основной памяти

123
I/O checking

Ошибка ввода/вывода

124
Invalid Breakpoint

Неправильная точка останова

125
Invalid format specifier

Неправильный формат

126
No debug info

Не задана информация для отладки

127
Not enough memory

Не хватает памяти

128
Press any key

Нажмите любую клавишу

129
Program terminated

Исполнение программы прекращено

130
Range check error

Выход индекса за пределы массива

131
Runtime error

Ошибка во время исполнения

132
Stack overflow error

Ошибка по переполнению стека

133
Too many breakpoints

Слишком много точек останова

134
Type EXIT to return to Turbo Pascal

Введите Exit для возврата в Турбо Паскаль

135
User Break

Пользователь прервал исполнение программы

Помогите пожалуйста исправить ошибку «неверная вещественная операция (7.

PAS, строка 9)» уже не знаю как исправить задание : для натурального n и действительного x подсчитать сумму S = — 1 / 2 + 1 / 2 ^ 2 — 1 / 2 ^ 3 + .

+ ( — 1) ^ n / 2 ^ n program summa ;

uses crt ;

var n, i : integer ; s : real ;

begin clrscr ;

writeln (‘vvedite n’) ;

readln (n) ;

s : = 0 ;

for i : = 1 to n do

s : = s + exp(ln( — 1) * i) / exp(ln(2) * i) ;

writeln (‘s = ‘, s) ;

readln

end.

На этой странице сайта вы найдете ответы на вопрос Помогите пожалуйста исправить ошибку «неверная вещественная операция (7?,
относящийся к категории Информатика. Сложность вопроса соответствует базовым
знаниям учеников 10 — 11 классов. Для получения дополнительной информации
найдите другие вопросы, относящимися к данной тематике, с помощью поисковой
системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и
задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям.
Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы
помогут найти нужную информацию.

Опубликовано 3 года назад по предмету
Информатика
от lolkekcheburashka

Ответ

Ответ дан
mariyalastovkioxxan1

паскаль не задаёт значения косинусных вещественных значений

Не тот ответ, который вам нужен?

Найди нужный

Самые новые вопросы

Математика — 2 года назад

Сколько здесь прямоугольников

История — 3 года назад

Какое управление было в древнейшем риме? как звали первого и последнего из царей рима?

Литература — 3 года назад

Уроки французского ответе на вопрос : расскажите о герое по следующему примерному плану: 1.почему мальчик оказался в райцентре ? 2.как он чувствовал себя на новом месте? 3.почему он не убежал в деревню? 4.какие отношения сложились у него с товарищами? 5.почему он ввязался в игру за деньги? 6.как характеризуют его отношения с учительницей ? ответе на эти вопросы пожалуйста ! сочините сочинение пожалуйста

Русский язык — 3 года назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса
1. укажите личное местоимение:
1) некто
2) вас
3) ни с кем
4) собой
2. укажите относительное местоимение:
1) кто-либо
2) некоторый
3) кто
4) нам
3. укажите вопросительное местоимение:
1) кем-нибудь
2) кем
3) себе
4) никакой
4. укажите определительное местоимение:
1) наш
2) который
3) некий
4) каждый
5. укажите возвратное местоимение:
1) свой
2) чей
3) сам
4) себя
6. найдите указательное местоимение:
1) твой
2) какой
3) тот
4) их
7. найдите притяжательное местоимение:
1) самый
2) моего
3) иной
4) ничей
8. укажите неопределённое местоимение:
1) весь
2) какой-нибудь
3) любой
4) этот
9. укажите вопросительное местоимение:
1) сколько
2) кое-что
3) она
4) нами
10. в каком варианте ответа выделенное слово является притяжательным местоимением?
1) увидел их
2) её нет дома
3) её тетрадь
4) их не спросили

Русский язык — 3 года назад

Переделай союзное предложение в предложение с бессоюзной связью.
1. океан с гулом ходил за стеной чёрными горами, и вьюга крепко свистала в отяжелевших снастях, а пароход весь дрожал.
2. множество темноватых тучек, с неясно обрисованными краями, расползались по бледно-голубому небу, а довольно крепкий ветер мчался сухой непрерывной струёй, не разгоняя зноя
3. поезд ушёл быстро, и его огни скоро исчезли, а через минуту уже не было слышно шума

ggg3288

Русский язык — 3 года назад

помогите прошу!перепиши предложения, расставляя недостающие знаки препинания. объясни, что соединяет союз и. если в предложении один союз и, то во втором выпадающем списке отметь «прочерк».пример:«я шёл пешком и,/поражённый прелестью природы/, часто останавливался».союз и соединяет однородные члены.ночь уже ложилась на горы (1) и туман сырой (2) и холодный начал бродить по ущельям.союз и соединяет:1) части сложного предложенияоднородные члены,2) однородные членычасти сложного предложения—.поэт — трубач зовущий войско в битву (1) и прежде всех идущий в битву сам (ю. янонис).союз и соединяет:1) части сложного предложенияоднородные члены,2)

Физика — 3 года назад

Вокруг прямого проводника с током (смотри рисунок) существует магнитное поле. определи направление линий этого магнитного поля в точках a и b.обрати внимание, что точки a и b находятся с разных сторон от проводника (точка a — снизу, а точка b — сверху). рисунок ниже выбери и отметь правильный ответ среди предложенных.1. в точке a — «от нас», в точке b — «к нам» 2. в точке a — «к нам», в точке b — «от нас» 3. в обеих точках «от нас»4. в обеих точках «к нам»контрольная работа по физике.прошу,не наугад важно

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Что ты хочешь узнать на сайте Знания ком?

Задай вопрос

Источник

const a=-2;
      b=2;
      c=0.2;
var x,y,max,min:real;
begin
  x:=a;
  y:=x*x+sqr(sin((x+pi)/2)/cos((x+pi)/2));
  max:=y;
  min:=y;
  repeat
    if x<=-0.5 then y:=x*x+sqr(sin((x+pi)/2)/cos((x+pi)/2))
    else if x<=0.5 then y:=cos(exp(ln(abs(x+ln(abs(x))))/5))
         else if x+exp(x)*sqrt(x+1)-pi<0 then y:=exp(ln(-(x+exp(x)*sqrt(x+1)-pi))/3)
              else y:=exp(ln(x+exp(x)*sqrt(x+1)-pi)/3);
    if y>max then max:=y
    else if y<min then min:=y;
    writeln('y(',x:0:1,') = ',y:0:5);
    x:=x+c;
  until x>=b;
  writeln('max = ',max:0:5,', min = ',min:0:5);
  readln
end.

Источник

Помогите пожалуйста исправить ошибку «неверная вещественная операция (7.

+ ( — 1) ^ n / 2 ^ n program summa ;

uses crt ;

var n, i : integer ; s : real ;

begin clrscr ;

writeln (‘vvedite n’) ;

readln (n) ;

s : = 0 ;

for i : = 1 to n do

s : = s + exp(ln( — 1) * i) / exp(ln(2) * i) ;

writeln (‘s = ‘, s) ;

readln

end.

Источник

Записываю формулы на языке паскаль и выдает ошибку. Не могу разобраться что не так?

Выражение b работает, а вот с а проблемы. Из-за этого я так понимаю не работает и с.

Program Variant_4;
Var x, y, z: Real;
Var a, b, c: Real;


Begin

  Write('x=');
  ReadLn(x);
  Write('y=');
  ReadLn(y);
  Write('z=');
  ReadLn(z);

    a:=(3.2*exp(ln(x)*((1/5)*exp(x*ln(exp(x)))))*(x-pi/3))/(0.5*abs(y-exp(3*ln(sin(x)/cos(x)
))));

   b:=(sqr(x-y))/2.5 + (abs(exp(ln(y-x)*3)))/sin(x/z);
   
   c:= exp(1/3)*ln(cos(a*x)-sin(a+b)/a*b);

    writeln(a);
   writeln(b);
          writeln(c);
  

  end.
<b><i></i></b>

Источник

Помогите пожалуйста исправить ошибку «неверная вещественная операция (7.PAS, строка 9)»

уже не знаю как исправить

задание: для натурального n и действительного x подсчитать сумму S=-1/2 + 1/2^2 — 1/2^3 +…+(-1)^n / 2^n

program summa;
uses crt;
var n,i:integer; s:real;
begin clrscr;
writeln (‘vvedite n’);
readln (n);
s:=0;
for i:=1 to n do
s:=s+exp(ln(-1)*i)/exp(ln(2)*i);
writeln (‘s=’, s);
readln
end.

Источник

СООБЩЕНИЯ КОМПИЛЯТОРА ОБ ОШИБКАХ

1 Out of memory Выход за границы памяти Компилятор выполняется вне допустимых границ памяти. Имеется ряд возможных решений проблемы:

§ Если в меню Options?Linker?Link Buffer, установлен параметр Memory, переключите его в значение Disk.

2 Identifier expected Не указан идентификатор В этом месте должен находиться идентификатор. 3 Unknown identifier Неизвестный идентификатор Этот идентификатор не был описан. 4 Duplicate identifier Повторный идентификатор Идентификатор уже представляет имя программы, модуля, константы, переменной, типа, процедуры и функции, описанных в текущем блоке. 5 Syntax error Синтаксическая ошибка В исходном тексте найден неверный символ. 6 Error in real constant Ошибка в вещественной константе 7 Error in integer constant Ошибка в целой константе 8 String constant exceeds line Строковая константа превышает размеры строки Вероятно, отсутствует кавычка в конце строковой константы. 10 Unexpected end of file Неожиданный конец файла Причины:

§ несоответствующее количество begin и end (не забудьте, что оператор case также заканчивается словом end);

§ незаконченный комментарий.

11 Line too long Строка слишком длинная Максимальная длина строки может равняться 126 символам. Возможно, отсутствует апостроф в конце строковой константы. 12 Type identifier expected Нужен идентификатор типа Не указан типа идентификатора, как это должно быть. 13 Too many open files Слишком много открытых файлов Файл CONFIG.SYS не содержит параметра FILES=xx или этот параметр указывает слишком много файлов. Следует увеличить число файлов. 14 Invalid file name Неверное имя файла Имя файла неверно или указывает несуществующий путь. 15 File not found Файл не найден Файл не может быть найден ни в текущем каталоге, ни в каком-либо другом исследуемом каталоге, предназначенном для этого типа файлов. 16 Disk full Диск заполнен Удалите некоторые файлы или воспользуйтесь новым диском (если речь идет о сменном носителе). 17 Invalid compiler directive Неправильная директива компилятора Возможно, неверная буква в директиве компилятора, один из параметров директивы компилятора неверный или используется глобальная директива компилятора, когда компиляция тела программы уже началась. 18 Too many files Слишком много файлов В компиляции программы или программного модуля участвует слишком много файлов. Следует объединить включаемые файлы или сделать короче имена файлов. 19 Undefined type in pointer definition Неопределенный тип в определении ссылки Была осуществлена ссылка на тип в приведенном ранее описании указателя, но этот тип не был описан. 20 Variable identifier expected Нужен идентификатор переменной Идентификатор не описывает переменную, как это должно быть. 21 Error in type Ошибка в определении типа Определение типа не может начинаться с этого символа. 22 Structure too large Слишком большая структура Максимально допустимый размер структурного типа 65 535 байт. 23 Set base type of range Базовый тип множества выходит за допустимые границы Базовый тип множества должен представлять собой отрезок типа с границами в пределах от 0 до 255 или перечислимого типа, допускающим не более чем 256 значений. 24 File components may not be files or objects Элементы файла не могут быть файлами или объектами Тип компоненты файлового типа не может быть объектным или файловым типом и не может быть структурным типом с компонентами файлового или объектного типа: конструкции file of file или file of object не допускаются. 25 Invalid string length Неверная длина строки Длина строки должна находиться в диапазоне от 1 до 255. 26 Type mismatch Несоответствие типов Причины:

§ несовместимые типы переменной и выражения в операторе присваивания;

§ несовместимые типы фактического и формального параметров в обращении к процедуре или функции;

§ тип выражения, несовместимый с типом индекса при индексировании массива;

§ несовместимые типы операндов в выражении.

27 Invalid subrange base type Неправильный базовый тип интервального типа Допустимыми являются все порядковые типы. 28 Lower bound greater than upper bound Нижняя граница больше верхней В описании диапазона нижняя граница больше, чем верхняя. 29 Ordinal type expected Нужен порядковый тип Вещественные, строковые, структурные и ссылочные типы в данном случае не допускаются. 30 Integer constant expected Нужна целая константа 31 Constant expected Нужна константа 32 Integer or real constant expected Нужна целая или вещественная константа 33 Pointer type identifier expected Нужен идентификатор типа указателя Данный идентификатор не обозначает тип указателя, как это требуется. 34 Invalid function result type Неправильный тип результата функции Правильными типами результата функции являются все простые типы, а также строковые и ссылочные типы. 35 Label identifier expected Нужен идентификатор метки Метка не обозначена с помощью идентификатора, как это требуется. 36 BEGIN expected Нужен BEGIN 37 END expected Нужен END Следует проверить соответствие ключевых слов BEGIN и END. 38 Integer expression expected Нужно выражение типа INTEGER Предыдущее выражение должно иметь целочисленный тип INTEGER 39 Ordinal expression expected Нужно выражение порядкового типа Предшествующее выражение должно иметь порядковый тип. 40 Boolean expression expected Нужно выражение типа BOOLEAN Предшествующее выражение должно иметь тип BOOLEAN 41 Operand types do not math operator Типы операндов не соответствуют оператору Данный оператор не может быть применен к операндам этого типа, например, нельзя ‘A’ разделить на ‘2’. 42 Error in expression Ошибка в выражении Данный идентификатор не может участвовать в выражении указанным образом. 43 Illegal assignment Неверное присваивание § Нетипизированным файлам и переменным нельзя присваивать значения.

§ Идентификатору функции можно присваивать значения только внутри раздела операторов данной функции.

44 Field identifier expected Нужен идентификатор поля Данный идентификатор не является полем предшествующей переменной типа «запись». 45 Object file too large Объектный файл слишком большой Нельзя компоновать файлы .obj, превышающие 64 Кбайт. 46 Undefined external Не определена внешняя процедура Внешняя процедура или функция не имеет соответствующего определения Public в объектном файле. Убедитесь, что вы указали все объектные файлы в директивах {$L имя_файла}, и проверьте написание идентификаторов процедуры или функции в файле .asm. 47 Invalid object file record Неправильная запись объектного файла Файл .obj содержит неверную объектную запись. Убедитесь, что данный файл является действительно файлом .obj. 48 Code segment too large Сегмент кода слишком большой Максимальный размер кода программы или программного модуля равняется 65 520 байт. Если вы компилируете программный модуль, разбейте его на два или более программных модулей. 49 Data segment too large Сегмент данных слишком велик Максимальный размер сегмента данных равен 65 520 байт, включая данные, описываемые используемыми программными модулями. Если вам нужно большее количество глобальных данных, опишите большие структуры с помощью указателей и выделяйте для них память динамически с помощью процедуры New. 50 DO expected Нужен оператор DO 51 Invalid PUBLIC definition Неверное определение PUBLIC § Две или более директивы PUBLIC на языке ассемблера определяют один и тот же идентификатор.

§ Объектный файл .obj определяет идентификаторы PUBLIC, которые не находятся в сегменте CODE.

52 Invalid EXTRN definition Неверное определение EXTRN § На идентификатор имеется ссылка в директиве EXTRN на языке ассемблера, но он не описан в программе или модуле на Паскале или в интерфейсной части какого-либо из используемых модулей.

§ Идентификатор обозначает абсолютную переменную.

§ Идентификатор обозначает процедуру или функцию типа inline.

53 Too many EXTRN definition Слишком много определений EXTRN Невозможно обработать файлы .obj, если имеется более чем 256 EXTRN. 54 OF expected Требуется OF 55 INTERFACE expected Требуется интерфейсный раздел 56 Invalid relocatable reference Недопустимая перемещаемая ссылка § Файл .obj содержит данные и перемещаемые ссылки в сегментах, отличных от CODE. Например, вы пытаетесь описать инициализированные переменные в сегменте DATA.

§ Операнд ссылается на процедуру EXTRN или функцию EXTRN со смещением, например CALL SortProc+8.

57 Then expected Требуется THEN В нужном месте отсутствует слово then. 58 TO or DOWNTO expected Требуется TO или DOWNTO В нужном месте отсутствует ключевое слово TO или DOWNTO. 59 Undefined forward Не определено опережающее описание § Процедура или функция были описаны в интерфейсном разделе программного модуля, но их определение отсутствует в разделе реализации.

§ Процедуры или функции были описаны с помощью описания forward, но их определение не найдено.

61 Invalid typecast Неверное преобразование типа § Размеры ссылки на переменную и тип результата отличаются друг от друга при изменении типа переменной.

62 Division by zero Деление на нуль Предшествующая операция пытается выполнить деление на нуль. 63 Invalid file type Неверный файловый тип Данный файловый тип не обслуживается процедурой обработки файлов. Например, вы пытаетесь использовать процедуру Readln для типизированного файла или процедуру Seek для текстового. 64 Cannot Read or Write variables of this type Нельзя считать или записать переменные данного типа Процедуры Read и Readln могут считывать переменные символьного, целого, вещественного и строкового типа. 65 Pointer variable expected Нужно использовать переменную-указатель Предыдущая переменная должна иметь тип «указатель». 66 String variable expected Нужна строковая переменная Предшествующая переменная должна иметь строковый тип. 67 String expression expected Нужно выражение строкового типа Предшествующее выражение должно иметь строковый тип. 68 Circular unit reference Циклическая ссылка на модуль Два модуля не могут ссылаться друг на друга в разделе interface, но могут это делать в разделе implementation. Переупорядочите операторы uses таким образом, чтобы циклические ссылки имели место только в разделе implementation. 69 Unit name mismatch Несоответствие имен программных модулей Имя программного модуля, найденное в файле .tpu, не соответствует имени, указанному в операторе uses. 70 Unit version mismatch Несоответствие версий программных модулей Один или несколько программных модулей, используемых данной программой, были изменены после их компиляции. Воспользуйтесь командой Compile?Make или Compile?Build в интегрированной интерактивной среде программирования, что позволит автоматически скомпилировать программные модули, нуждающиеся в перекомпиляции. 71 Internal stack overflow Переполнение внутреннего стека Внутренний стек компилятора исчерпан из-за слишком большого уровня вложенности операторов. Переорганизуйте исходный код и уменьшите уровень вложенности. Например, переместите внутренние уровни вложенных операторов в отдельную процедуру. 72 Unit file format error Ошибка формата файла программного модуля Файле .tpu является недействительным. Возможно, он создан с помощью старой версии Turbo Pascal или Borland Pascal. В этом случае нужно перекомпилировать исходный код модуля и создать новый модуль. 73 Implementation expected Требуется раздел реализации Ключевое слово Implementation отсутствует там, где оно должно быть. Возможно, вы включили реализацию процедуры, функции или метода в интерфейсную часть модуля. 74 Constant and case types do not math Типы констант и выражения оператора Case не соответствуют друг другу Тип константы оператора Case несовместим с выражением селектора в операторе выбора 75 Record variable expected Нужна переменная типа запись Предшествующая переменная должна иметь тип «запись». 76 Constant out of range Константа выходит за допустимые границы § Вы пытаетесь указать массив с константами, нарушающими границы.

§ Вы пытаетесь присвоить константу вне диапазона переменной.

§ Вы пытаетесь передать константу вне диапазона в качестве параметра процедуре или функции.

77 File variable expected Нужна файловая переменная Предшествующая переменная должна иметь файловый тип. 78 Pointer expression expected Нужно выражение типа указатель Предшествующая переменная должна иметь ссылочный тип. 79 Integer or real expression expected Нужно выражение типа real или integer Предшествующее выражение должно иметь тип real или integer. 80 Label not within current block Метка не находится внутри текущего блока Оператор goto не может ссылаться на метку, находящуюся вне текущего блока. 81 Label already defined Метка уже определена Данная метка уже помечает оператор. 82 Undefined label in processing statement part Неопределенная метка в предшествующем разделе операторов Данная метка была описана, и на нее осуществлялась ссылка в предшествующем разделе операторов, но она не определена. 83 Invalid @ argument Недействительный аргумент оператора @ Действительными аргументами являются ссылки на переменные и идентификаторы процедур или функций. 84 Unit expected Нужно ключевое слово Unit Не указано ключевое слово Unit, как это требуется. 85 «;» expected Нужно указать «;» Не указана, где это требуется, точка с запятой. 86 «:» expected Нужно указать «:» Не указана, где это требуется, двоеточие. 87 «,» expected Нужно указать «,» Не указана, где это требуется, запятая. 88 «(» expected Нужно указать «(» Не указана, где это требуется, открывающаяся круглая скобка. 89 «)» expected Нужно указать «)» Не указана, где это требуется, закрывающаяся круглая скобка. 90 «=» expected Нужно указать «=» Нужно указать знак равенства. 91 «:=» expected Нужно указать «:=» Требуется использовать операцию присваивания. 92 «[» or «(.» expected Нужно «[» or «(.» Требуется указать квадратную скобку или «(. ». 93 «]» or «.)» expected Нужно «]» or «.)» Требуется указать квадратную скобку или «.) ». 94 «.» expected Нужно «.» Требуется указать точку. Убедитесь, что тип не используется как переменная или что именем программы не переопределяется важный идентификатор другого модуля. 95 «..» expected Нужно «..» Требуется указать точки. Там, где это нужно, не указан диапазон. 96 Too many variables Слишком много переменных Общий размер глобальных переменных, описанных в программе или программном модуле, не может превышать 64 Кбайт.

Размер локальных переменных, описанных в программе или функции, не может превышать 64 Кбайт.

97 Invalid for control variable Недопустимая управляющая переменная оператора for Управляющая переменная оператора for должна быть переменной перечисляемого типа, определенной в разделе описаний текущей подпрограммы. 98 Integer variable expected Нужна переменная целого типа Предшествующая переменная должна иметь тип integer. 99 Files are not allowed here Здесь не допускаются файлы Типизированная константа не может иметь файловый тип. 100 String length mismatch Несоответствие длины Длина строковой константы не соответствует количеству элементов символьного массива. 101 Invalid ordering of fields Неверный порядок полей Поля в константе типа «запись» должны указываться в порядке их описания. 102 String constant expected Нужна константа строкового типа 103 Integer or real variable expected Нужна переменная типа integer или real Предшествующая переменная должна иметь целый или вещественный тип. 104 Character expression Ожидается символьные выражения 105 Compilation aborted Компиляция прервана 106 Error in statement Ошибка в операторе 107 Error in type Ошибка в типе 108 Expected Ожидается имя 109 Invalid floating point operation Неправильная операция для вещественных операндов 110 Ordinal variable expected Ожидается переменная целого или символьного типа 111 Too many symbols Слишком много символов 112 Undefined type Неопределенный тип 113 Abnormal program termination Ненормальное окончание программы 114 Ctrl-Break to quit нажмите CTRL и Break для входа 115 Disk is write-protected Диск защищен от записи 116 Disk read error Ошибка записи на диск 117 Disk write error Ошибка записи на диск 118 Drive not ready дисковод не готов (нет дискеты) 119 Error on execute Ошибка исполнения 120 Floating point overflow Вещественное переполнение 121 Hardware failure Ошибка оборудования 122 Heap overflow error Не хватает основной памяти 123 I/O checking Ошибка ввода/вывода 124 Invalid Breakpoint Неправильная точка останова 125 Invalid format specifier Неправильный формат 126 No debug info Не задана информация для отладки 127 Not enough memory Не хватает памяти 128 Press any key Нажмите любую клавишу 129 Program terminated Исполнение программы прекращено 130 Range check error Выход индекса за пределы массива 131 Runtime error Ошибка во время исполнения 132 Stack overflow error Ошибка по переполнению стека 133 Too many breakpoints Слишком много точек останова 134 Type EXIT to return to Turbo Pascal Введите Exit для возврата в Турбо Паскаль 135 User Break Пользователь прервал исполнение программы

Источник

Владимир

нужно равный корень перечислить через вторую степень, x не должен быть значимым .
у тебя коэффициент неправильно стоит

Источник

Предмет: Информатика,

автор: lolkekcheburashka

Ответы

Автор ответа: mariyalastovkioxxan1

паскаль не задаёт значения косинусных вещественных значений

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Биология,
автор: kirullboldyrev

найдите соответствие между аномалиями зрения и механизма их возникновения: 1)дальнозоркость,2)близорукость .А)лучи фокусируются впереди сетчатки,Б)укорочение глазного яблока,В)хрусталик выпуклый и сильно преломляет лучи,Г)лучи фокусируются позади сетчатки,Д)удлиненное глазное яблоко.помогите пожалуйста!!!!!!!!

4 года назад

Предмет: Математика,
автор: anenkoinnai15

Помогите с задачами, спасибо

4 года назад

Предмет: Математика,
автор: danagubkin

1 5/6 + 1/17 + 16/17

4 года назад

Предмет: Информатика,
автор: MamboFoxy

Продумайте и оформите любым удобным для вас способом решение следующей задачи.

Две хозяйки купили 8 литров молока. У одной 5 литров в 6 литровом бидоне, у другой 3 литра в 5 литровом бидоне. Они решили разделить всё молоко поровну, по 4 литра пользуясь ещё одним, 2 литровым бидоном. Как это сделать?

7 лет назад

Предмет: Информатика,
автор: Аноним

1. Запишите полные имена файлов Реферат.doc, Эскиз.bmp, Сумерки.avi

7 лет назад

Источник