Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
никита
0 / 0 / 0
Регистрация: 26.03.2012
Сообщений: 11
#1

В одномерном массиве с количеством элементов 2N содержатся координаты N точек плоскости.

26.03.2012, 10:12. Просмотров 1445. Ответов 5
Метки нет (Все метки)

В одномерном массиве с количеством элементов 2N содержатся координаты N точек плоскости. Они располагаются в следующем порядке:x1,y1,x2,y2,x3,y3....и так далее. Определить минимальный радиус окружности с центром в начале координат, такой, что окружность содержит все точки.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2012, 10:12
Ответы с готовыми решениями:

В массиве даны координаты n точек плоскости
Решите плиззз В одномерном массиве с четным количеством элементов (2N) ...

В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости
В одномерном массиве с четным количеством элементов (2N) находятся координаты N...

У квадрата ABCD на плоскости известны координаты двух противоположных вершин - точек A и C. Найти координаты точек B и
У квадрата ABCD на плоскости известны координаты двух противоположных вершин -...

В одномерном массиве с четным количеством элементов (2N)
В одномерном массиве с четным количеством элементов (2N) находятся координаты...

Координаты точек плоскости
1. Даны две последовательности целых чисел а1, а2,..., аn и b1, b2,..., bn....

5
Puporev
Модератор
54412 / 41983 / 28996
Регистрация: 18.05.2008
Сообщений: 98,902
26.03.2012, 15:08 #2
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
uses crt;
const nmax=15;
var a:array[1..2*nmax] of real;
    n,i,j:integer;
    r:real;
begin
clrscr;
randomize;
repeat
write('Количество точек до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to 2*n do
a[i]:=-9+19*random;
writeln('Координаты точек:');
write('  ');
for i:=1 to n do
write(i:5);
writeln;
write('X:');
for i:=1 to n do
write(a[2*i-1]:5:1);
writeln;
write('Y:');
for i:=1 to n do
write(a[2*i]:5:1);
writeln;
r:=sqrt(sqr(a[1])+sqr(a[2]));
for i:=3 to n-1 do
if sqrt(sqr(a[i])+sqr(a[i+1]))>r then r:=sqrt(sqr(a[i])+sqr(a[i+1]));
write('Минимальный радиус=',r:0:1);
readln
end.
1
Dron4ikkk
1 / 1 / 0
Регистрация: 20.09.2016
Сообщений: 19
20.09.2017, 19:44 #3
Puporev, Здраствуйте, а можете написать эту же программу с функцией???
0
Puporev
Модератор
54412 / 41983 / 28996
Регистрация: 18.05.2008
Сообщений: 98,902
20.09.2017, 20:24 #4
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
uses crt;
const nmax=15;
type mas=array[1..2*nmax] of real;
function min(a:mas;n:integer):real;
var i:integer;
    r:real;
begin
r:=sqrt(sqr(a[1])+sqr(a[2]));
for i:=3 to n-1 do
if sqrt(sqr(a[i])+sqr(a[i+1]))>r then r:=sqrt(sqr(a[i])+sqr(a[i+1]));
min:=r;
end;
var a:mas;
    n,i,j:integer;
    r:real;
begin
clrscr;
randomize;
repeat
write('Количество точек до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to 2*n do
a[i]:=-9+19*random;
writeln('Координаты точек:');
write('  ');
for i:=1 to n do
write(i:5);
writeln;
write('X:');
for i:=1 to n do
write(a[2*i-1]:5:1);
writeln;
write('Y:');
for i:=1 to n do
write(a[2*i]:5:1);
writeln;
write('Минимальный радиус=',min(a,n):0:1);
readln
end.
1
Dron4ikkk
1 / 1 / 0
Регистрация: 20.09.2016
Сообщений: 19
20.09.2017, 20:46 #5
Большое спасибо!!!

Добавлено через 11 минут
И последний вопрос, что значат записи
24 a[i]:=-9+19*random;
32 write(a[2*i-1]:5:1);
36 write(a[2*i]:5:1);
И вот это я так понял обращение к функции write('Минимальный радиус=',min(a,n):0:1);?
0
Puporev
Модератор
54412 / 41983 / 28996
Регистрация: 18.05.2008
Сообщений: 98,902
21.09.2017, 06:41 #6
a[i]:=-9+19*random;//случайное вещественное число в интервале [-9;10)->-9+[19*0..19*1)
write(a[2*i-1]:5:1);//вывод вещественного числа с выделением 5 позиций в строке с 1 знаком после запятой
0
21.09.2017, 06:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.09.2017, 06:41

Вычислить координаты точек на плоскости
Вычислить координаты точек на плоскости, делящих отрезок прямой, заданный...

Рассматривая пары xi, yi как координаты точек на плоскости, определить радиус наименьшего круга
Здравствуйте, дорогие форумчане, подскажите пожалуйста, поиском по форуму не...

В одномерных массивах Х и Y одинакового размера n хранятся координаты n точек плоскости. Определить, сколько треугольников с вершинами в данных точках
В одномерных массивах Х и Y одинакового размера n хранятся координаты n точек...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

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