Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/22: Рейтинг темы: голосов - 22, средняя оценка - 4.95
0 / 0 / 0
Регистрация: 03.06.2010
Сообщений: 62
1

Найти номера наиболее и наименее удаленных друг от друга точек в массиве +4 задачи.

15.06.2010, 14:00. Показов 4539. Ответов 1
Метки нет (Все метки)

Любая на выбор, помогите пожалуйста решить!!!!

12. Задан массив действительных чисел. Определить, сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций, в которых происходит смена знака.

40. Дана последовательность целых чисел а1, а2,..., аn.Указать пары чисел ai, aj, таких, что ai + Eaj = т.

54. В массивах А[К] и В[L] хранятся коэффициенты двух многочленов степеней К и L. Поместить в массив С[М] коэффициенты их произведения. (Числа К, L, М — натуральные, М = K + L; элемент массива с индексом I содержит коэффициент при х в степени I.)

68. В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1, у1, х2, у2, x3, y3 и т.д. Найти номера наиболее и наименее удаленных друг от друга точек.

82. Алгоритм фон Неймана. Упорядочить массив а1, а2,..., аn по неубыванию с помощью алгоритма сортировки слияниями:
1) каждая пара соседних элементов сливается в одну группу из двух элементов (последняя группа может состоять из одного элемента);
2) каждая пара соседних двухэлементных групп сливается в одну четырехэлементную группу и т.д.
При каждом слиянии новая укрупненная группа упорядочивается.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2010, 14:00
Ответы с готовыми решениями:

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

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

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

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

__________________
1
Идеи становятся силой...
121 / 121 / 64
Регистрация: 08.12.2009
Сообщений: 445
15.06.2010, 14:07 2
Лучший ответ Сообщение было отмечено как решение

Решение

82:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Sort_include_01;
const n=10;
type Vec=array[1..n] of real;
var i,j:integer; {счётчики циклов}
       y:real;     {временная переменная для переcтановки элементов}
       A:Vec;     {исходный массив}
begin
\\получение элементов массива\\
writeln;
for i:=2 to n do
begin
y:=a[i];
j:=i-1;
while (j>=1) and (y<a[j]) do
begin
a[j+1]:=a[j];
j:=j-1;
end;
a[j+1]:=y;
end;
\\вывод упорядоченного массива\\
readln;
end.
Добавлено через 1 минуту
12: кажется вот так точно не уверен
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 n=10;
 
var a:array[1..n] of integer;
    i,j,p,k:byte;
    
    
    
begin
clrscr;
for i:=1 to n do
 begin
 a[i]:=random(100)-random(100);
 write(a[i],' ');
 end;
 writeln;
if a[1]>0 then p:=1
   else p:=0;
k:=0;
for i:=2 to n do
 if (a[i]>0) and (p=0) then begin
                         write(' ',i);
                         inc(k);
                         p:=1;
                        end
    else if (a[i]<0) and (p=1) then begin
          write(' ',i);
          inc(k);
          p:=0;
         end;
writeln;
writeln('Всего ',k,' раз(а)');
end.
Добавлено через 3 минуты
68: только максимальное расстояние между точками:
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
uses
  crt;
 
function Rasst(x1, y1, x2, y2: real): real;
begin
  Rasst := sqrt(sqr(x1 - x2) + sqr(y1 - y2));//определение расстояния между двумя точками
end;
 
var
  a: array[1..2, 1..100] of real;//масив координат точек
  mx: real;
  n, i, j, imx, jmx: integer;
 
begin
  clrscr;
  randomize;
  write('Количество точек (нормально до 13) = ');
  readln(n);
  for i := 1 to n do
  begin
    a[1, i] := 10 * random - 4;
    a[2, i] := 10 * random - 4;
  end;
  write('Нoмер точки ');
  for i := 1 to n do write(i:5);
  writeln;
  write('координата Х');
  for i := 1 to n do write(a[1, i]:5:1);
  writeln;
  write('координата Y');
  for i := 1 to n do write(a[2, i]:5:1);
  writeln;
  writeln;
  mx := Rasst(a[1, 1], a[2, 1], a[1, 2], a[2, 2]);//пока макс. расст. между 1 и 2.
  imx := 1;//номера точек
  jmx := 2;
  for i := 1 to n - 1 do//от точки
    for j := i + 1 to n do//смотрим впереди ее
      if Rasst(a[1, i], a[2, i], a[1, j], a[2, j]) > mx then//если есть больше расст.
      begin
        mx := Rasst(a[1, i], a[2, i], a[1, j], a[2, j]);//оно макс.
        imx := i;//номера точек
        jmx := j;
      end;
  write('Максимальное расстояние между точками ', i, ' - ', j, ' = ', mx:0:2);
  readln
end.
3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2010, 14:07

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

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

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

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

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


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

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

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