|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.09.2010, 23:17 | #1 |
Новичок
Джуниор
Регистрация: 25.09.2010
Сообщений: 2
|
Программа на цикле неверно выводит результаты
var n, i:integer;
k, x1, x2, y1, y2: real; begin readln (n); readln (x1, y1); for I := 2 to n do begin readln (x2, y2); k := sqrt(sqr(x2 - x1) + sqr(y2 - y1)); x1 := x2; y1 := y2; end; writeln (k : 0 : 3); readln ; end. Это программа для нахождения расстояния между точками по их координатам n-кол-во точек x,y-координаты,как вывести не последнее значение k(расстояние) а все и чтоб они были все в конце ? Последний раз редактировалось nox7; 25.09.2010 в 23:23. |
25.09.2010, 23:51 | #2 |
Форумчанин
Регистрация: 14.03.2010
Сообщений: 362
|
не совсем понял,может так?
Код:
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
|
25.09.2010, 23:58 | #3 |
Форумчанин
Регистрация: 14.03.2010
Сообщений: 362
|
вот так правильней
Код:
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
|
26.09.2010, 07:23 | #4 |
C++, Java
Старожил
Регистрация: 10.04.2010
Сообщений: 2,665
|
Может, я неправильно понял, но в цикле то не проще выводить если нужны расстояния между несколькими точками?
Код:
|
26.09.2010, 19:28 | #5 |
Новичок
Джуниор
Регистрация: 25.09.2010
Сообщений: 2
|
как в предложил _-Re@l-_ подошло,спасибо!!
Последний раз редактировалось nox7; 26.09.2010 в 21:10. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi7 - Почему Edit1.Text не выводит в цикле ? | vldnik | Помощь студентам | 8 | 28.03.2010 05:02 |
Программа компилируется но не выводит результат в метку | prikolist | Общие вопросы C/C++ | 2 | 24.03.2009 19:19 |
Проблема. программа на цикле начинает тупить | Василий | Общие вопросы Delphi | 15 | 11.01.2009 15:11 |