PHP:
-----------------
------------------

Помогите решить задачу по Pascal

Тема в разделе "Другие языки программирования", создана пользователем roFL, 16 дек 2013.

  1. roFL

    roFL Новичек

    1.684
    0
    Помогите решить задачу по Turbo Pascal,

    Используя функцию подпрограммы нужно узнать значение функции (1-картинка в вложениях)
    А(j ) и В(j ) - элементы массива

    Помогите решить, завтра экзамен.

    Что вышло(наброски):
    Код:
    program esep_8
    type arr=array[1...20] of real;
    Function SUM(A:arr, b:arr, n,m:integer;
    var j:integer;
    s1,s1:real;
    begin
    for j:=1 to 15 do
    s1:=s1+sqr(sin(A[j]);
    for j:=1 to 20 do
    S2:=s2+sqr(sin(B[j]);
    sum:=(1/45)*(s1+s1);
    end;
    
     

Поделиться этой страницей