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.