Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Сформировать новый массив, состоящий из элементов исходного в заданном интервале Написать программу которая формирует новый массив, состоящий из элементов исходного массива.значение которых находиться в интервале https://www.cyberforum.ru/ pascal/ thread117380.html	Сумма факториалов всех нечетных значений от 1 до n Pascal Написать программу которая вычисляет сумму факториалов всех нечетных значений от 1 до n
Pascal Написать программу на множество Помогите решить задачу: В файле записан текст. Вывести на экран все глухие согласные буквы, которые не входят только в одно слово. https://www.cyberforum.ru/ pascal/ thread117376.html	Pascal Не найду ошибку в умножении вектора на матрицу https://www.cyberforum.ru/ pascal/ thread117375.html Дана матрица A(nxn) и вектор х(х1,х2,...,хn). Найти произведение вектора на матрицу. Программа идет, но результат не верный. Program lr1; uses crt; const n =3; var A: array of integer;c,x: array of integer; i,j,k:integer; begin clrscr; randomize; for i:=1 to n do begin
паскаль, ошибка 105... Pascal Общее условие:Заполнение массива случайными целыми значениями из диапазона - 50 до 50 . Размеры массива м или n взять постоянными, равными целым числам от 5 до 10 требуется выводить на экран массив до сортировки и после сортировки. Задача:дана целочисленная прям. Матрица размера м/N . Таким образом переставить строки матрицы, чтобы их первые элементы располагались в порядке неубывания. Метод...	Pascal Найти произведение двух заданных квадратных матриц https://www.cyberforum.ru/ pascal/ thread117371.html здрасьте!!!! у меня тут есть задача с массивами....помогите кто-нибудь ее решить...... Найти произведение двух заданных квадратных (n*n ) матриц.
Pascal В двухмерном массиве найти наибольший элемент https://www.cyberforum.ru/ pascal/ thread117359.html В двохвимірному масиві знайти найбільший елемент і обчислити суми всіх елементів стовпця і всіх елементів рядка, які утримують цей елемент.	Pascal Сумма и количество отрицательных элементов, стоящих на чётных местах во 2-ом столбце матрицы (с процедурой) Для каждого из массивов: C={C}, i=1..N, j=1..k=1; D={D}, i=1..N, j=1..k=2; Z={Z}, i=1..N, j=1..k=3 вычислить сумму и количество отрицательных элементов , стоящих на чётных местах во 2-ом столбце. N1, K1, N2, K2, N3, K3 - целые, не больше 10, 15, 20, 9, 16 и 20 соответственно. Результаты получить отдельно для каждого массива. Использовать PROCEDURE.
Pascal работа со строками https://www.cyberforum.ru/ pascal/ thread117347.html Помогите разобраться в программе! Создать файл, содержащий текст, длина которого не превышает 700 символов (длина строки текста не должна превышать 70 символов).Написать программу, которая: а) выводит текст на экран дисплея б) выводит текст на экран ещё раз, меняя в нём местами заданные слова (слова вводить с клавиатуры). Написать программу, не используя библиотечные функции ввода/вывода....	Pascal Задание поля точек на плоскости Здравствуйте! Как задать поле точек случайно распределенных на плоскости. Спасибо. https://www.cyberforum.ru/ pascal/ thread117342.html
Пузырьковым методом отсортировать целочисленную квадратную матрицу Pascal Помогите пожалуйста, очень срочно нужно решить. Пузырьковым методом отсортировать целочисленную квадратную матрицу. Элементы под главной диагональю-по не возрастанию, элементы на и выше главной диагонали-по не убыванию. Добавлено через 50 минут кто-нибудь ну отзовитесь пожалуйста	Pascal текст https://www.cyberforum.ru/ pascal/ thread117331.html Дан текст на русском языке.напечатать в алфавитном парядке те согласные буквы, которые не входят ни в одного слова.

кот Бегемот

Платежеспособный зверь

8926 / 4354 / 1642

Регистрация: 28.10.2009

Сообщений: 11,568

15.04.2010, 22:01

Найти среди точек пару наиболее удаленных друг от друга - Pascal - Ответ 664100

15.04.2010, 22:01. Показов 7545. Ответов 6

Метки (Все метки)

Ответ

Pascal

max:=0;
for i:=1 to n do
for j:=1 to n do
r:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
if r>max then begin
max:=r;
x1:=x[i];
y1:=y[i];
x2:=x[j];
y2:=y[j];
end;
writeln('1 tochka=',x1,' ',y1);
writeln('2 tochka=',x2,' ',y2);
readln;
end.

Ввод точек, надеюсь, сам сможешь дописать

Добавлено через 1 минуту
Puporev, ты шустрее меня

Вернуться к обсуждению:
Найти среди точек пару наиболее удаленных друг от друга Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.04.2010, 22:01

Готовые ответы и решения:

Определить пару наиболее удаленных друг от друга точек
Четыре точки заданны координатами А(4,8,2) ; В(-6,5,I.2) ; С(-3,7,-4.5) ; D(7,8,2). Определить...

Найти номера и координаты точек, наиболее удаленных друг от друга
Задано N точек своими координатами. Найти номера и координаты точек, наиболее удаленных друг от...

Найти номера и координаты точек, наиболее удаленных друг от друга
Здравствуйте, кто может помогите с задачами: 1.Задано N точек своими координатами. Найти номера и...

	15.04.2010, 22:01

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.04.2010, 22:01

Помогаю со студенческими работами здесь

Рекурсия: найти пару треугольников, максимально удаленных друг от друга
Пусть дано n треугольников, заданных координатами своих вершин. Найдите пару треугольников,...

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

Определить пару наиболее удаленных друг от друга окружностей
помогите решить задачу. На плоскости задано n произвольно расположенных окружностей. Определить...

Определить номера наиболее удаленных друг от друга точек
В одномерном массиве с количеством элементов 2N содержатся координаты N точек плоскости. Они...

Наверх