Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Заменить элементы матрицы по условию В задании сказано: Все элементы матрицы X n,n лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали. https://www.cyberforum.ru/ turbo-pascal/ thread316498.html Определить радиус и центр окружности Turbo Pascal
а)определить радиус и центр окружности,на которой лежит наибольшее число точек заданного на плоскости множества точек
Turbo Pascal Как исправить ошибку №14? Завтра сдаю курсовую, в Паскале - как в темном лесу, помогите пожалуйста. Есть задача: дан массив чисел, найти значение максимального элемента. Программу написала, в компьютерном классе проверила - все работает. Program Massiv1; Uses WinCRT; Var max: real; n,i: integer; a: array of real; https://www.cyberforum.ru/ turbo-pascal/ thread316478.html Turbo Pascal файлы.Создать файлы f и g, компонентами которых являются целые случайные числа. Записать в файл h все совпадающие компоненты файлов f и g. https://www.cyberforum.ru/ turbo-pascal/ thread316477.html
Создать файлы f и g, компонентами которых являются целые случайные числа. Записать в файл h все совпадающие компоненты файлов f и g.
Программа на записи.Решите пожалуйста. заранее благодарен! Turbo Pascal
Составить базу данных для товарного склада, предусмотрев поля: наименование товара, его количество, его цена, срок хранения. Составить програму позволяющую вывести: -все данные о товарах -список товаров определённого срока хранения -0бщую стоимость всех товаров. решить используя процедуры!
Turbo Pascal В каждой строке матрицы найти минимальный элемент https://www.cyberforum.ru/ turbo-pascal/ thread316445.html
Ребят, ооочень нужно эти задачки решить... пожалуйста, помогите мне, а то до 2го экзамена не допустят...уже один пропустил(((( 23. Дана матрица размера MхN. В каждой строке матрицы найти минимальный элемент. 39. Дана целочисленная матрица размера MхN. Найти количество ее столбцов, все элементы которых различны. 54. Дана матрица размера MхN. Поменять местами столбец с номером N и первый...
Turbo Pascal Пересечение прямой треугольника uses crt; var k,b,x,y :real; r:byte; begin clrscr; x>=0; y>=0; 1-x-y>=0: writeln ('Введите коэффициенты прямой k,b:'); readln(k,b); https://www.cyberforum.ru/ turbo-pascal/ thread316442.html Turbo Pascal Найдите самую длинную строку в файле
здравствуйте программисты. нужна помощь в написании программы по теме текстовые файлы. просмотрите мой вариант программы, я думаю что должен быть другой способ решения, и можно его решить более простым способом. просьба помочь задача: дан текстовый файл. найдите и распечатайте самую длинную строку если таковая не единственная распечатать первую код: const m=50; n =10; var...
Turbo Pascal Вывести файл до замены и после замены. https://www.cyberforum.ru/ turbo-pascal/ thread316435.html
Нужно что бы было видно файл до замены и после замены. Program fail; uses crt; var f:text; ct: array of string; i,n:integer; c:string; begin clrscr;
Turbo Pascal Массивы https://www.cyberforum.ru/ turbo-pascal/ thread316429.html
Провести преобразования с массивами 1.Из последовательности вещественых чисел C=(c1,c2,c3,..,cn),n<=15 , получить последовательность x=(x1 ,x2 ,x3 , … xn) по правилу x1=c1, x2=c1+(c2)^2, x3= c1+(c2)^2+(c3)^3, .. . В новой последовательности определить количество элементов превышающих некоторую заданную величину d. Затем упорядочить элементы массива по убыванию.
Turbo Pascal Исправить ошибку в коде
program rgr; type mas1=array of integer; mas2=array of integer; procedure vv(var a:mas1); var i,j:byte; begin for i:=1 to n do for j:=1 to n do begin readln(a); end; end;
Turbo Pascal Разработать модуль определяющий количество заглавных букв латинского алфавита в заданной строке знаков Разработать модуль определяющий количество заглавных букв латинского алфавита в заданной строке знаков. Исходная строка вводится с клавиатуры в основной программе. https://www.cyberforum.ru/ turbo-pascal/ thread316408.html
1 / 1 / 1
Регистрация: 09.06.2011
Сообщений: 10
0

Нахождение расстояния между двумя точками - Turbo Pascal - Ответ 1742748

09.06.2011, 12:12. Показов 4098. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Коллеги помогите пожалуйста решить данную задачу по паскалю. Или просто объясните алгоритм действия в данной ситуации, т.к. логически понять её не могу.

Написать функцию для нахождения расстояния между двумя точками. С помощью этой функции найти для заданных N точек плоскости пару наиболее удаленных друг от друга.

Заранее спасибо друзья.

Вернуться к обсуждению:
Нахождение расстояния между двумя точками Turbo Pascal
0
Лучшие ответы (1)
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2011, 12:12
Готовые ответы и решения:

Нахождение расстояния между точками
Четыре точки заданы своими координатами X(x1, x2), Y(y1, y2), Z(z1, z2), P(p1, p2). Выяснить, какие...

Нахождение расстояния между точками
Помогите пожалуйста решить задание! Даны две точки в n-мерном пространстве X=(х1, х2, ..., хn),...

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

Нахождение максимального расстояния между тремя точками
Здравствуйте! Необходимо написать программу, вычисляющую максимальное расстояние между тремя...

1
09.06.2011, 12:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2011, 12:12
Помогаю со студенческими работами здесь

Найти периметр и площадь треугольника, используя формулу для расстояния между двумя точками на плоскости
Даны координаты трех вершин треугольника : (x1,y1,x2,y2,x3,y3 ).Найти его периметр и площадь,...

Составить программу определения максимального расстояния между двумя точками из некоторой совокупности точек трехмерного пространства
Составить программу определения максимального расстояния между двумя точками из некоторой...

Поиск расстояния между точками
Задачка такая: Попросить пользователя ввести X и Y, загрузить из файла другие координаты. Выбрать...

Найти расстояния между тремя точками
Подпрограммы с типизированными параметрами-значениями и параметрами-переменными. С помощью...

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