Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal ABC Найти сумму тех чисел данной последовательности, которые удовлетворяют условию https://www.cyberforum.ru/ pascalabc/ thread267477.html
1. Найти сумму тех чисел данной последовательности, которые удовлетворяют условию: |ai|<=i*i 2. Даны целые числа а1,а2...а15 ( могут быть повторяющиеся члены).Получить все числа, которые входят в последовательность по одному разу. Решите пожалуйста 		Pascal ABC В каждой строке переставить первый отрицательный и последний положительный,если таких нет сообщить об этом
Эта задача на двумерный массив.Помогите решить через процедуры или функции очень вас прошу. Добавлено через 1 час 24 минуты Ну пожалуйста решите эту задачу помогите мне
Pascal ABC Дважды вычислить значение выражения, первый раз используя процедуру, а второй – функцию. 4.Дважды вычислить значение выражения, первый раз используя процедуру, а второй – функцию. S = (xln(a+b^3)*(yln(c+d^3)+2/((zln(r+t^3)*(wln(g+g^3)+3ab). 5.Ввести матрицы X1n1xm1, X2n2xm2. Сформировать из матриц пару одномерных массивов Y1ny1 и Y2ny2 , в которые поместить элементы, превышающие среднее арифметическое соответствующих матриц (при решении реализовать процедуры ввода и вывода... https://www.cyberforum.ru/ pascalabc/ thread267372.html Pascal ABC Заменить в каждом из них максимальный элемент средним арифметическим положительных элементов Ввести одномерные массивы X1, X2, X3 . Заменить в каждом из них максимальный элемент средним арифметическим положительных элементов (если оно существует) соответствующего массива. Вывести массивы до преобразования и после. (При решении реализовать процедуры ввода и вывода массивов Vvod1m(A,N,Name) и Vivod1m(A,N,Name), а также функции IndMax(A,N):byte – поиск индекса максимума и SrAPol(A,N):real –... https://www.cyberforum.ru/ pascalabc/ thread267362.html
Pascal ABC С чего начинать курсовую по Pascal ABC?
Мне выдали задание по курсовой: Метод сортировки: Пирамидальная сортировка Структура данных: Двухсвязный список я не знаю с чего вообще начинать курсовую...подскажите пожалуйста... Добавлено через 4 минуты Задание: Создать файл, который содержит сведения о пенсионерах. Каждая запись имеет поля: фамилия, имя, отчество, размер пенсии, номер дома. На экран и в отдельный файл .txt... 		Pascal ABC Вывод на экран лесенкой трёх последовательно идущих трёхзначных чисел https://www.cyberforum.ru/ pascalabc/ thread267313.html
Надо написать программу вывода на экран лесенкой трёх последовательно идущих трёхзначных чисел.Первое число вводится с клавиатурыю
Pascal ABC Циклы.Одномерные массивы.Матрицы http://s014.***********/i326/1103/44/bb43be0189c6.jpg http://s41.***********/i091/1103/89/ff4c1d61be48.jpg http://s002.***********/i199/1103/b2/ab406a38493f.jpg Помогите решить, пожалуйста:) https://www.cyberforum.ru/ pascalabc/ thread267240.html Надо ли в конце программы до end писать readln Pascal ABC
Надо ли в конце программы до end писать readln, чтобы просто курсор перешел на след. строку и когда повторно выполняешь программу, не сливались строки?
Pascal ABC Начиная с первой строки сдвинуть все строки на две вниз, а последние две переместить на место первых двух https://www.cyberforum.ru/ pascalabc/ thread267025.html
дан двумерный массив, начиная с первой строки сдвинуть все строки на две вниз, а последние две переместить на место первых двух, (напишите главную программу,а создание массива я сам сделаю) 		Pascal ABC Разработать программу нахождения минимального значения https://www.cyberforum.ru/ pascalabc/ thread266995.html
Разработать программу нахождения минимального значения произвольных 7-х чисел. Массив инициализировать при объявлении. Помогите!!!!
Pascal ABC Построение графика кардиоиды и розы в полярной системе координат
Нужна помощь в построении графика кардиоиды и полярной розы в Pascal ABC. Вся сложность заключается в том, что мне необходимо сделать так, чтобы нужно было самому вводить значения координат (положительные и отрицательные) для построения графика. Не знаю, как это правильно сделать. Кто знает, помогите, пожалуйста. 		Pascal ABC Даны: целое число n, действительные числа а1, а2, ...., аn https://www.cyberforum.ru/ pascalabc/ thread266909.html
Помогите пожалуйста решить две задачи... 1.Даны: целое число n, действительные числа а1, а2, ...., аn. Получить: min{a1^2, a4^2, a7^2...} + max{|a2|, |a5|, |a8|....}. (n - кратно 3). 2.Даны: целое число n, действительные числа b1,b2...bn. Выяснить, имеется ли в последовательности пара чисел сумма квадратов которых равна квадрату суммы их значений. Если такая пара существует, то вывести...
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
31.03.2011, 11:35 0

На плоскости заданы своими координатами n точек. Определить расстояния от каждой из точек до другой - Pascal ABC - Ответ 1505971

31.03.2011, 11:35. Показов 2548. Ответов 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
35
36
37
38
39
40
41
42
43

uses crt;
const nmax=15;
type point=record
           x,y:real;
           end;
function Rasst(a,b:point):real;
begin
Rasst:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
var t:array[1..nmax] of point;
    r:array[1..nmax,1..nmax] of real;
    n,i,j:byte;
begin
repeat
write('Количество точек от 2 до ',nmax,' n=');
read(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  t[i].x:=10*random-4;
  t[i].y:=10*random-4;
 end;
writeln('Координаты точек:');
write('X:');
for i:=1 to n do
write(t[i].x:5:1);
writeln;
write('Y:');
for i:=1 to n do
write(t[i].y:5:1);
writeln;
writeln('Матрица расстояний:');
for i:=1 to n do
 begin
  for j:=1 to n-1 do
   begin
    if j>=i then r[i,j]:=Rasst(t[i],t[j+1])
    else r[i,j]:=Rasst(t[i],t[j]);
    write(r[i,j]:5:1);
   end;
  writeln;
 end;
end.


Вернуться к обсуждению:
На плоскости заданы своими координатами n точек. Определить расстояния от каждой из точек до другой Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 31.03.2011, 11:35
Готовые ответы и решения:

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

Даны множества A и B, состоящие соответственно из N1 и N2 точек (точки заданы своими координатами x, y).
Даны множества A и B, состоящие соответственно из N1 и N2 точек (точки заданы своими координатами...

На плоскости заданы N различных точек с целочисленными координатами.Нужно найти максимальную площадь треугольника
На плоскости заданы N различных точек с целочисленными координатами.Нужно найти треугольник с...

На плоскости заданы N различных точек с целочисленными координатами.Нужно найти кол-во треугольников, площадь которых является целым числом
На плоскости заданы N различных точек с целочисленными координатами.Нужно найти кол-во...

1
31.03.2011, 11:35
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 31.03.2011, 11:35
Помогаю со студенческими работами здесь

Среди трех точек с координатами (x1,y1), (x2,y2), (x3,y3) определить количество точек, лежащих в третьей четверти
Среди трех точек с координатами (x1,y1), (x2,y2), (x3,y3) определить количество точек, лежащих в...

Заданы координаты 2 точек на плоскости
Заданы координаты 2 точек на плоскости. Составьте программу определяющую: А) какая из точек...

Расстояния от каждой из точек до n-1 других.
На плоскости заданы своими координатами n - точек. Создать массив размером n(n-1), элементами...

На плоскости заданы своими координатами n точек. Создать массив размером n(n-1), элементами которого является расстояние от каждой из точек до n-1 др.
Помогите пожалуйста решить! Пожалуйста! На плоскости заданы своими координатами n точек. Создать...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru