докончить программу

[Мирзали]

1) Вычислить yi=2 соs (xi)+в; здесь i=1,10. Массив x вводится из файла f1. в меняется от -4 шагом 0,5. Массив y записать в файл f2.
2) Вычислить P=Q(3,10)*x(10); Z=y(10)*R(10,3);
Матрица Q вводится из файла f3. Матрица R вводится из файла f4.Результаты матрицы P и Z добавляются в файл f1.
3) Записать в файл f5 все элементы, большие 3,5 последовательно из массивов x,y,p,z. Найти произведение элементов файла f5.

program md;
uses crt;
const n=10;
       m=3;

type mas=array[1..m,1..n] of real;
     mas1=array [1..n,1..m] of real;
     mas2=array  [1..n] of real;

var r:mas1; q:mas; b:real;
procedure m1(x,y:mas2);
i:integer;  f1,f2:text;
begin
b:=-4;
assign(f1,'m1.txt'); reset(f1);
assign(f2,'m2.txt'); rewrite(f2);
for i:=1 to n do begin
z[i]:=2*cos(x[i])+b;
b:=b+0.5;
write(f2,' 'y[i]:0:2);
end;
close(f1); close(f2);
end;
procedure m2(z,p:real; r:mas1; q:mas; x,y:mas2);
var i,j:integer; f1,f2,f3,f4:text;
z1,p1:array [1..m] of real;
begin
assign(f1,'m1.txt'); assign(f2,'m2.txt'); assign(f3,'m3.txt'); assign(f4,'m4.txt');
reset(f1); reset(f2); reset(f3); reset(f4);
for i:=1 to m do
for j:=1 to n do   begin
p1[i]:=p1[i]+q[i,j]*x[j];
inc(p,p1[i]);
z1[i]:=z1[i]+x[j]*r[j,i];
inc(z,z1[i]);
end;
append(f1); writeln(f1,z); writeln(f1,p);
close(f1); close(f2); close(f3); close(f4);
end;

begin
clrscr;
незнаю что дальше написать.

[Мирзали]

исправил кое какие ошибки

program md;
uses crt;
const n=10;
       m=3;

type mas=array[1..m,1..n] of real;
     mas1=array [1..n,1..m] of real;
     mas2=array  [1..n] of real;
var r:mas1; q:mas; b:real;
f1,f2,f5:text;    s,s1:string;
i,c,c1:integer;
procedure m1(x,y:mas2; f1,f2:text);
var i:integer;
begin
b:=-4;
assign(f1,'m1.txt'); reset(f1);
assign(f2,'m2.txt'); rewrite(f2);
for i:=1 to n do begin
y[i]:=2*cos(x[i])+b;
b:=b+0.5;
writeln(f2,' ',y[i]:0:2);
end;
close(f1); close(f2);
end;
procedure m2(z,p:real; r:mas1; q:mas; x,y:mas2);
var i,j:integer; f1,f2,f3,f4:text;
z1,p1:array [1..m] of real;
begin
assign(f1,'m1.txt'); assign(f2,'m2.txt'); assign(f3,'m3.txt'); assign(f4,'m4.txt');
reset(f1); reset(f2); reset(f3); reset(f4);
for i:=1 to m do
for j:=1 to n do   begin
p1[i]:=p1[i]+q[i,j]*x[j];
p:=p+p1[i];
z1[i]:=z1[i]+x[j]*r[j,i];
z:=z+z1[i];
end;
append(f1); writeln(f1,z); writeln(f1,p);
close(f1); close(f2); close(f3); close(f4);
end;
procedure m3(f1,f2,f5:text; c1,c:integer; s,s1:string);
var j,i:integer;
begin
assign(f1,'m1.txt'); assign(f2,'m2.txt');  assign(f5,'m5.txt');
reset(f1); reset(f2);
append(f5);
 read(f1,c); read(f2,c1);
 s:=length(f1);
 s1:=length(s1);
 for i:=1 to s do
 begin
 if c>3.5 then write(f5,c);
 end;
 for j:=1 to s1 do begin
 if c1>3.5 then write(f5,c1);
 end;
 begin
 clrscr;

[rabbitduracel]

Помоги пожалуйста с золотым сесение!Часть програмы есть а сечения нету,и не пойму что делать!!!найти максимум F(x)=((2x*x)+3*x-4)/(x*x) в интервале [1,10]

[Мирзали]

rabbitduracel

, эх дружок)))). у меня свое задание)). во вторник сдавать)