Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Написать программу, которая упорядочивает элементы матрицы по возрастанию https://www.cyberforum.ru/ turbo-pascal/ thread715963.html 1)Дана матрица B(nxn). Написать программу, которая упорядочивает элементы этой матрицы по возрастанию.	Вывести на экран различные приветствия в зависимости от введенного времени Turbo Pascal Составьте программу, которая выводит на экран различные приветствия в зависимости от введенного времени. Договоримся, что утро длится с 8 до 12 часов, день – с 12 до 17 часов, вечер – с 17 до 23 часов и ночь – все остальное время. Задачу решить двумя способами: с помощью условного оператора и оператора выбора.
Turbo Pascal Составить функцию с возвращающим значением типа boolean, которая определит является ли массив знакочередующимся https://www.cyberforum.ru/ turbo-pascal/ thread715933.html Задан одномерный целочисленный массив A(n), составить функцию с возвращающим значением типа boolean, которая определит является ли массив знакочередующимся. Поправьте пожалуйста. Заранее спасибо) ....... Const emin = 1; emax = 100 Function z5(a:array of integer; n:byte):boolean;	Turbo Pascal Найти тройки чисел, удовлетворяющие условию Дана таблица целых чисел a1, a2, ..., an. Найти тройки чисел аi-1, ai, ai+1, удовлетворяющие условию: а вводится с клавиатуры! https://www.cyberforum.ru/ turbo-pascal/ thread715926.html
Turbo Pascal Правильно ли написана программа? Дорой ночи всем. Нашел на форуме код программы. Переписал под свою сумму ряда uses crt; var s:array of extended; i:byte; eps:extended; begin clrscr; write('BBegute To4HOCTb eps='); readln(eps);	Turbo Pascal Движения танцующего человека Здравствуйте. Объясните, пожалуйста, как составлять программу, демонстрирующую движения танцующего человека? (Turbo Pascal) https://www.cyberforum.ru/ turbo-pascal/ thread715870.html
Turbo Pascal Вычислить значение функции для аргумента х, который меняется от Х1 до х2 с шагом Н (ошибка 207) https://www.cyberforum.ru/ turbo-pascal/ thread715867.html Почему-то выдает 207 ошибку, хотя не должен. Кто может подсказать? Условие поставленной задачи: Вычислить значение функции для аргумента х, который меняется от Х1 до х2 с шагом Н. Определить ср.арифметическое для отрицательных "У" и среднее геометрическое для положительных "У". Нули исключить. Может это как проще решается... program laba3; var q,x,y,d,s,h,z,t:real; k,i:integer; begin...	Выдает ошибку несоответвствия типа при попытке подключить написаный мною модуль Turbo Pascal Прогу запускаю в Pascal School Pack(в нем нет встроенной функции повер лол) Вот модуль: unit modlab8; interface type TIndex=1..30; TArray=array of real; TMatrix=array of TArray; TFunc=function(x,y:integer):integer;
Turbo Pascal Используя начальные текстовые файлы выполнить Используя начальные текстовые файлы выполнить: 1)Имея 2 различные текстовые файлы, создать третий, содержанием которого будут строки входных текстовых файлов которые чередуются; 2)В записи должны местится следующие данные про товары, которые находятся на складе: Код изделия, наименование, страна - производитель, вес единицы товара, количество, цена единицы. Составить статистику товара по его... https://www.cyberforum.ru/ turbo-pascal/ thread715838.html	Turbo Pascal Создать собственный модуль "Вычисление скалярного произведения векторов в 3-меpном пространстве" https://www.cyberforum.ru/ turbo-pascal/ thread715837.html Создать собственный модуль и программу, использующую этот модуль. Вычисление скалярного произведения векторов в 3-меpном пространстве. Вычислить значения всех скалярных произведений для векторов w=(1.2,2.5,12.1); s=(5.8,11.3,7.5); q=(6.4,9.2,0.8). program; ... ... end.
Turbo Pascal составить программу системы нелинейных уравнений методом простой итерации на картинке задание, помогите составить программку... очень нужно	Turbo Pascal Составить программу для вычисления величины S по заданной формуле Составить программу для вычисления величины S по заданной формуле https://www.cyberforum.ru/ turbo-pascal/ thread715736.html

Zhexon

314 / 273 / 272

Регистрация: 25.09.2011

Сообщений: 477

02.12.2012, 11:43

Найти минимальное расстояние от любой точки до области - Turbo Pascal - Ответ 3787694

02.12.2012, 11:43. Показов 1368. Ответов 3

Метки (Все метки)

Ответ

ну я так понял, что до области ))

Pascal

var
  c,r,x,y : real;
Begin
  write('input R,X,Y (real) : '); readln(r,x,y);
  if x>0 then begin
    if abs(y)>r then c:=sqrt(sqr((x))+sqr((y-r))) // расстояние до (0,R)
                else c:=x;  // расстояние до оси Y
    if c>r then c:=c-r else c:=0; // вычитаем лишний R из расстояния
  end else begin
    if abs(y)>(2*R) then c:=sqrt(sqr((x))+sqr((y-2*r))) // расстояние до (0,2R)
                    else c:=abs(x);
  end;
  if c=0 then writeln('na polqne ') else writeln(' rasst = ',c:0:2);
  readln;
end.

.. вроде так

Вернуться к обсуждению:
Найти минимальное расстояние от любой точки до области Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

02.12.2012, 11:43

Готовые ответы и решения:

Определить номер точки, для которой суммарное расстояние до всех остальных точек минимальное
На прямой задано n точек с равными расстояниями между ними. Определить номер точки, для которой...

Найти минимальное расстояние от точки до точки
В последнем цикле, который должен находить минимальное расстояние от точки до точки и его индекс,...

Найти наименьшее расстояние от точки В до любой из точек множества А
дано множество точек с координатами(х,у) и точка В с координатами(х,у), лежащая в другом множестве....

Найти минимальное расстояние от точки до графика функции
у меня было задание такое: Определить минимальное расстояние функции f(x)=15logx-x от точки...

	02.12.2012, 11:43

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

02.12.2012, 11:43

Помогаю со студенческими работами здесь

Найти минимальное расстояние между точками этих множеств и сами точки
Даны множества A и B, состоящие соответственно из N1 и N2 точек (точки заданы своими координатами...

Найти минимальное расстояние между точками множеств и сами точки, расположенные на этом расстоянии
Даны множества A и B, состоящие соответственно из N1 и N2 точек (точки заданы своими координатами...

Даны координаты вершин треугольника, и точки М внутри него, вывести минимальное расстояние от точки М до одной их сторон
всем привет,нужна ваша помощь. задача: даны координаты вершин треугольника, и точки М внутри...

Как узнать расстояние от центра окружности до любой точки?
Subj.

Наверх