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

[J0n1cK]

словие:
Составить программу, предусматривающие следующие операцииЖ
1) Заполнение массива А N элементами, которые в диапазоне изменения i рассчитываются по формуле:


A[i]:=(100/i^2)+ln(i); диапазон изменения i: 1<i<10;

2) Расчет элементов массива оформить в виде функции;
3) найти для массива среднее арифметическое элементов массива;
4) Вывести на экран полученный массив и искомую величину;

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

P.S. Сам вроде написал но что-то мне кажется я с функциями затупил.
Не судите строго я только учусь...


program laba4;
uses crt;
const n = 8;
var A: array [1..n] of real;
i:integer;
sredd:real;
procedure R (A: array of real);
var
i:integer;
q:real;
y:integer;
begin
q:=0;
y:=2;
for i:=0 to 7 do begin
q:=(100/sqr(y))+ln(y);A[i]:=q;inc(y);end;
for i:=1 to 8 do
write (A[i]:1:5,' ');
end;
function Pr (A: array of real;var e:real):real;
var
i:integer;
sred:real;
sum:real;
begin
sum:=0;
sred:=0;
for i:=0 to 7 do
sum:=sum+A[i];
sred:=sum/n;
Pr:=sred;
end;
begin
clrscr;
sredd:=0;
writeln ('Massiv vipolnen po function: A[i]=(100/sqr(i))+ln(i) Dial-up i 1<i<10: ');
writeln;
R(a);
writeln;
Sredd:=Pr(a,e);
write ('Srednie arifmiticheskoe znachenie: ', Sredd:1:5);

[Sazary]

Заключайте код в теги CODE ("#" на панели в окне редактирования).

Непонятно, зачем вам какое-то e в функции Pr.
Концовки программы нет (видимо, неудачно скопировали).

Циклы то от 0 до 7, то от 1 до 8. Хотя по условию вообще должны быть от 1 до 10.

program laba4;
uses crt;
const n = 8;
type arr = array[1..n] of real;
var A: arr;
sredd:real;

procedure R (var A: arr);
var
i:integer;
q:real;
y:integer;
begin
q:=0;
y:=2;
for i:=1 to 10 do
 begin
 q:=(100/sqr(y))+ln(y);
 A[i]:=q;
 inc(y);
 end;
for i:=1 to 10 do
 write (A[i]:1:5,' ');
end;
{------------------}

function Pr (A: array of real):real;
var
i:integer;
sred:real;
sum:real;
begin
sum:=0;
sred:=0;
for i:=1 to 10 do
 sum:=sum+A[i];
sred:=sum/n;
Pr:=sred;
end;

begin
clrscr;
sredd:=0;
writeln ('Massiv vipolnen po function: A[i]=(100/sqr(i))+ln(i) Dial-up i 1<i<10: ');
writeln;
R(a);
writeln;
Sredd:=Pr(a);
writeln('Srednie arifmiticheskoe znachenie: ', Sredd:1:5);
readln;
end.

[J0n1cK]

Спасибо!
но почему от 1 до 10 ?!!!
1<i<10
1 не включаем и 10 не включаем.
Да и препод нам говорил что в функциях и процедурах считаем от нуля...

[Sazary]

J0n1cK, а, ну да. Ну тогда будет от 2 до 9 (по условию-то так).

Да и препод нам говорил что в функциях и процедурах считаем от нуля...

Если у вас значение счетчика используется в вычислениях, то разумно изменять его в заданных диапазонах.

[J0n1cK]

я i заменил на y считает данный диапазон.
i просто кол-во элементов массива.

[Sazary]

я i заменил на y считает данный диапазон.
i просто кол-во элементов массива.

Собственно, делайте как хотите.
Просто цикл for идеально подходит для перебора значений.