ошибка operator is not overloaded - Паскаль, Turbo Pascal, PascalABC.NET

vavrenyuka · 03.04.2013, 19:50

Код:

var a: array [1..100, 1..100] of longint;
    b: array [1..100, 1..100] of longint;
    xk, yk, xs, ys, n, d, i, j: longint;
    s: real;
begin
  read(n);
  read(xk, yk);
  for xs := 1 to n do
  for ys := 1 to 2 do
  read(a[xs, ys]);
  for i := 1 to n do
   d := sqrt(sqr(a[xk]-a[xs]) + (a[yk]-a[ys]));
  for i := 1 to n do
  s := s+d;
  write(s:0:2);
end.

Ошибка: operator is not overloaded

Помогите исправить пожалуйста, буду очень благодарен
Я новичёк, не понимаю в чём дело...

Вот задача: Безымянный.jpg

eoln · 03.04.2013, 19:57

Где ошибка? В какой строке?
Переменная d целочислена, а ей вещественные значения присваиваются (в результате извлечения корня)
Паскаль не старый надеюсь? Иначе столько памяти ему не потянуть

Вадим Мошев · 03.04.2013, 20:08

Вот у меня и ругался на то, что памяти слишком много скушано.
Советую все сотни заменить на 10, а тип longint заменить на byte

в коде не разбирался, а по алгоритму могу посоветовать вот что.
1. Ищем расстояние от дома до каждого спонсора.
2. Суммируем эти расстояния.
3. Удваиваем сумму, это и будет результатом.

alexander13 · 03.04.2013, 20:08

Код:

 a: array [1..100, 1..100] of longint;
...
d := sqrt(sqr(a[xk]-a[xs]) + (a[yk]-a[ys]));

upd.
Что-то подсветка кода все испортила.. Смысл моего сообщения в том, что Вы производите очень странную операцию с двумерным массивом.

vavrenyuka · 03.04.2013, 20:12

Спасибо за ответы, ошибка осталась, кто-нибудь помогите, пожалуйста, решить эту задачу...
Я хоть правильно делать начал? А то в Паскале дуб дубом

Вадим Мошев · 03.04.2013, 20:12

Что-то я тупеть начал. Довольно долго до меня допирало, что индекс массива a должен быть ДВОЙНОЙ, поскольку массив - двумерный!

Может оттого, что мозги мои заняты другим?

vavrenyuka · 03.04.2013, 20:15

А код не подскажите ?

Вадим Мошев · 03.04.2013, 20:17

Я не знаю, я не копался в коде. Советую заново решить задачу по предложенному мной алгоритму:

Цитата:

1. Ищем расстояние от дома до каждого спонсора.
2. Суммируем эти расстояния.
3. Удваиваем сумму, это и будет результатом.

vavrenyuka · 03.04.2013, 20:19

Вадим, не подскажите как искать расстояние ?
d := sqrt(sqr(a[xk]-a[xs]) + (a[yk]-a[ys])); ?

Вадим Мошев · 03.04.2013, 20:25

Математическими формулами.

Пусть (hx, hy) - координаты точки, где живёт карлсон.
(xi, yi) - это координаты i-го спонсора.

Расстояние от дома до спонсора находится так
sqrt(sqr(xi-hx) + sqr(yi-hy))

03.04.2013, 19:50	#1
vavrenyuka Новичок Джуниор Регистрация: 03.04.2013 Сообщений: 8	ошибка operator is not overloaded Код: `var a: array [1..100, 1..100] of longint; b: array [1..100, 1..100] of longint; xk, yk, xs, ys, n, d, i, j: longint; s: real; begin read(n); read(xk, yk); for xs := 1 to n do for ys := 1 to 2 do read(a[xs, ys]); for i := 1 to n do d := sqrt(sqr(a[xk]-a[xs]) + (a[yk]-a[ys])); for i := 1 to n do s := s+d; write(s:0:2); end.` Ошибка: operator is not overloaded Помогите исправить пожалуйста, буду очень благодарен Я новичёк, не понимаю в чём дело... Вот задача: Безымянный.jpg Последний раз редактировалось Stilet; 03.04.2013 в 22:00.

03.04.2013, 20:08	#3
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	Вот у меня и ругался на то, что памяти слишком много скушано. Советую все сотни заменить на 10, а тип longint заменить на byte в коде не разбирался, а по алгоритму могу посоветовать вот что. 1. Ищем расстояние от дома до каждого спонсора. 2. Суммируем эти расстояния. 3. Удваиваем сумму, это и будет результатом. Последний раз редактировалось Вадим Мошев; 03.04.2013 в 20:17.

03.04.2013, 20:08	#4
alexander13 Форумчанин Регистрация: 07.02.2013 Сообщений: 267	Код: `a: array [1..100, 1..100] of longint; ... d := sqrt(sqr(a[xk]-a[xs]) + (a[yk]-a[ys]));` upd. Что-то подсветка кода все испортила.. Смысл моего сообщения в том, что Вы производите очень странную операцию с двумерным массивом. Μολὼν λαβέ Последний раз редактировалось alexander13; 03.04.2013 в 20:11.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Missing operator or semicolon ошибка в алгоритме	Начинающий_Дэльфер	Помощь студентам	7	07.12.2012 18:01
возникает ошибка Missing operator or semicolon (классы)	fate	Общие вопросы Delphi	16	22.02.2011 19:12
ошибка: no match for ‘operator<<’ in ‘std::operator<< [with _Traits = std::char_traits<char>	Critter	Общие вопросы C/C++	5	08.08.2010 23:38
Ошибка. Operator not applicable to this oparand type	_-Re@l-_	Общие вопросы Delphi	6	29.06.2010 13:30
Почему ошибка? [DCC Error] main.pas(99): E2250 There is no overloaded version of 'StringReplace' ...	TwiX	Общие вопросы Delphi	5	19.11.2009 03:25

03.04.2013, 19:57	#2
eoln Старожил Регистрация: 26.04.2008 Сообщений: 2,645	Где ошибка? В какой строке? Переменная d целочислена, а ей вещественные значения присваиваются (в результате извлечения корня) Паскаль не старый надеюсь? Иначе столько памяти ему не потянуть

03.04.2013, 20:12	#5
vavrenyuka Новичок Джуниор Регистрация: 03.04.2013 Сообщений: 8	Спасибо за ответы, ошибка осталась, кто-нибудь помогите, пожалуйста, решить эту задачу... Я хоть правильно делать начал? А то в Паскале дуб дубом

03.04.2013, 20:15	#7
vavrenyuka Новичок Джуниор Регистрация: 03.04.2013 Сообщений: 8	А код не подскажите ?

03.04.2013, 20:19	#9
vavrenyuka Новичок Джуниор Регистрация: 03.04.2013 Сообщений: 8	Вадим, не подскажите как искать расстояние ? d := sqrt(sqr(a[xk]-a[xs]) + (a[yk]-a[ys])); ?

03.04.2013, 20:25	#10
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	Математическими формулами. Пусть (hx, hy) - координаты точки, где живёт карлсон. (xi, yi) - это координаты i-го спонсора. Расстояние от дома до спонсора находится так sqrt(sqr(xi-hx) + sqr(yi-hy))