Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
rus17
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 3
1

Найти длины всех сторон треугольника

26.02.2011, 08:13. Просмотров 864. Ответов 2
Метки нет (Все метки)

1.Даны координаты трех вершин тре-ка.Найти длины всех сторон.

2. Дано натуральное число.Найти все его делители.Посчитать их число.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2011, 08:13
Ответы с готовыми решениями:

Найти длины всех сторон треугольника
Даны координаты трёх вершин треугольника. С помощью функции, найти длины всех...

Процедуры и функции: по координатам вершин треугольника найти длины всех его сторон
Даны координаты трёх вершин треугольника. Найти длины всех его сторон. 1) как...

Заданы длины сторон треугольника. Найти длины высот и медиан
Заданы длины сторон треугольника. Найти длины высот и медиан.

Найти длины высот треугольника, у которого длины сторон a, b, c
составить программу для вычисления длин высот треугольника .у которого длины...

Даны длины a,b и с сторон некоторого треугольника. Найти медианы треугольника, сторонами которого являются медианы исходного треугольника
Как сделать с процедурой

2
kl14_11
17 / 17 / 13
Регистрация: 02.11.2009
Сообщений: 118
26.02.2011, 09:15 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  x1, y1, x2, y2, x3, y3 : double;
  l1, l2, l3 : double;
 
Function L(x1, y1, x2, y2 : double) : double;
begin
  L := sqrt(sqr(abs(x1 - x2)) + sqr(abs(y1 - y2)));
end;
 
begin
  readln(x1, y1, x2, y2, x3, y3);
  Writeln('l1 = ', L(x1, y1, x2, y2):0:10);
  Writeln('l2 = ', L(x1, y1, x3, y3):0:10);
  Writeln('l3 = ', L(x3, y3, x2, y2):0:10);
  readln;
end.
Добавлено через 7 минут
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  n, k : integer;
 
Function Del(n : integer) : integer;
var i, k : integer;
begin
  k := 0;
  for i := 2 to n - 1 do
    if n mod i = 0
    then begin
      k := k + 1;
      writeln(i);
    end;
  Del := k;
end;
 
begin
  readln(n);
  k := Del(n);
  writeln('Count = ', k);
  readln;
end.
1
Dekio
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
26.02.2011, 11:28 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
2.
function Del(num: integer): integer;
var
i, cnt: integer;
begin
for i:=1 to num do
if num mod i=0 then
inc(cnt);
del:=cnt;
end;

kl14_11, делителем так же есть 1 и само число
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2011, 11:28

Найти периметр треугольника, взяв длины его сторон из текстового файла
Пропустила лекцию,теперь не могу разобраться Есть текстовый файл, пусть будет...

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

Зная длины трех сторон треугольника, вычислить площадь и периметр треугольника
Зная длины трех сторон треугольника, вычислить площадь и периметр треугольника.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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