Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Nika12
0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 67
1

Процедуры и функции!

30.05.2012, 21:41. Просмотров 930. Ответов 2
Метки нет (Все метки)

Ребят,пожалуйста помогите с 2-мя задачами в Делфи..очень нужно для экзамена..
1 Процедуры: Даны основания ai и высоты hi десяти равнобедренных треугольников (значения ввести в диалоговом режиме с клавиатуры). Оформив вычисление периметра треугольника в виде функции, выдать на экран наименьший периметр и № этого треугольника
2.Функции: Найти пеpиметp восьмиугольника, кооpдинаты веpшин котоpого заданы. Опpеделить функцию вычисления pасстояния между двумя точками, заданными своими кооpдинатами. Координаты передать функции в качестве параметров.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2012, 21:41
Ответы с готовыми решениями:

Процедуры и функции. Процедуры с числовыми параметрами
Процедуры и функции. Процедуры с числовыми параметрами Всем привет, помогите пожалуйста сделать...

Используя О- символику, найдите время выполнения (как функции от N) процедуры или функции в наихудшем случае
Используя О- символику, найдите время выполнения (как функции от N) процедуры или функции в...

процедуры и функции
задан текст, состоящий из нескольких предложений, разделяемых точкой. Выполнить следующие...

Процедуры и функции
Помогите пожалуйста сделать задание: "Процедуры и функции. Для каждого варианта в обязательном...

процедуры и функции
Нужно написать программу поиска правого вхождения символа в строку, используя процедуру. program...

2
Arcor
4899 / 1846 / 387
Регистрация: 20.11.2009
Сообщений: 5,970
Записей в блоге: 1
30.05.2012, 23:05 2
Лучший ответ Сообщение было отмечено Nika12 как решение

Решение

1 если, известно только высота и длина одной стороны, этим можно найти только площадь, если искать периметр по этим величинам, это бесконечность..., нужно еще как минимум знать расстояние до высоты, тогда можно было бы Пифагором решить оставшиеся стороны треугольника..
вторая задача вот
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
function OctPer(A: Array of TPoint): Real;
var i: Integer;
    Res: Array of TPoint;
    k: Real;
begin
  SetLength(Res, Length(A)+1);
  for i := 0 to Length(A) - 2 do
    begin
      Res[i].X := A[i+1].X - A[i].X;
      Res[i].Y := A[i+1].Y - A[i].Y;
    end;
    Res[Length(A)-1].X := A[0].X - A[Length(A)-1].X;
    Res[Length(A)-1].Y := A[0].Y - A[Length(A)-1].Y;
 
  k := 0;
  for i := 0 to Length(Res) - 1 do
    begin
      k := k + Sqrt(Sqr(Res[i].X)+Sqr(Res[i].Y));
    end;
  Result := k;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    A: Array[0..7] of TPoint;
begin
// Эти строчки были только для проверки, результат из этих координат должен быть 37 с копейками, смотря как округлять
//  A[0].X := 4;  A[1].X := 1;  A[2].X := 0;  A[3].X := 9;
//  A[0].Y := 1;  A[1].Y := 7;  A[2].Y := 3;  A[3].Y := 1;
//  A[4].X := 7;  A[5].X := 6;  A[6].X := 0;  A[7].X := 0;
//  A[4].Y := 1;  A[5].Y := 3;  A[6].Y := 3;  A[7].Y := 5;
//  тут задаем случайные координаты
  for i := 0 to Length(A) - 1 do
    begin
      A[i].X := Random(100);
      A[i].Y := Random(100);
    end;
  Caption := 'результат равен '+FloatToStr(OctPer(A));
 
  Repaint;
  Canvas.Polygon(A);
end;
даже рисует заданный восьмиугольник
1
Nika12
0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 67
31.05.2012, 15:53  [ТС] 3
спасибо огромное за вторую!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2012, 15:53

Процедуры и функции
Дана матрица размера n×m. Найти минимальное1|максимальное2 значение среди сумм элементов всех ее...

Процедуры и функции
Создал 2 формочки , 2-ая с помощью функции описывает факториал числа , в чём проблема , не...

Процедуры и функции
Задание 1: Создать процедуру, которая будет менять местами заголовок формы и заголовок метки....


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

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

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