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

@Soldszar · Регистрация: 01.05.2010

Напишите программу вычисления расстояния между двумя точками с заданными координатами X1,Y1, X2,Y2, с использованием подпрограммы- процедуры.

@Жека-старший · 01.05.2010, 23:45

Pascal

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.

@Puporev · 02.05.2010, 10:07

Сообщение от Soldszar

использованием подпрограммы- процедуры.

Pascal

1	function f_dl(x1,y1,x2,y2:real):real;

@Жека-старший · 02.05.2010, 10:40

Пардон.

Pascal

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.

@Soldszar 0 / 0 / 1 Регистрация: 01.05.2010 Сообщений: 12
		1
	Программа вычисления расстояния между двумя точками с заданными координатами 01.05.2010, 23:41. Показов 28846. Ответов 3 Метки нет (Все метки) Напишите программу вычисления расстояния между двумя точками с заданными координатами X1,Y1, X2,Y2, с использованием подпрограммы- процедуры. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы