maris

Программа почему-то не считает сумму..., проверьте пожалуйста...
Задание. Написать программу для нахождения сумм расстояний от заданных k (k<=10) точек до фиксированной прямой (в пространстве). Подготовить и использовать процедуру определения расстояния от точки до прямой (в пространстве).
Код:
program proga;
uses crt;
const Kmax=10;
var S: real; a,b,c: real;
K,i: integer;
var x,y,z: array [1..Kmax] of real;
function calcdist(var a,b,c,x,y,z: integer):real;
begin
calcdist:=(a*x+b*y+c)/sqrt (a*a+b*b);
end {calcdist};
begin
write ('‚ўҐ¤ЁвҐ §**зҐ*Ёп Їаאַ© a: ');
readln (a);
write ('‚ўҐ¤ЁвҐ §**зҐ*Ёп Їаאַ© b: ');
readln (b);
write ('‚ўҐ¤ЁвҐ §**зҐ*Ёп Їаאַ© c: ');
readln (c);
write ('‚ўҐ¤ЁвҐ зЁб«® в®зҐЄ (<=10) ');
readln (K);
for i:= 1 to K do
begin
readln (x[i],y[i],z[i]);
end;
S:=0;
for i:= 1 to K do
begin
l:= (a*x[i]+b*y[i]+c)/ sqrt(a*a+b*b);
end {l};
begin
for i:= 1 to K do;
S:=S+l;
for i:= 1 to K do
readln (S);
end.

@Gluhow

1) Если Вы создаете функцию для рассчета расстояния то точки до прямой, то почему Вы ей не пользуетесь? Может быть потому что Ваша функция требует чисел на вход, а Ваши действительные?
2) Саму формулу расстояния не знаю, но меня сущает отсутствие в формуле Z-координаты точки
3) После ввода значения K, хорошо бы проверить что оно действительно меньше 10. Или хотя бы вставить что-то вроде
3) После того как Вы запросили у пользователя координаты точки, начинается мягко говоря некорректный код.

Вычисление расстояния до каждой из точек. При этом новое значение всегда перезаписывает старое. В итоге получится что в переменную l запишем расстояние до последней точки.

Затем идет бесполезное begin
Затем
Просто пустой цикл, который ничего не делает.
С учетом того что в S до этого был записан 0, то эквивалентно S:=l;
Затем
Код который должен K раз запросить значение S.

4) Вместо всего этого достаточно было:

0

maris

Все так понятно разъяснили, большое спасибо...))
Правда программа все-равно выделывается...
S:=S+calcdist(a,b,c,x[i],y[i],z[i]);
Пишет несоответствие типов, сотню раз пыталась исправить все-равно не идет...

@Gluhow

Ну про несоответствие типов был п.1
У вас функция описана как Т.е эта функция на вход ждет ЦЕЛЫЕ значения а выдает ДЕЙСТВИТЕЛЬНОЕ число. А Вы пытаетесь ей на вход подать ДЕЙСТВИТЕЛЬНЫЕ числа. Поэтому она и ругается. Правильное решение:

0

maris

Вот так не пруха...((
Все уже вроде впорядке и ошибок вроде нет и запускается и числа запрашевает, но не считает, и непонятно чего ей не хватает...((
???.

@Gluhow

Непруха - это когда после успешной отладки до сохранения электричество закончилось. Вы саму функцию проверили? Код в студию.

0