задачи на массивы

[shadow 05]

Задание 1.
1) Вычислить Zk=3sin(x+ak); здесь i=1,8;Массив x вводится из файла f1.
a меняется от 0,4 шагом 0,2. Массив я записать в файл f2.
2)Вычислить N=(4,6)*Z(6);R=X(6)*T(6,2);
Матрица F вводится из файла f3.Матрица T вводится из файла f4.Результаты Матрицы N и R добавляются в файл f1.
3)Записать в файл f5 все элементы [-6;2] последовательно из массивов X,Z,N,R.Найти количество элементов файла f5.



uses crt;
var Z,x:array [1..6]of real;
N:araay [1..4,1..6] of real;
R: array[1..6,1..2] of real;
f1,f2,f3,f4 :text;
a,N,R :real;
b,c,d,e,g,I,k,h :integer;
begin
clrscr;
assign(f1,'c:\f1');
reset (f1);
assign(f2,'c:\f2');
reset (f2);
assign(f3,'c:\f3');
reset (f3);
assign(f4,'c:\f4');
reset (f4);

b:=1;
while not EOF (f1) do
begin
read(f1,x[b]);
inc(b);
end;
close(f1);
a:=0,4;
for i:=1 to b do
begin
z[k]:=round(3*sin(x+a[k]));
a:=a+0,2;
writeln(f2,a[k]:0);
end;
close(f2);


assign(f3,'c:\f3');
reset(f3);
for c:=1 to 4 do
for d:=1 to 6 do
read(f3,Q[c,d]);
for c:=1 to 4 do
for d:=1 to 4 do
begin
N:=F[c,d]*3;
append(f1);
writeln(f1,P:1:0);
inc(i);
end;
close (f3);
close (f1);


assign(f4,'c:\f4');
reset(f4);
for e:=1 to 2 do
for g:=1 to 2 do
read(f4,R[e,g]);
append(f1);
for e:=1 to 6 do
for g:=1 to 2 do
begin
Z:=T[e,g]*X[i];
writeln(f1,R:1:0);
inc(i);
end;
close(f1);
close(f4);


reset(f1);
b:=1;
while not EOLn (f1) do
begin
read(f1,x[b]);
append(f4);
if x[b]>-6.2 then
writeln(f4,z[k]:0);
inc(e);
end;
close(f1);
close(f4);


reset(f2);
i:=1;while not EOF(f2) do
begin
read(f2,xi]);
append(f4);
if x[i]>-6.2 then
writeln(f4,y[i]:0);
inc(i);
end;
close(f2);
close(f4);


reset(f3);
for c:=1 to 4 do
for d:=1 to 6 do
read(f3,Q[c,d]);
append(f4);
for c:=1 to 4 do
for d:=1 to 6 do
begin
if F[c,d]>-6.2 then
writeln (f4,f[c,d]:0);
end;
close(f3);
close(f4);

reset(f4);
for e:=1 to 6 do
for g:=1 to 2 do
read(f4,T[e,g]);
append(f4);
for e:=1 to 6 do
for g:=1 to 2 do
begin
if T[e,g]>-6.2 then
writeln(f4,T[e,g]:0);
end;
close(f4);
assign(f4,'c:\f4');
reset (f4);
i:=1;
while not EOF (f4) do
begin
read(f4,z[k]);
inc(i);
end;
writeln('количество символов в файле f4:',i);
readkey;
end.

[shadow 05]

1111111111111