Uses crt; type mas=array[1..98] of integer; var A,F,Q,C:mas; i,s:integer; begin clrscr;...

Question

Uses crt;
type mas=array[1..98] of integer;
var A,F,Q,C:mas;
i,s:integer;
begin
clrscr;
writeln('Массив первый:');
for i:=1 to 98 do
begin
A[i]:=random(100)-2;
write(A[i]:4);
end;
writeln;
writeln('Массив второй :');
for i:=1 to 98 do
begin
F[i]:=random(100)-2;
write(F[i]:4);
end;
writeln;
writeln('Массив третий :');
for i:=1 to 8 do
begin
Q[i]:=random(60)-52;
write(Q[i]:4);
end;
writeln;
writeln('Массив четвертый:');
for i:=1 to 8 do
begin
C[i]:=(sqrt(A[i])+sqrt(F[i]))/2+sin(A[i]*F[i])+(sqrt(Q[i])+sqrt(F[i]))/2+sin(Q[i]*F[i])+(sqrt(A[i])+sqrt(Q[i]))/2+sin(A[i]*Q[i]);
write(C[i]:4);
end;
writeln;
end.

Даны массивы A98), F98),Q(8). Сформировать массивы С(8), каждый элемент которого вычисляется по формулеC[i]:=(sqrt(A[i])+sqrt(F[i]))/2+sin(A[i]*F[i])+(sqrt(Q[i])+sqrt(F[i]))/2+sin(Q[i]*F[i])+(sqrt(A[i])+sqrt(Q[i]))/2+sin(A[i]*Q[i]);

Вычисление по формуле (x^2+y^2)/2+sin(X*Y) оформить в виде подпрограммы.

Answer 1

Type  mas = array[1..8] of integer;
var
  A, F, Q: mas;
  C:array[1..8] of real;
  i: integer;
function M(x,y:real):real;
begin
Result:=(x*x+y*x)/2+sin(x*y)
end;
begin 
clrscr; 
writeln('Массив первый:'); 
for i := 1 to 8 do
  begin
    A[i] := random(10);
    write(A[i]:4);
  end; 
writeln; 
writeln('Массив второй :'); 
for i := 1 to 8 do
  begin
    F[i] := random(10) ;
    write(F[i]:4);
  end; 
writeln; 
writeln('Массив третий :'); 
for i := 1 to 8 do
  begin
    Q[i] := random(10);
    write(Q[i]:4);
  end;
writeln; 
writeln('Массив четвертый:'); 
for i := 1 to 8 do
  begin
    C[i] := M(A[i],F[i])+M(Q[i],F[i])+M(A[i],Q[i]);
    write(C[i]:6:1);
  end; 
writeln;
end.