|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.12.2011, 19:45 | #1 |
Регистрация: 14.11.2011
Сообщений: 3
|
Программа нахождения суммы.
Программа почему-то не считает сумму..., проверьте пожалуйста...
Задание. Написать программу для нахождения сумм расстояний от заданных 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. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа нахождения суммы (Pascal) | Forgotten | Помощь студентам | 1 | 24.10.2011 14:14 |
Написать программу нахождения суммы | gylayko | Помощь студентам | 3 | 07.10.2011 00:03 |
программа нахождения суммы | Pchelka1992 | Помощь студентам | 8 | 05.04.2011 19:18 |
нахождения минимальной суммы N | Анюта01 | Помощь студентам | 13 | 19.03.2010 17:09 |
нахождения суммы ряда с заданной точностью E | pinch000 | Общие вопросы C/C++ | 1 | 06.11.2009 13:03 |