0 / 0 / 1
Регистрация: 01.05.2010
Сообщений: 12
1

Программа вычисления расстояния между двумя точками с заданными координатами

01.05.2010, 23:41. Показов 28846. Ответов 3
Метки нет (Все метки)

Напишите программу вычисления расстояния между двумя точками с заданными координатами X1,Y1, X2,Y2, с использованием подпрограммы- процедуры.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.05.2010, 23:41
Ответы с готовыми решениями:

Найти расстояние между двумя точками с заданными координатами
Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2).

Найти расстояние между двумя точками с заданными координатами
Решите плиииз легенькую задачку) Очень надо Найти расстояние между двумя точками с заданными...

Найти расстояние между двумя точками с заданными координатами
9. Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2).

Найти расстояние между двумя точками с заданными координатами
Найти расстояние между двумя точками с заданными координатами (х1,у1),(х2,у2).

3
Студент
498 / 344 / 162
Регистрация: 15.03.2010
Сообщений: 601
01.05.2010, 23:45 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var x1,x2,y1,y2:real;
function f_dl(x1,y1,x2,y2:real):real;
begin
  f_dl:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
  writeln('Введите координаты точки x1,y1');
  readln(x1,y1);
  writeln('Введите координаты второй точки x2,y2');
  readln(x2,y2);
  writeln(f_dl(x1,y1,x2,y2));
end.
1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
02.05.2010, 10:07 3
Цитата Сообщение от Soldszar Посмотреть сообщение
использованием подпрограммы- процедуры.
Pascal
1
function f_dl(x1,y1,x2,y2:real):real;
1
Студент
498 / 344 / 162
Регистрация: 15.03.2010
Сообщений: 601
02.05.2010, 10:40 4
Пардон.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var x1,x2,y1,y2,dl:real;
procedure pr_dl(x1,y1,x2,y2:real; var dl:real);
begin
  dl:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
  writeln('Введите координаты точки x1,y1');
  readln(x1,y1);
  writeln('Введите координаты второй точки x2,y2');
  readln(x2,y2);
  pr_dl(x1,y1,x2,y2,dl);
  writeln('Расстояние мжду точками равно ',dl:10:3);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.05.2010, 10:40
Помогаю со студенческими работами здесь

Определить расстояние между двумя точками, заданными своими координатами
разработать процедуру, определяющую расстояние между двумя точками, заданными своими координатами....

Функция вычисления расстояния между двумя точками на плоскости
Составить функцию вычисления расстояния между двумя точками на плоскости. С ее помощью вычислить...

Определить функцию вычисления расстояния между двумя точками задаными своими координатами
Решите пожалуйста с обьяснениями(желательно) и как можно проще

Определить процедуру вычисления расстояния между двумя точками, заданными координатами
даны действительные числа икс1,икс2,игрик1,игрик2..икс10,игрик10.Найти периметр...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru