Incompatible types: 'Integer' and 'Extended'

[evgenext]

Здравствуйте.

uses
  SysUtils;
type
     TPoint=record
         x,y:real;
end;
var
     Points:array[1..30] of TPoint;
s,max,i,j,n:integer;
     begin
max:=0;
for i:=1 to n-1 do
    for j:=i+1 to n do begin
        s:=sqrt(sqr(points[i].x-points[j].x)+sqr(points[i].y-points[j].y));
        if s>max then begin
            max:=s;
            maxi:=i;
            maxj:=j;
        end;
        writeln('s=',s,'i=',i,'j=',j);
        readln;
    end;

Выдает ошибку Incompatible types: 'Integer' and 'Extended'.После строчки нахождения s.Помогите разобраться.
Сама задача:Даны координаты n точек на плоскости: (Xi, Yi), ..., (Хn, Yn) (n=30). Найти номера пары точек, расстояние между которыми наибольшее (считать, что такая пара единственная).

From artemavd: Во-первых. У нас принято код оформлять тегом #. Во-вторых. Будешь создавать в разных темах темы-клоны, быстро схлопочешь жесткий штраф от меня.

[Roof]

У тебя

s,max,i,j,n:integer;

а вот функция sqrt возвращает не integer, а Extended

function Sqrt(const X: Extended): Extended;

т.е ты целочисленной переменной пытаешься присвоить дробное значение.
Оформляй код тэгами CODE - кнопка решеточка, в редакторе, где сообщение набираешь.

[Johnson]

s:=trunc(sqrt(sqr(points[i].x-points[j].x)+sqr(points[i].y-points[j].y)));
если точность округления Вас устроит...

[Serge_Bliznykov]

s:=trunc(sqrt(sqr(points[i].x-points[j].x)+sqr(points[i].y-points[j].y)));

если точность округления Вас устроит...

не учите новичка плохому!!
1) trunc - это не округление, а отбрасывание дробной части!
а во-вторых, зачем использовать округление там, где оно не нужно!?!?

p.s. достаточно так описать данные, чтобы всё компилировалось:

var
  Points:array[1..30] of TPoint;
  i,j,n:integer;
  maxi, maxj : integer;
  s,max : extended;

только автору топика это всё равно не поможет!
т.к.:
1) n - нужно задать (например, n := 30;
2) нужно заполнить массив координат точек - сами по себе они ниоткуда не появятся.
3) нет вывода результата...

[_-Re@l-_]

Да и вообще использование типа Extended вроде бы как возможно только при наличии арифметического сопроцессора...Как и Double и Single(по крайней мере, так было в TP 7)

[Serge_Bliznykov]

uses
  SysUtils;

судя по этой строчке, речь идёт о Delphi - там с сопроцессором всё в порядке...

[_-Re@l-_]

Между прочим, арифметический сопроцессор не имеет никакого отношения к Delphi - сопроцессор - это

Для процессоров семейства x86 с 8086/8088 по 386, модуль операций с плавающей запятой был выделен в отдельную микросхему, называемую математическим сопроцессором. Для установки сопроцессора на плате компьютера предусматривался отдельный разъём.

Сопроцессор не является полноценным процессором, так как не умеет делать многих необходимых для этого операций (например, не умеет работать с программой и вычислять адреса памяти), являясь всего лишь придатком центрального процессора.

Одна из схем взаимодействия центрального процессора и сопроцессора, применяемая, в частности, в x86 сопроцессорах, реализуется следующим образом:
Сопроцессор подключен к шинам центрального процессора, а также имеет несколько специальных сигналов для синхронизации процессоров между собой.
Часть командных кодов центрального процессора зарезервирована для сопроцессора, он следит за потоком команд, игнорируя другие команды. Центральный процессор, наоборот, игнорирует команды сопроцессора, занимаясь только вычислением адреса в памяти, если команда предполагает к ней обращение. Центральный процессор делает цикл фиктивного считывания, позволяя сопроцессору считать адрес с адресной шины. Если сопроцессору необходимо дополнительное обращение к памяти (для чтения или записи результатов), он выполняет его через захват шины.
После получения команды и необходимых данных сопроцессор начинает её выполнение. Пока сопроцессор выполняет команду, центральный процессор выполняет программу дальше, параллельно с вычислениями сопроцессора. Если следующая команда также является командой сопроцессора, процессор останавливается и ожидает завершения выполнения сопроцессором предыдущей команды.
Также существует специальная команда ожидания (FWAIT), принудительно останавливающая процессор до завершения вычислений (если для продолжения программы необходимы их результаты).

[Пепел Феникса]

(по крайней мере, так было в TP 7)

вот именно что в TP и в те времена.
сейчас на крайняк есть эмуляция сопроцессора.
(и сейчас процы имеют его)

не надо умничать

[Serge_Bliznykov]

Пепел Феникса, спасибо, коллега.

Сообщение от _-Re@l-_

Между прочим, арифметический сопроцессор не имеет никакого отношения к Delphi

_-Re@l-_, поучите меня, поучите...
только учтите, что я, в отличии от Вас сталкивался с машинами, где мат.сопроцессор был на материнке отдельно, и с машинами, где его не было...

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

{$E} Emulation Switch
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Enables or disables linking with an
80x87-emulating run-time library

Syntax: {$E+} or {$E-}
Default: {$E+}
Type: Global
Menus: [X] Emulation

Target:
Real mode, Protected mode The $E directive
enables or disables linking with a run-time
library that emulates the 80x87 numeric
coprocessor if one is not present.

The {$N+,E+} State When you compile a program
in the {$N+,E+} state, the compiler links with
the full 80x87 emulator.

The resulting .EXE file can be run on any
machine, regardless of whether that machine
has an 80x87. If an 80x87 is present, the
program will use it; otherwise, the run-time
library emulates it.

The {$N+,E-} State In the {$N+,E-} state, the
compiler links with a substantially smaller
floating-point library, which can only be used
if an 80x87 is present at run time.

The {$E} (80x87 emulation) switch has no
effect if used in a unit; it applies only to
the compilation of a program.

The {$N-,E+} State If the program is compiled
in the {$N-} state, and if all the units used
by the program were compiled with {$N-}, then
an 80x87 run-time library is not required, and
the 80x87 emulation switch is ignored.

[_-Re@l-_]

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

Уж простите, не знал. Но спасибо - я нашёл как это сделать, и теперь и Extended, и Double, и Single - всё работает