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) оформить в виде подпрограммы.
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) оформить в виде подпрограммы.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
uses crt;
type
mas = array[1..98] of integer;
var
A, F, Q, C: mas;
i, s: integer;
function Calculate(x, y: integer): integer;
begin
Calculate := (sqrt(x) + sqrt(y)) / 2 + sin(x * y);
end;
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] := Calculate(A[i], F[i]) + Calculate(Q[i], F[i]) + Calculate(A[i], Q[i]);
write(C[i]:4);
end;
writeln;
end.