процедуры функции и масивы

[asres]

всем ку!
Помогите пожалуйсто - я дуб дубом

Нужно взять из массива 3 чисел зарезервированные числа и произвести с ними арифм. действия с помощью процедуры и функции и результаты вывести на экран


гугл практического ничего не сказал.

[asres]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;


Var
trikutnik1 : Array [1..3] Of real;
trikutnik2 : Array [1..3] Of real;
trikutnik3 : Array [1..3] Of real;


function Geron1(x,y,z:real):real;
var
P:real;

begin

P:=(x+y+z)/2;
geron1:=sqrt(p*(p-x)*(p-y)*(p-z));

writeln ('',p )
end;

Begin
{Заполняем массив значениями (отдельно каждый компонент)}

trikutnik1[1]:=1; trikutnik1[2]:=2.3; trikutnik1[3]:=3;

trikutnik2[1]:=1; trikutnik2[2]:=32;trikutnik2[3]:=-70;

trikutnik3[1]:=1; trikutnik3[2]:=32; trikutnik3[3]:=-70;



Writeln(trikutnik1[1]:6:2 ) ;
Writeln(trikutnik1[2]:6:2 ) ;
Writeln(trikutnik1[3]:6:2 ) ;

Writeln(trikutnik2[1]:6:2 ) ;
Writeln(trikutnik2[2]:6:2 ) ;
Writeln(trikutnik2[3]:6:2 ) ;

Writeln(trikutnik3[1]:6:2 ) ;
Writeln(trikutnik3[2]:6:2 ) ;
Writeln(trikutnik3[3]:6:2 ) ;

readln;


End.

[Don Karleone]

function Geron1(x,y,z:real):real;
var
   P:real;
begin
  P:=(x+y+z)/2;
  geron1:=sqrt(p*(p-x)*(p-y)*(p-z));
end;

из основной программы вызываем функцию:

Writeln(Geron1(trikutnik1[1],trikutnik1[2],trikutnik1[3]):1:3) ;

[bunny]

опять же по процедурам и функциям..

[bunny]

такой вопрос: я решала задачу в которой был дан цилиндр, его высота и обьём и диаметр окружности оснований, а также шарики( их диаметр); нужно было сделать программку которая бы высчитывала процент заполняемости шариками цилиндра, в зависимости от того какие данные введёт пользователь. Программка полностью работает, но мой преподаватель, сказал что задача слишком сложная(молш я не знаю каким способом будут располагаться шарики в цилиндре. И предложил мне вместо цилиндра взять параллелепипед, мол там легче посчитать объм.
Теперь суть вопроса: получается что нужно только изменить исходную формулу, вместо объёма цилиндра поставить объём праллелепипеда???

[bunny]

procedure Ob Ts(n,m:real; var W:real);

begin

W:=3.14*sqr(n/2)*m;

получается что в этом кусочке нужно поменять исходные данные??
Ответьте пожалуйста?

[asres]

Сообщение от bunny

procedure Ob Ts(n,m:real; var W:real);

begin

W:=3.14*sqr(n/2)*m;

получается что в этом кусочке нужно поменять исходные данные??
Ответьте пожалуйста?

Девушка вам трудно темму новую создать?

[bunny]

и опять называть её процедуры и функции???

[asres]

Неправильно сформулировал.
Мне нужно сделать так, чтоб значения обрабатывались функцией.
короче добиться работоспособности программы :=)

Вот задание
1. Одновимірний масив містить трійки чисел, які визначають сторони трикутника. Визначити сумарну площу всіх трикутників.

Я значит беру три массива
И дальше чё с ним делать? как заставить процедуру работатьс массивом?

пс заранее признателен!!!!

[asres]

Сообщение от bunny

и опять называть её процедуры и функции???

Да как хотите!