01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / SEM1

program sem1; {ўлзЁб«пҐв summaSIN(a[i])+summaCOS(b[j])+summa(1/(1+C^2[k])
i:=1..10 j:=3..7 k:=1..5
A, B, C - ¬ бЁўл}
USES CRt;
TYPE func=function(x:real):real;
mas=array[1..10] of real;
var a, b, c:mas;
s1, s2, s3, Y:real;
i:integer;

{$F+}
function sinus(x:real):real;
begin
sinus:=sin(x)
end;

function cosinus(x:real):real;
begin
cosinus:=cos(x)
end;

function drob(x:real):real;
begin
drob:=1/(1+sqr(x));
end;
{$F-}
procedure summa(x:mas;m, n:integer;var S:real;f:func);
var i:integer;
begin
s:=0;
for i:=m to n do S:=s+f(x[i]);
end;

{®б­®ў­ п Їа®Ја ¬¬ }
Begin
clrscr;
writeln('ўўҐ¤ЁвҐ ¬ ббЁў Ђ');
for i:=1 to 10 do read(A[i]);
writeln('ўўҐ¤ЁвҐ ¬ ббЁў B');
for i:=1 to 7 do read(B[i]);
writeln('ўўҐ¤ЁвҐ ¬ ббЁў C');
for i:=1 to 5 do read(C[i]);
Summa(A,1, 10, s1, sinus);
Summa(B,3, 7, s2, cosinus);
Summa(C,1, 5, s3, Drob);
Y:=s1+s2+s3;
writeln('б㬬 =', Y:10:2);
readln;
readln;
end.