Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Протабулировать функцию на заданном интервале https://www.cyberforum.ru/ turbo-pascal/ thread756905.html
на интервале 0,1<=t<=1,0 с шагом дельта t=0,2 протабулировать функцию Лямбда=(t^2+2x*cost)/6x+t^3)+((x+t)^2+2x*cos(x+t))/6x+(x+t)^3
Turbo Pascal Создать функцию , удаляющую из заданной строки все последовательности символов
создать функцию , удаляющую из заданной строки все последовательности символов ,находящиеся между корректно записанными круглыми скобками, вместе с этими скобками . скобки могут быть вложенными ...
Turbo Pascal Сделаете пожалуйста блок схему к написанной программе
const n=4; var b: array of integer; i,j,imin: byte; s,tmp: integer; begin writeln('Исходный массив:'); for i:=1 to n do begin
Turbo Pascal Ошибка в коде Привет.Пишу простенький код выдает ошибку. Error 85: ";" expected. Проверял вроде везде расставил знаки препинания.Подскажите где ошибка пожалуйста.Вот код... program four color; uses crt; ... https://www.cyberforum.ru/ turbo-pascal/ thread756760.html
Turbo Pascal Вычислить сумму ряда https://www.cyberforum.ru/ turbo-pascal/ thread756651.html
Помогите сделать 2 лабы ! В обеих надо сделать задачи под №5 ! В паскале !
Turbo Pascal Найти в массиве А1 круг, площадь которого максимальна
Задача: Задать массив А1 длиной N, содержащий записи о параметрах кругов. Каждая запись этого массива должна включать случайные координаты центра круга из интервала и случайный радиус из интервала ,...
Turbo Pascal База данных, треугольники
Написать программу, которая анализирует координаты вершин треугольника, введенные с клавиатуры в массив А0, и помещает их в один из трёх массивов: А1 (равносторонние треугольники), А2 (равнобедренные...
Turbo Pascal Дана непустая последовательность символов Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности буквы от 'G' до 'N' и цифры от '0' до '9'. https://www.cyberforum.ru/ turbo-pascal/ thread756532.html
Turbo Pascal Дана целочисленная квадратная матрица А порядка N. Отсортировать строки матрицы по возрастанию минимальных элементов каждой строки https://www.cyberforum.ru/ turbo-pascal/ thread756528.html
Дана целочисленная квадратная матрица А порядка N. Отсортировать строки матрицы по возрастанию минимальных элементов каждой строки. Спасибо
Turbo Pascal Перестановка первой и последней цифр числа Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над числами: 1) Вычисление суммы цифр числа 2)Перестановка первой и последней цифр числа Используя модуль решить... https://www.cyberforum.ru/ turbo-pascal/ thread756527.html
3735 / 2688 / 614
Регистрация: 08.06.2007
Сообщений: 9,259
Записей в блоге: 4
09.01.2013, 18:27 0

Определить пару наиболее удаленный друг от друга точек.

09.01.2013, 18:27. Показов 975. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Татьяна777 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program LongSum;
{$APPTYPE CONSOLE}
type
    TPoint=array[1..2] of Double;
    TSet=array[1..4] of TPoint;
var
    iv, jv, i, j: Integer;
    d, dd: Double;
    a: TSet;
function dist(t1,t2: TPoint): Double;
begin
    dist := sqrt((t1[1]-t2[1])*(t1[1]-t2[1])+
                (t1[2]-t2[2])*(t1[2]-t2[2]));
end;
 
begin
    a[1][1] := 4.8;
    a[1][2] := -3;
    a[1][1] := -6.5;
    a[1][2] := 1.2;
    a[2][1] := -3.7;
    a[2][2] := 4.5;
    a[2][1] := 7.8;
    a[2][2] := 2;
    d := 0.0;
    iv := 0;
    jv := 0;
    for i:=1 to 3 do for j:=i+1 to 4 do
    begin
        dd:=dist(a[i],a[j]);
        if dd > d then
        begin
            d := dd;
            iv := i;
            jv := j;
        end
    end;
    WriteLn(iv:2, jv:2, d:8:3);
end.


Вернуться к обсуждению:
Определить пару наиболее удаленный друг от друга точек.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2013, 18:27

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

В случайном множестве точек соединить прямой линией две наиболее удаленные друг от друга
Поисковая система показала мне одну программу, решающую нечто подобное. Я был удивлён. Судя по...

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

Найти среди точек пару наиболее удаленных друг от друга
Даны n точек плоскости (x1,y2),...(xn,yn). Найти среди них пару наиболее удаленных друг от друга. ...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.