Пусть дано n произвольных точек плоскости, абсциссы и ординаты которых записаны соответственно в целочисленные массивы x и y. определить длину наибольшего из всех возможных отрезков, составленных из этих точек. оформить процедурами ввод и вывод координат точек. оформить функцией расчет длины каждого отрезка. составить программу на паскале.

210

359

Посмотреть ответы 2

Ответы на вопрос:

danil123456789102

Информатика

4,8(34 оценок)

Var x,y,rast: array [1..100] of integer ; n: integer; function maxrast(n: integer; x,y: array [1..100] of integer): real; var i,j: integer; max: real; begin for i: =1 to n do for j: =1 to n do if sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))> max then max: = sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j])); maxrast: =max; end; procedure vvod(n: integer); var i: integer; begin for i: =1 to n do begin writeln('введите координату x ',i,' отрезка'); readln(x[i]); writeln('введите координату y ',i,' отрезка'); readln(y[i]); end; end; begin writeln('введите количество точек'); readln(n); vvod(n); writeln('длина наибольшего отрезка составленного из заданных точек = ',maxrast(n,x,y)); end.

goldfox1

Информатика

4,8(16 оценок)

var

a, // элемент последовательности

// натуральных чисел (<=30000)

i, // порядковый номер элемента а

n, // количество элементов а (<=1000)

m: // минимальное четное двузначное число

// среди элементов а

integer;

begin

read(n);

m := 98;

for i := 1 to n do

begin

read(a);

if (a >= 10) and (a <= 99) and (a mod 2 = 0) and (a < m) then

m := a;

end;

write(m);

end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.