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

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

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

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

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

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

Процедуры и функции: по координатам вершин треугольника найти длины всех его сторон
Даны координаты трёх вершин треугольника. Найти длины всех его сторон. 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
Фрилансер
Эксперт С++
5837 / 1218 / 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
Привет! Вот еще темы с решениями:

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

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

Длины сторон треугольника
Даны длины сторон треугольника . Определить, является ли он прямоугольным и...

Элементы длины сторон треугольника
Задан массив размерности nх3. Элементы длины сторон треугольника. 1)проверить...


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

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

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