Одномерный масив паскаль (очень срочно)

@onyx_1991 · Регистрация: 26.05.2009

Author24 — интернет-сервис помощи студентам

В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1, y1, х2, y2, x3, y3, и т.д. Определить минимальный радиус круга с центром в начале координат, который содержит все точки.

@Kazik · 27.05.2009, 15:15

это начало дальше хз!!!

program Massiv;

uses crt;
const N=100;
type
TVector = array [1..N] of integer;
var
A: TVector;

procedure VvodMas;
var
i: integer;
begin
for i:=1 to N do A[i] := random(100);
end;

function LongVector(x1,y1,x2,y2: integer): real;
begin
LongVector := sqrt(sqr(x2-x1)+sqr(y2-y1));
end;

function UravPrjam(x,x1,y1,x2,y2: integer): real;
begin
if x2<>x1
then UravPrjam := (((x-x1)*(y2-y1))/(x2-x1))+y1
else UravPrjam := x;
end;

function RavnobedTreug(x1,y1,x2,y2,x3,y3: integer): boolean;
var
d1,d2,d3: real;
begin
RavnobedTreug := false;
d1 := LongVector(x1,y1,x2,y2);
d2 := LongVector(x1,y1,x3,y3);
d3 := LongVector(x2,y2,x3,y3);
if (d1=d2)or(d1=d3)or(d2=d3)
then RavnobedTreug := true;
end;

@GalaX · 27.05.2009, 15:26

другой вариант:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const n = 10;
var arr : array [1..n] of integer;
    i, avarage : integer;
    max_distance : real;
begin
// ВВОДИМ МАССИВ
 
i := 1;
distance := 0;
while ( i < n-1 ) do begin
    distance := sqrt( arr[i]*arr[i] + arr[i+1]*arr[i+1] );
    if (distance > max_distance) then
        max_distance := distance;
    inc(i, 2);
end;
writeln('Минимальный радиус круга: ', max_distance);
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

@onyx_1991 0 / 0 / 0 Регистрация: 26.05.2009 Сообщений: 7

	Одномерный масив паскаль (очень срочно) 27.05.2009, 15:08. Показов 1355. Ответов 2 Метки нет (Все метки) В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1, y1, х2, y2, x3, y3, и т.д. Определить минимальный радиус круга с центром в начале координат, который содержит все точки. 0

@Kazik 5 / 5 / 6 Регистрация: 26.05.2009 Сообщений: 37
	27.05.2009, 15:15
	это начало дальше хз!!! program Massiv; uses crt; const N=100; type TVector = array [1..N] of integer; var A: TVector; procedure VvodMas; var i: integer; begin for i:=1 to N do A[i] := random(100); end; function LongVector(x1,y1,x2,y2: integer): real; begin LongVector := sqrt(sqr(x2-x1)+sqr(y2-y1)); end; function UravPrjam(x,x1,y1,x2,y2: integer): real; begin if x2<>x1 then UravPrjam := (((x-x1)*(y2-y1))/(x2-x1))+y1 else UravPrjam := x; end; function RavnobedTreug(x1,y1,x2,y2,x3,y3: integer): boolean; var d1,d2,d3: real; begin RavnobedTreug := false; d1 := LongVector(x1,y1,x2,y2); d2 := LongVector(x1,y1,x3,y3); d3 := LongVector(x2,y2,x3,y3); if (d1=d2)or(d1=d3)or(d2=d3) then RavnobedTreug := true; end; 0

Опции темы

Одномерный масив паскаль (очень срочно)

Решение