Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Убрать апостроф после гласной https://www.cyberforum.ru/ turbo-pascal/ thread1060444.html
Если в средине слова после гласной стоит апостроф, то его убрать. Как это сделать? Помогите пожалуйста, заранее спасибо.
Turbo Pascal Вычислить и вывести на экран в виде таблицы значения функции, заданной графически
Вычислить и вывести на экран в виде таблицы значения функции, заданной графически, на интервале от xнач до xкон с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы....
Turbo Pascal Найти периметр десятиугольника, вершины которого имеют соответственно координаты (х1, у1), (х2, у2), …, (х10, у10)
Даны действительные числа х1, у1, х2, у2, …,х10, у10. Найти периметр десятиугольника, вершины которого имеют соответственно координаты (х1, у1), (х2, у2), …, (х10, у10). Определить процедуру...
Turbo Pascal По координатам концов трех отрезков определить вид треугольника (если данные отрезки позволяют его построить) 1. По координатам концов трех отрезков определить вид треугольника (если данные отрезки позволяют его построить). https://www.cyberforum.ru/ turbo-pascal/ thread1060412.html
Turbo Pascal Составить и отладить программу решения задачи с использованием рекурсивной функции https://www.cyberforum.ru/ turbo-pascal/ thread1060410.html
Составить и отладить программу решения задачи с использованием рекурсивной функции: Сложить два числа, используя только прибавление единицы.
Найти координаты трёх точек, которые образуют треугольник с наименьшей площадью Turbo Pascal
На плоскости заданы своими координатами N точек, заданные своими координатами. Найти координаты трёх точек, которые образуют треугольник с наименьшей площадью. Подпрограмма: площадь треугольника,...
Turbo Pascal Задан массив Z(N). Найти минимальное и максимальное числа в интервале чисел [–8; 7.5]
2. Задан массив Z(N). Найти минимальное и максимальное числа в интервале чисел . Все положительные числа переписать в новый массив А. Помогите пожалуйста.
Turbo Pascal Переписать программу для подпрограмм Program ShakerSort; Var A : array of integer; N,i,j,p : integer; Min, Max : integer; Begin {Определение размера массива A - N) и его заполнение} writeln('Введите... https://www.cyberforum.ru/ turbo-pascal/ thread1060373.html
Turbo Pascal Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных https://www.cyberforum.ru/ turbo-pascal/ thread1060364.html
Дан двумерный массив размерностью 6x5, заполненный случайным образом целыми числами. Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных. ...
Turbo Pascal Из массива A(N) составить новый B(N), включив в него все отрицательные числа, расположенные до первого нулевого 1. Из массива A(N) составить новый B(N), включив в него все отрицательные числа, расположенные до первого, равного нулю. Причем,если это число оказалось в конце массива, преобразовать массив А по... https://www.cyberforum.ru/ turbo-pascal/ thread1060342.html
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
30.12.2013, 08:49 0

Определить пару наиболее удаленных друг от друга окружностей

30.12.2013, 08:49. Показов 1083. Ответов 1
Метки (Все метки)

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

Решение

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses graph;
type okr=record
         x,y,r:longint;
         end;
var f:text;
    gd,gm,n,i,j,imx,jmx:integer;
    o:array[1..100] of okr;
    a:okr;
    d,mx:real;
    s,s1:string;
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
 begin
  read(f,a.x,a.y,a.r);
  n:=n+1;
  o[n]:=a;
 end;
close(f);
mx:=sqrt(sqr(o[1].x-o[2].x)+sqr(o[1].y-o[2].y))-o[1].r-o[2].r;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  d:=sqrt(sqr(o[i].x-o[j].x)+sqr(o[i].y-o[j].y))-o[1].r-o[2].r;
  if d>mx then
   begin
    mx:=d;
    imx:=i;
    jmx:=j
   end;
 end;
initgraph(gd,gm,'');
for i:=1 to n do
 begin
  circle(o[i].x,o[i].y,o[i].r);
  str(i,s);
  outtextXY(o[i].x,o[i].y,s);
 end;
setcolor(12);
if mx<=0 then outtextXY(250,240,'Net udalennyh okruznostey')
else
 begin
  circle(o[imx].x,o[imx].y,o[imx].r);
  str(imx,s);
  outtextXY(o[imx].x,o[imx].y,s);
  circle(o[jmx].x,o[jmx].y,o[jmx].r);
  str(jmx,s1);
  outtextXY(o[jmx].x,o[jmx].y,s1);
  outtextXY(200,240,'Naibolee udaleny okruznosti '+s+' i '+s1)
 end;
readln
end.


Вернуться к обсуждению:
Определить пару наиболее удаленных друг от друга окружностей
1
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.12.2013, 08:49
Готовые ответы и решения:

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

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

Напишите программу определения двух наиболее удаленных друг от друга точек
1. Координаты точек на плоскости заданы двумя массивами Х и У(в каждом по 10 элементов) . Напишите...

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

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