Задание: разработать программу вычисления выходного значения функ-ции y=f(x1,x2,x3,x4)....

Question

Задание: разработать программу вычисления выходного значения функ-ции y=f(x1,x2,x3,x4). Тип входных и выходных данных, вид функции заданы в табл. 2. Выходное значение и входные должны отображаться на экране в виде: X1= X2= X3= X4= Y=

Разработать функцию, которая автоматически заполняет массив из 10 наборов входных данных. Массив затем подвергается обработке, т.е. в цикле вычисляются значения функции и выводятся на экран в виде: Y1= Y2= Y3= Y4= , и т.д.

тип входных данных: целое тип выходных данных: целое, функция: x1*sin(x2) + x3*sin(x4)

Answer 1

var x1,x2,x3,x4,i:integer;

function f(x1,x2,x3,x4:integer):real;
begin
    f:=x1*sin(x2)+x3*sin(x4);
end;
Begin
    for i := 1 to 10 do
        readln(x1,x2,x3,x4);
        writeln(" x1=",x1," x2=",x2," x3=",x3," x4=",x4," y=",f(x1,x2,x3,x4));
    for j := 1 to n do
End.