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.