Ш. И. Раззоќов, М. Д. Юнусова turbo pascal алгоритмик тилида дастурлаш касб-ћунар коллеж талабалари учун ўќув ќўлланма

program Psumma;
const
n=20; {массив узунлиги}
type
TVector=array [1..n] of Real;
var
Vector : TVector;
i : Integer;
procedure Summa (Vec: TVector; Len: Integer; Name: String);
var
i : Integer;
S : Real;


begin
S : = 0;
for i : = 1 to Len do
S : = S + Vec [i];
Writeln (Вектор элементлари йиѓиндиси , Name,  = , s:7:2)
end;
begin
Writeln (Массив элементларини киритинг:);
for i : = 1 to n do Read (Vector[i]); Readln;
{-----------------------------------------------------------------------------------}
{Процедурани чаќириш алоћида оператор билан бажарилади!}
Summa (Vector, n, Vector);
{-----------------------------------------------------------------------------------}
end.
Функциядан фойдаланиб, ечиш:

10.2-дастур

program Psumma;
const
n=20; {массив узунлиги}
type
TVector=array [1..n] of Real;
var
Vector : TVector;
Sum : Real;
i : Integer;
function Summa (Vec: TVector; Len: Integer) : Real;
var
i : Integer;
S : Real;
begin
S : = 0;
for i : = 1 to Len do
S : = S + Vec [i];
Summa : = S {Натижа ќийматига функция исмини бериш}
{функция танасида зарурий оператор бўлиб ћисобланади}
end;
begin
Writeln (Массив элементларини киритинг:);
for i : = 1 to n do Read (Vector[i]); Readln;
{-----------------------------------------------------------------------------------}
{Ифодаларни ёзиш мумкин бўлган жойга хусусий ћолда, ўзлаштириш}
{операторининг ўнг ќисмига,функцияни чаќириш мумкин, }
Sum : = Summ (Vector, n);
Writeln (Вектор элементлари йиѓиндиси: Vector=, Sum:7:2);
{ёки бевосита Writeln чиќариш процедураси элементлари каби }
Writeln (Вектор элементлари йиѓиндиси Vector = ,
Summa (Vector, n))