из двух заданных массивов В и С одинаковой длины построить новый массив

[Absent]

вроде все правильно, но она почему то не работает!!

составить процедуру, которая из двух заданных массивов В и С одинаковой длины строит новый массив Т по правилу
F1(Bi) Bi>=Ci
Ti= - это система
F2(Ci) Bi<Ci
используя в качестве F1 синус, а в качестве F2 косинус, сформировать новую матрицу Е по правилу: первая строка формируется с помощью процедуры из двух первых строк матрицы А, вторая строка- из третьей и четвертой строк матрицы А и т.д


program Project43210;

{$APPTYPE CONSOLE}

uses
SysUtils;
const n=4;
type
mas=array[1..n] of real;
matr=array[1..n,1..n] of real;
fun=function(x:real):real;
VAR A,E:matr; C,B,t:mas; i,j,k:integer;
procedure p1( b:mas;c:mas; g1:fun; g2:fun; var t:mas);
var i,j:integer;
begin
i:=1;
for j:=1 to n do
if b[i]>=c[i] then
t[i]:=g1(b[i]) else
t[i]:=g2(c[i]) ;
end;

{$F+} function G1(x:real):real;
{$F-} begin G1:= sin(x); end;
{$F+} function G2(x:real):real;
{$F-} begin G2:=cos(x); end;

BEGIN
{ TODO -oUser -cConsole Main : Insert code here }
writeln('Vvedite matr a');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
writeln ('vvedite b');
for i:=1 to n do read (b[i]);
writeln ('vvedite c');
for i:=1 to n do read (c[i]);

i:=1;
repeat
for j:=1 to n do


b[j]:=a[i,j];
c[j]:=a[I+1,J];

p1(b,c,g1,g2,t);
begin
k:=1;
E[k,j]:=t[j];
k:=k+1;
i:=i+2;
end;
until i<=6;
writeln ('E[',k,',',j,']',E[k,j]);
readln
END.

[puporev]

вроде все правильно, но она почему то не работает!!

Правильного процентов 10-15. Приведи полное условие задачи, хотя бы размерность матрицы А.

[Absent]

составить процедуру, которая из двух заданных массивов В и С одинаковой длины строит новый массив Т по правилу

F2(Ci) Bi<Ci
Ti= (фигурная скобка)
F1(Bi) Bi>=Ci


используя в качестве F1 синус, а в качестве F2 косинус, сформировать новую матрицу Е по правилу: первая строка формируется с помощью процедуры из двух первых строк матрицы А, вторая строка- из третьей и четвертой строк матрицы А и т.д

матрица размером 6*6

[puporev]

Добрался до твоей задачи. Поправлять себе дороже, поэтому слегка переделал. Работает нормально, синусы, косинусы проверял на калькуляторе, сходится.

uses
  SysUtils;
type Tmass=array[1..50]of real;
     Tmatr=array[1..50]of Tmass;
var a,e:Tmatr;
    d1,d2,c:Tmass;
    n,i,j,k:integer;
//Процедура по условию
procedure NewMas(n:integer;a,b:Tmass;var c:Tmass);
var j:integer;
begin
for j:=1 to n do
   begin
     if a[j]>=b[j] then
     c[j]:=sin(a[j])
     else if a[j]<b[j] then c[j]:=cos(b[j]);
   end;
end;
begin
randomize;
write('n=');readln(n);
writeln('Ishodnaia matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(10)+random;
        write(a[i,j]:6:2 );
      end;
    writeln;
  end;
readln;
i:=1;k:=0;
while i<=n-1 do
   begin
    k:=k+1;
    for j:=1 to n do
      begin
        d1[j]:=a[i,j];//вектор нечетной строки
        d2[j]:=a[i+1,j];//вектор четной строки
      end;
    NewMas(n,d1,d2,c);  //новый вектор
    for j:=1 to n do
    e[k,j]:=c[j];     //записываем его строкой в новую матрицу
    i:=i+2;
   end;
writeln('Novaia matrica:');
for i:=1 to k do
   begin
     for j:=1 to n do
       begin
         write(e[i,j]:6:2);//выводим ее на экран
       end;
     writeln;
  end;
readln;
end.

[Absent]

Спасибо большое