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

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

30.05.2012, 21:41. Просмотров 423. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Процедуры и функции! (Delphi):

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

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

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

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

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

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

2
Arcor
4816 / 1817 / 380
Регистрация: 20.11.2009
Сообщений: 5,792
Записей в блоге: 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 / 2
Регистрация: 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
Привет! Вот еще темы с решениями:

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

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

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

Процедуры и функции
1. Каким образом можно передать подпрограмме параметр-массив или ...


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

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

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