|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.10.2010, 21:49 | #1 |
Новичок
Джуниор
Регистрация: 10.10.2010
Сообщений: 1
|
из Паскаля в Яву
Мальчики,помоги пожалуйста!надо перевести программку из паскаля в яву
Условие: На плоскости заданы своими координатами n точек.Создать массив размером n(n-1) элементами которого являются расстояния от каждой из точек до n-1 других Код паскаль: uses crt; const nmax=20; {максимальный размер массива} type Tpoint=record {чтобы не делать 2 массива кординат, будем записывать точки как записи} x,y:integer;{поля - координаты} end; function Dlina(p,q:Tpoint):real;{функция определения растояния между точками} begin Dlina:=sqrt(sqr(p.x-q.x)+sqr(p.y-q.y)); end; var a:array[1..nmax]of TPoint; {массив точек} b:array[1..nmax,1..nmax]of real;{матрица длин отрезков} n,i,j,k:byte; begin clrscr; randomize; repeat {вводим количество точек с проверкой} write('Vvedite kolichestvo tochek n='); readln(n); until (n>1)and(n<=nmax); for i:=1 to n do for j:=1 to n do begin a[i].x:=random(50)-25;{заносим в массив данные} a[i].y:=random(50)-25; end; write('X '); {} for i:=1 to n do write(a[i].x:4); writeln; write('Y '); for i:=1 to n do write(a[i].y:4); writeln; for i:=1 to n do begin k:=0; for j:=1 to n do if j<>i then {если точка другая} begin inc(k);{считаем} b[i,k]:=Dlina(a[i],a[j]);{заносим расстояние в матрицу} end; end; Writeln('Rezultat:'); for i:=1 to n do begin for j:=1 to k do write(b[i,j]:6:2); writeln; end; readln end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
С Паскаля на Си++ | Svetlanka_ya | Помощь студентам | 0 | 16.05.2010 12:17 |
С паскаля на c++ | Sparky | Помощь студентам | 1 | 09.03.2010 16:56 |
от паскаля к с++ | WOLFak | Обсуждение статей | 11 | 27.01.2010 00:18 |
из Паскаля в С++ | Lees27 | Общие вопросы C/C++ | 1 | 14.09.2009 23:29 |
Интерпретатор Паскаля | SvetickPro | Помощь студентам | 1 | 17.10.2008 22:00 |