Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.03.2017, 17:28   #1
Dimcha
Новичок
Джуниор
 
Регистрация: 30.03.2017
Сообщений: 6
По умолчанию Написать программу по двумерным массивам

Написать программу на языке Паскаль. Вот задание: На плоскости заданы n точек своими координатами. Построить матрицу расстояний между всеми точками. Найти равноудаленные точки, если такие есть, и напечатать их номера.
topfacts.ucoz.net - интересный и занимательный сайт.
Dimcha вне форума Ответить с цитированием
Старый 30.03.2017, 17:29   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

И? Какие ошибки выдал компилятор?
p51x вне форума Ответить с цитированием
Старый 30.03.2017, 22:24   #3
Dimcha
Новичок
Джуниор
 
Регистрация: 30.03.2017
Сообщений: 6
По умолчанию

Ошибок никаких. Я даже программу написать не могу. Вообще в паскале не соображаю. Прошу помочь, если не трудно
topfacts.ucoz.net - интересный и занимательный сайт.
Dimcha вне форума Ответить с цитированием
Старый 31.03.2017, 11:52   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Люблю халявщиков, которые говорят: прошу помочь - а имеют в виду : сделайте за меня, а то я - тупой, а диплом - хочцца. Держи, внучок :
Код:
program points;
var
  i,j,n: integer ; a,b : real ;
  arrX,arrY: array [1..100] of integer ;
  arrLong: array[1..100,1..100] of real ;     
begin
   Write (' n? ') ;
   Readln(n);
   for i := 1 to n do
     begin
       Write (' x? y? ') ; Readln(arrX[i],arrY[i])
     end ;
   for i := 1 to n-1 do
      for j := i+1 to n do
        begin
          a := arrX[i] - arrX[j] ;  
          b := arrY[i] - arrY[j] ;  
          arrLong[i,j] := Sqrt (a*a+b*b) ;
        end ;          
end.
Ну а определение равноудаленных точек по матрице arrLong напишешь сам, ну а если и это никак - то в мукомольный техникум . Только козе понятно, что расстояние меж точками i и i = 0, а расстояние i,j = j,i
Динамический массив и треугольную матрицу результатов решил не применять, бо препод стопудово поставит пару за не_сам_решал .

-----------------------------------
И как всегда - в ответ тишина. Прокукарекал - а там "он опять не вернулся из боя" .

Последний раз редактировалось digitalis; 01.04.2017 в 09:25.
digitalis вне форума Ответить с цитированием
Старый 20.04.2017, 15:16   #5
Dimcha
Новичок
Джуниор
 
Регистрация: 30.03.2017
Сообщений: 6
По умолчанию

Спасибо, конечно, но можно было и повежливее. Я далеко не программист. И никакого отношения к программированию не имею.
topfacts.ucoz.net - интересный и занимательный сайт.
Dimcha вне форума Ответить с цитированием
Старый 20.04.2017, 16:03   #6
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Тогда зачем вам задача и код для программистов? Что б было?
p51x вне форума Ответить с цитированием
Старый 20.04.2017, 22:51   #7
Dimcha
Новичок
Джуниор
 
Регистрация: 30.03.2017
Сообщений: 6
По умолчанию

К сожалению, сейчас такая система образования, что изучать программирование заставляют всех. При этом преподается оно на нулевом уровне.
topfacts.ucoz.net - интересный и занимательный сайт.
Dimcha вне форума Ответить с цитированием
Старый 21.04.2017, 00:53   #8
New man
Форумчанин
 
Регистрация: 24.01.2011
Сообщений: 774
По умолчанию

Цитата:
Сообщение от Dimcha Посмотреть сообщение
изучать программирование заставляют всех.
И правильно делают. Не раз замечал, что у программистов гораздо реже бывает непонимание причинно-следственных связей.
a.k.a. Angelicos Phosphoros
Мой сайт
New man вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C#Задача по двумерным массивам! Vashka C# (си шарп) 1 27.03.2013 23:37
Задача по двумерным массивам Alerka227 Общие вопросы C/C++ 0 04.12.2012 23:17
нужно отладить программу по двумерным массивам(Pascal) Вероника_94 Помощь студентам 0 22.01.2012 19:24
задача по двумерным массивам t0x Паскаль, Turbo Pascal, PascalABC.NET 3 14.03.2011 20:56