Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Bost
0 / 0 / 0
Регистрация: 21.12.2009
Сообщений: 15
1

Найти наименьшее расстояние между соседними точками

29.06.2011, 14:51. Просмотров 1249. Ответов 11
Метки нет (Все метки)

1. Задан целочисленный массив А(n), где n<=280. Поменять местами максимальный по модулю положительный и минимальный по модулю отрицательный элемент.
2. На прямой в порядке возрастания заданы координаты N точек: х1, х2, …хn (n<=147). Найти наименьшее расстояние между соседними точками, напечатать также номера этих точек.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.06.2011, 14:51
Ответы с готовыми решениями:

Найти расстояние между точками в трёхмерном пространстве
Помогите пожалуйста. Найти расстояние между точками А(а1, а2, а3) и B(b1,...

Вычислить расстояние между точками
Создание линейного алгоритма. 1.Вычислить расстояние между точками (x1,y1)и...

Вычислить расстояние между точками (х1, у1) и (х2, у2)
Вычислить расстояние между точками (х1, у1) и (х2, у2) Надо полностью...

Расстояние между двумя точками
две точки заданы на плоскости своими координатами, которые могут быть как...

Найдите наибольшее расстояние d между точками
используя следующий фрагмент программы, найдите наибольшее расстояние d между...

11
Vovcheg
38 / 38 / 18
Регистрация: 16.05.2011
Сообщений: 139
29.06.2011, 20:31 2
1)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const n=10;
var i,max,t,maxi,min,mini:integer; a:array[1..n] of integer;
begin
  clrscr;
  randomize;
  min:=1000;
  for i:=1 to n do
    begin
      a[i]:=random(51)-25;
      if (a[i]>=0) and (a[i]>max) then begin max:=a[i]; maxi:=i; end;
      if (a[i]<0) and (a[i]<min) then begin min:=a[i]; mini:=i; end;
      write(a[i],' ');
    end;
  writeln;
  t:=a[maxi];
  a[maxi]:=a[mini];
  a[mini]:=t;
  for i:=1 to n do write(a[i],' ');
  readln
end.
1
Bost
0 / 0 / 0
Регистрация: 21.12.2009
Сообщений: 15
01.07.2011, 13:56  [ТС] 3
спасибо большое)))
но вот что со второй делать?
0
Vovcheg
38 / 38 / 18
Регистрация: 16.05.2011
Сообщений: 139
01.07.2011, 19:32 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
uses crt;
const n=10;
var i,t,maxi,min,mini:integer; x:array[1..n] of integer;
begin
  clrscr;
  randomize;
  x[1]:=1;
  min:=1000;
  for i:=2 to n do
    begin
      t:=random(10)+1;
      x[i]:=x[i-1]+t;
      if (x[i]-x[i-1])<min then
        begin
          min:=(x[i]-x[i-1]);
          mini:=i-1;
          maxi:=i;
        end;
    end;
  for i:=1 to n do write(x[i],' ');
  writeln;
  writeln('Наименьшее расстояние между соседними точками(',mini,' и ',maxi,')=',min);
  readln
end.
0
murderer
3321 / 1467 / 134
Регистрация: 06.10.2010
Сообщений: 3,228
01.07.2011, 20:44 5
Pascal
1
2
x[i]:=x[i-1]+t;
if (x[i]-x[i-1])<min then
Тогда уж так
Pascal
1
2
x[i]:=x[i-1]+t;
if t<min then
0
Vovcheg
38 / 38 / 18
Регистрация: 16.05.2011
Сообщений: 139
01.07.2011, 23:52 6
murderer, это было сделано для случая, если автору понадобиться ручной ввод всех элементов.
0
Bost
0 / 0 / 0
Регистрация: 21.12.2009
Сообщений: 15
02.07.2011, 13:43  [ТС] 7
ручной и нужен))
спасибо огромное)))

Добавлено через 4 минуты
я вот только не понял куда вставить ввод данных? пробовал после var но не получается а без ссамоличной проверки не хотят принимать задачу.
0
Vovcheg
38 / 38 / 18
Регистрация: 16.05.2011
Сообщений: 139
02.07.2011, 14:15 8
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
uses crt;
const n=10;
var i,t,maxi,min,mini:integer; x:array[1..n] of integer;
begin
  clrscr;
  randomize;
  x[1]:=1;
  min:=1000;
  writeln('X[1]=',x[1]);
  for i:=2 to n do
    begin
      repeat
        write('X[',i,']=');
        readln(x[i]);  // ввод данных
      until x[i]>x[i-1];
      if (x[i]-x[i-1])<min then
        begin
          min:=(x[i]-x[i-1]);
          mini:=i-1;
          maxi:=i;
        end;
    end;
  for i:=1 to n do write(x[i],' ');
  writeln;
  writeln('Наименьшее расстояние между соседними точками(',mini,' и ',maxi,')=',min);
  readln
end.
1
Bost
0 / 0 / 0
Регистрация: 21.12.2009
Сообщений: 15
02.07.2011, 17:58  [ТС] 9
пасибо а по второй подскажите плиз.
0
Vovcheg
38 / 38 / 18
Регистрация: 16.05.2011
Сообщений: 139
02.07.2011, 20:11 10
Bost, что именно подсказать?
0
Bost
0 / 0 / 0
Регистрация: 21.12.2009
Сообщений: 15
02.07.2011, 20:18  [ТС] 11
всё, сам разобрался спасибо))
но мне тут новые задали блин(((

1. Задан целочисленный массив х1, х2, …хn (n<=100). Переформировать его таким образом, чтобы он не содержал нулевые элементы. Определить размерность нового массива и вывести его на печать.

2. Даны целые положительные числа m и n. Найти S= (m!+n!/(m!+n!))

и если суть первого я представляю то 2ю непонимаю.
0
Puporev
Модератор
55001 / 42300 / 29209
Регистрация: 18.05.2008
Сообщений: 99,947
03.07.2011, 09:18 12
1.

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
uses crt;
const nmax=100;
var  a:array[1..nmax] of integer;
     n,i,j,p,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массмва до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(4);
  write(a[i],' ');
 end;
writeln;
i:=1;
while i<=n do
if a[i]=0 then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
 end
else i:=i+1;
writeln('Массив без нолей:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Его размерность=',n);
readln
end.
Добавлено через 6 минут
2. Без функций и рекурсии...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var m,n,i:integer;
    fm,fn,s:real;
begin
clrscr;
writeln('Введите 2 натуральных числа:');
readln(m,n);
fm:=1;
for i:=1 to m do
fm:=fm*i;
fn:=1;
for i:=1 to n do
fn:=fn*i;
s:=fm+fn/(fm+fn);
write('S=',s:0:0);
readln
end.
1
03.07.2011, 09:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.07.2011, 09:18

Расстояние между двумя точками(тремя)
допустим у нас есть провод весь запутанный ( мы знаем расстояние от начала до...

Расстояние между двумя точками,блок-схема
Помогите нарисовать блок-схему: Program esep25; uses crt; var...

Вычисление расстояние между двумя точками заданными на плоскости
Составить программу вычисления расстояние между двумя точками заданными на...


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

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

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