Программа нахождения суммы.

01.12.2011, 19:49. Показов 466. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Программа почему-то не считает сумму..., проверьте пожалуйста...
Задание. Написать программу для нахождения сумм расстояний от заданных k (k<=10) точек до фиксированной прямой (в пространстве). Подготовить и использовать процедуру определения расстояния от точки до прямой (в пространстве).
Код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

01.12.2011, 19:49

Ответы с готовыми решениями:

Программа для нахождения суммы
Найти сумму \sum_{x=1}^{50}\frac{1}{x^^5}

Программа для нахождения суммы ряда
найти сумму ряда: s=1/x-1/(3x^3 )+1/(5x^5 )-… при x=1,5 с заданной точностью 0,01

Программа для нахождения суммы / произведения заданного ряда.
1. Дано действительное а и натуральное n. Вычислить: y = a (a-n) (a-2n) (a-3n) ... (a-n2) 2. Дано действительное х и натуральное n....

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

01.12.2011, 19:49

Помогаю со студенческими работами здесь

нахождения суммы чисел
написать программу нахождения суммы чисел от A до В кратных N . Заранее спасибо, за помощь.

Нахождения суммы ряда
Составить алгоритм и программу нахождения суммы ряда с заданной точкой Е. Использовать рекуррентные соотношения при вычислении очередного...

процедура нахождения суммы
составить процедуру нахождения суммы \sum_{k=1}^{n}\sum_{i=1}^{m}{a}_{i}^k,а-вещественный массив.

Написать процедуру нахождения суммы
Написать процедуру нахождения суммы большего и меньшего из трех чисел.

программы нахождения суммы элементов
Напишите программу нахождения суммы элементов, находящихся на главной диагонали. Напишите программу нахождения суммы элементов,...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

Наверх