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

Delphi для начинающих

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

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

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

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

Процедуры и функции. Процедуры с числовыми параметрами - Delphi
Процедуры и функции. Процедуры с числовыми параметрами Всем привет, помогите пожалуйста сделать задание:" Описать процедуру RectPS (x1,...

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

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

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

процедуры и функции - Delphi
эту задачу надо решить с процедурой и функцией.... unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...

Процедуры и функции - Delphi
Даны натуральное число N и целые числа A1, A2, ..., AN. Определить количество членов последовательности A1, A2, ..., AN , имеющих чётные...

2
Arcor
4802 / 1804 / 159
Регистрация: 20.11.2009
Сообщений: 5,721
Записей в блоге: 1
30.05.2012, 23:05 #2
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
Привет! Вот еще темы с ответами:

Функции и процедуры - Delphi
1. составить программу, определяющую в каком из данных двух чисел больше цифр. s1:=edit1.text; s2:=edit2.text; k:=length(s1); ...

Процедуры функции - Delphi
Программа вводит с клавиатуры или из файла значение х и вычисляет sh(x)*tg(x+1) - tg^2(2+sh(x-1)); используя подпрограмму-функцию.

ПРОЦЕДУРЫ И ФУНКЦИИ - Delphi
Составить программу для решения задачи с применением функции пользователя: 1) В правильном треугольнике проведена средняя линия. Найти...

процедуры и функции - Delphi
Числа Фибоначчи u0, u1, u2,… определяются следующим образом: u0=0, u1=1, un= un-1+ un-2, (n=2, 3,…). Написать программу вычисления un для...


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

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

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