Ввести с экрана координаты двух точек, найти расстояние между ними.
10-11 класс
|
var
x, x1, y, y1, d : Integer;
begin
Writeln('Введите координаты первой точки:');
Write('x: ');
Readln(x);
Write('y: ');
Readln(y);
Writeln('Введите координаты второй точки:');
Write('x: ');
Readln(x1);
Write('y: ');
Readln(y1);
d := sqrt( sqr(x1-x) + sqr(y1-y) );
Write('Расстояние между двумя точками: ', d);
Readln;
end.
Другие вопросы из категории
Вывести на экран - фамилию; - имя; - фамилию и инициалы.
не понимаю, если я даже и начну выводить фамилию, как сделать так. чтобы выделялось только до пробела? ведь фамилии у всех разные. а программа должна быть универсальной для всех фамилий (т.е. фамилия вводится с клавиатуры)
Читайте также
меньшая координата.
квадратный из выражения (x2-x1)^2 + (y2-y1)^2
исходные данные
3)масштаб карты 120 (кол-во км в одном см)
4)расстояние между точками изображающими населённые пункты если между ними 3.5 (см)...(должно выйти 420км)
5) расстояние между насел. пунктами ... км
Напишите пожалуйста программу. К завтрашнему дню надо. С Паскалем проблемы
Разработать, ввести в ЭВМ и отладить программу для
расчёта действительного расстояния между городами, если известно расстояние
между ними на карте и масштаб карты
1) определить время через которое встретятся два тела равноускоренно движущиеся навстречу друг другу,если известны их начальные скорости ускорения и начальное расстояние между ними.
2)даны целые числа m,n (0<m<или равно12,0<или равно n<60),указывающий момент времени:" m часов, n минут" .Определить наименьшеевремя(число полных минут),которое должно пройти до того момента когда часовая и минутная стрелки на циферблате совпадут.
ну оооочень нужно!!!!!!