Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Написать функцию вычисления суммы делителей натурального числа https://www.cyberforum.ru/ pascalabc/ thread316144.html
14. Написать функцию вычисления суммы делителей натурального числа.
Не отскакивают шарики Pascal ABC
Помогите пожалуйста, я не могу сделать так, чтобы шарики тоскакивали от стенок абсолютно упруго(т.е. углы отклонения от перпендикуляра к стороне экрана равны)(((((( Подскажите, что не так?(( uses...
Сортировка Pascal ABC
нужно отредактировать так чтобы выводился только список студентов упорядоченных по дате рождения program wwod_swed; uses crt; Type birthday = Record dd:1..31; mm:string; yy:integer;
Pascal ABC Программа запрашивает пароль до тех пор, пока он не будет введен правильно составить программу, которая запрашивает пароль до тех пор, пока он не будет введен правильно. помоги решить пожалуйста, заранее благодарю за ответ https://www.cyberforum.ru/ pascalabc/ thread316088.html
Pascal ABC Множества: вывести напечатать общие элементы двух множеств https://www.cyberforum.ru/ pascalabc/ thread316087.html
Пусть заданы множество А и множество В целых чисел, вывести напечатать общие элементы этих множеств. Помогите пожалуйста...
Pascal ABC Подсчет числа букв "а" и "б" в заданном файле
Дан символьный файл f. Напишите программу подсчета числа букв "а" и "б" в заданном файле. Вывести на экран сообщение, каких букв больше. Помогите пожалуйста.. Срочно надо... Буду очень благодарен.
Pascal ABC необходима проверка
Program zadacha; Var y,x,b,c,k:real; Begin write('vedite y'); Readln(y); if y>5.2 then x:=7*exp(3*ln(y))-3*sqr(y) else x:=abs(y)-2.5; b:=(7.5*x/y*x-y*exp(3*ln(x))+sqrt(sqr(x)+sqr(y)));...
Pascal ABC Вычислить значение выражения Program pr_2; Var q,,k,d,h:real; Const a=3; b=2; с=1; Begin Readln(c); Q:=sqrt(K+D-sqrt(h)); K:=1+sqr(sin(a))/sqr(cos(a)); D:=B*sqr(cos(c)/sqr(sin(c))); H:=3+ln(a)+sin(b); ... https://www.cyberforum.ru/ pascalabc/ thread316035.html
Pascal ABC Динамика движение шара по полуокружности https://www.cyberforum.ru/ pascalabc/ thread316004.html
Помогите пожалуйста,нужно написать программу,чтобы шарик двигался по нижней части полуокружности
Pascal ABC Двумерный массив Определить кол-во столбцов матрицы B содержащих все положительные эл-ты B=(E^xk +E^Ym )\2 x,y- массивы из 5 эл-тов пздц я мозг сломал https://www.cyberforum.ru/ pascalabc/ thread315906.html
Модератор
63339 / 47049 / 32429
Регистрация: 18.05.2008
Сообщений: 114,044
08.06.2011, 20:24 0

Написать функцию вычисления длины отрезка на плоскости по координатам его концов

08.06.2011, 20:24. Показов 3069. Ответов 3
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
function Dlina(x1,y1,x2,y2:real):real;
begin
Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var x1,y1,x2,y2:real;
begin
writeln('Введите координаты концов отрезка:');
readln(x1,y1,x2,y2);
write('Длина=',Dlina(x1,y1,x2,y2):0:2);
end.


Вернуться к обсуждению:
Написать функцию вычисления длины отрезка на плоскости по координатам его концов
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2011, 20:24

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

вычисление площади треугольника по координатам его концов
Напишите функцию вычисляющую площадь треугольника по координатам трех его вершин. заранее мы не...

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

Функции вычисления длины отрезка по заданным координатам его концов
lazarus Написать функции вычисления длины отрезака по заданным координатам его концов в плоскости...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.