Функции [Pascal].

[sergey31]

У меня небольшая проблемка: не могу понять как оформить функцию. Читал книги, эти формальные и фактические параметры меня запутали...
В общем вот задание: "Для одномерных массивов Q,W,R которые состоят из 10 элементов целочисленного типа, найти сумму квадратов непарных элементов массива. Элементы массива вводятся с клавиатуры. Результаты вычислений для каждого массива вывести на экран"
Написал такую программку:

Program Summa;
CONST
a=10;
VAR
s,i:integer;
Q,W,R:array[1..a] of integer;
function S({не знаю как написать что входящими данными должен быть массив}):integer;
begin
for i:=1 to a do
if (i mod 2)>0 then
s:=s+sqr({здесь должен быть массив, который мы вводим в качестве параметра}[i];)
end;
begin
writeln('Введите элементы массива Q');
for i:=1 to a do
read(Q[i]);
{теперь должны вызвать функцию с нашим массивом Q}
writeln ('Сумма квадратов массива Q =',s); 
{и т. д. для каждого массива.}
end.

Если не тяжело, объясните пожалуйста.

[L_M]

А просто

function S(a:array[1..a])

работать не будет? Попробуй.
Или опиши свой тип

program X;
const
     a=10;

type
     new=array[1..a] of integer;

var
     Q,W,E:new;

Function S(b:new):integer;
begin
begin  
for i:=1 to a do  
if (i mod 2)>0 then  
s:=s+sqr(b[i];)   
end;   
begin  
writeln('Введите элементы массива Q');   
for i:=1 to a do  
read(Q[i]);   
writeln ('Сумма квадратов массива Q =',s(Q));    
{и т. д. для каждого массива.}  
end.

по моему так...

[sergey31]

Сейчас попробую

[Greblin]

type TMas = array[1..10] of integer;

var Q, W, R: TMas;

function S(Arr: TMas): integer;   
begin  
for i:=1 to 10 do  
if (i mod 2)>0 then  
S:=S+sqr(Arr[i]);   
end;

Правда у тебя тут не непарные, а нечётные элементы
Вызывать так

S(Q);

Теперь чем отличаются параметры, переданные с var и без. Упрощенно говоря, если ты объявил параметр без var (как в нашем случае), то будет отведена память под переменную, доступная только из данной функции\процедуры. В неё будет записано значение переданного параметра. То есть реально функция будет работать с другой переменной.
Если ты объявил параметр с var, то функция будет работать именно с той переменной, которую ты передал. То есть мы передаём не значение, а ссылку на ячейку памяти, в которой расположена данная переменная. Фактически, это то же самое, что передать указатель на переменную, если знаком с таким

[sergey31]

Спасибо, я разобрался). Насколько глупый был вопрос, надо было всего лишь немного посидеть и логически подумать))).