сервис вопросов и ответовзадано натуральное N и координаты N точек на плоскости. составить алгоритм и программу на Delphi для определения координаты точки,наименее удаленной
10-11 класс|
|
от точки с координатами (10;-2)
Саидходжа
27 авг. 2013 г., 5:00:51 (10 лет назад)
Ryabinina200352
27 авг. 2013 г., 7:41:06 (10 лет назад)
program MinDist;
{$APPTYPE CONSOLE}
uses sysutils;
const
k = 100;
ax = 10;
ay = -2;
var
T: array[1..k, 1..2] of integer;
r, rmin, i, n: integer;
begin
write('Введите число точек на плоскости: ');
readln(n);
rmin := 32767;
Randomize;
writeln('Исходные данные:');
for i := 1 to n do
begin
T[i, 1] := Random(51) - 25;
T[i, 2] := Random(51) - 25;
r := sqr(T[i, 1] - ax) + sqr(T[i, 2] - ay);
if rmin > r then rmin := r;
writeln('(', T[i, 1], ',', T[i, 2], ')')
end;
writeln(#13#10, 'Минимальное расстояние от А(', ax, ',', ay, ') равно: ', sqrt(rmin))
end.
Pkmivg2004
27 авг. 2013 г., 8:41:51 (10 лет назад)
Оконное или консольное?
Ответить
Другие вопросы из категории
СРОЧНО ПЛИЗ!
Мужчина оплатил 2 Гбайт интернет-трафика. за какое время он исчерпает оплаченный лимит, если будет непрерывно загружать информацию из Интернета со скоростью 100 мбит/с напишите ответ с точностью до целого числа секунд
В ПАСКАЛЕ!!!
Определте является ли слово "перевертышем" (читается слева направо одинаково справа налево)
Читайте также
написать программу на языке с#:Дана точка на плоскости с координатами (х, у). Составить программу,
которая выдает одно из сообщений «Да», «Нет», «На границе» в зависимости от
того, лежит ли точка внутри заштрихованной области, вне заштрихованной области
или на ее границе.
Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром в начале координат.
Program Frankenstein;
var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=r
then writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');
End.
Почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?
Вариант 5. Точка на плоскости задана своими координатами X и Y. Построить таблицу, содержащую координаты пяти точек, для каждой
из которых необходимо определить, принадлежит ли точка заштрихованной области.
Решите головоломку.Если в слове А его вторую половину, буквы которой образуют слово В, заменить на слово С, то получится слово Д. Причем: А - фрагмент
оперативной памяти размером в 16 байтов; В – конечное число точек на плоскости, соединённых отрезками кривых линий; С – единица измерения расстояния; Д – аргумент или результат процедуры.В ответе запишите найденные слова: сначала А, затем, В, С и Д, через один пробел, без знаков препинания.
Если в слове А его вторую половину, буквы которой образуют слово В,заменить на слово С, то получится слово Д. Причём: А- фрагмент оперативной
памяти размером в 16 байтов; В-конечное число точек на плоскости,соединённых отрезками кривых линий; С единица измерения расстояния; Д- аргумент или результат процедуры. В ответе запишите найденные слова по порядку.
Вы находитесь на странице вопроса "задано натуральное N и координаты N точек на плоскости. составить алгоритм и программу на Delphi для определения координаты точки,наименее удаленной", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.