0 / 0 / 0
Регистрация: 08.09.2015
Сообщений: 13
1

Дана матрица P с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и ордината одной

12.11.2015, 17:09. Показов 2294. Ответов 2
Метки нет (Все метки)

Дана матрица P с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и ордината одной из десяти точек плоскости. Если нет ни одной пары точек, расстояние между которыми меньше заданной величины R, заменить на нуль в матрице P все отрицательные абсциссы точек, увеличив ординаты этих точек на R.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2015, 17:09
Ответы с готовыми решениями:

Дана матрица Р с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и ордината одной
Дана матрица Р с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и...

Задана матрица А с 3 столбцами и 25 строками. Каждая строка матрицы содержит
Задана матрица А с 3 столбцами и 25 строками. Каждая строка матрицы содержит длины сторон одного из...

Дана матрица M с 10 строками и 6 столбцами
Дана матрица M с 10 строками и 6 столбцами.Вычислить сумму минимальных элементов всех строк...

Дана матрица с 4 столбцами и 7 строками
Дана матрица с 4 столбцами и 7 строками.В каждой строке содержатся оценки одного из 7 студентов по...

2
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
12.11.2015, 18:40 2
Лучший ответ Сообщение было отмечено NIVA2015 как решение

Решение

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
const n=2;m=10;
var p:array[1..n,1..m] of real;
    i,j:integer;
    r:real;
    f:boolean;
begin
 f:=false;
 writeln('P:');
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     p[i,j]:=random*(-10+random(21));
     write(p[i,j]:7:2)
    end;
   writeln
  end;
 write('R = ');readln(r); 
 j:=1;
 while (not f)and(j<m) do
  begin
   i:=j+1;
   while(not f) and (i<=m) do
    begin
     if sqrt(sqr(p[1,j]-p[1,i])+sqr(p[2,j]-p[2,i]))<r then f:=true;
     inc(i)
    end;
   inc(j)
  end; 
 if not f 
  then
   begin
    writeln('нет ни одной пары точек, расстояние между которыми меньше ',r:0:2);
    writeln('P'':');
    for i:=1 to m do if p[1,i]<0 then begin p[1,i]:=0;p[2,i]:=p[2,i]+r end;
    for i:=1 to n do
     begin
      for j:=1 to m do write(p[i,j]:7:2);writeln
     end;
   end
  else writeln('пара точек, расстояние между которыми меньше ',r:0:2,
               ' : (',p[1,j-1]:0:2,',',p[2,j-1]:0:2,'), (',p[1,i-1]:0:2,',',p[2,i-1]:0:2,')')
end.
1
0 / 0 / 0
Регистрация: 08.09.2015
Сообщений: 13
12.11.2015, 18:57  [ТС] 3
Спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2015, 18:57
Помогаю со студенческими работами здесь

Дана матрица с 4 столбцами и 7 строками
Дана матрица с 4 столбцами и 7 строками.В каждой строке содержатся оценки одного из 7 студентов по...

Дана матрица A c 2 столбцами и 10 строками
Первый элемент каждой строки представляет абсциссу, а второй-ординату одной из 10 заданных точек....

Дана матрица размерностью M*N, перед каждым столбцом матрицы вставить его порядковый номер
Дана матрица размерностью M*N, перед каждым столбцом матрицы вставить его порядковый номер....

Дана матрица с n строками и m столбцами. 1-й элемент каждого столбца представляет массу,
Дана матрица с n строками и m столбцами. 1-й элемент каждого столбца представляет массу, а 2-й и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru