Форум «Всё о Паскале»

Помощь - Поиск - Пользователи - Календарь

Полная версия: Функции

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Trouble

20.11.2005 22:37

Привет всем. Вот есть задачка, помогите решить:
Даны два массива А и В.
Найти

Код

∑Ai
y=-------
∑Bi

Заранее спасибо.

Altair

20.11.2005 22:40

for i:=1 to n do sa:=sa+a[i];
for i:=1 to m do sb:=sb+b[i];
y=sa/sb;

Guest

20.11.2005 22:48

Мне нужно через функцию

Altair

20.11.2005 23:23

очень приятно, а я Олег

я тебе алгоритм дал, а как тебе надо.... хы.. это тебе надо.

Trouble

20.11.2005 23:25

Я уже и сам решил через функции. Но все равно спасибо

klem4

20.11.2005 23:25


function y(n,m : integer;  a,b : TArray) : single;
var
   i : byte;
   s1,s2 : single;
begin
   s1 := 0;
   for i := 1 to n do s1 := s1 + a[i];
   s2 := 0;
   for i := 1 to m do s2 := s2 + b[i];
   y := s1/s2;
end;

volvo

20.11.2005 23:37

To: klem4
В следующий раз - стреляю без предупреждения !!!

Function sum(var arr: array of integer; const n: integer): integer;
Var i, s: integer;
begin
  s := o;
  for i := 0 to pred(n) do
    inc(s, arr[i]);
  sum := s;
end;
...
  y: = sum(a, n) / sum(b, m);
...

klem4

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.