Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
rus17
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 3
#1

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

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

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

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

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

Процедуры и функции: по координатам вершин треугольника найти длины всех его сторон - Turbo Pascal
Даны координаты трёх вершин треугольника. Найти длины всех его сторон. 1) как процедуру; 2) как функцию. Добавлено через 5 минут ...

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

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

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

Найти периметр треугольника, взяв длины его сторон из текстового файла - Turbo Pascal
Пропустила лекцию,теперь не могу разобраться Есть текстовый файл, пусть будет "OUTPUT.25.txt" в этом файле находится треугольник ...

2
kl14_11
17 / 17 / 7
Регистрация: 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 / 214
Регистрация: 23.11.2010
Сообщений: 3,378
Записей в блоге: 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
Привет! Вот еще темы с ответами:

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

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

Длины сторон треугольника - Turbo Pascal
Даны длины сторон треугольника . Определить, является ли он прямоугольным и тогда вычислить радиус описанной около треугольника окружности

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


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

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

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