Формирование массива

[unnamed160]

Формирование массива

Даны 2 массива A(m) B(m), где m<12. Массивы A и B считываются из заранее подготовленного файла lab1.dat. Задание:
сформировать массив C по правилу:

C1=Bm+A1
C2=Bm-1+A2
.................
Cm=B1+Am

 

[Vladimir_S]

Даны 2 массива A(m) B(m), где m<12. Массивы A и B считываются из заранее подготовленного файла lab1.dat. Задание:
сформировать массив C по правилу:

C1=Bm+A1
C2=Bm-1+A2
.................
Cm=B1+Am

К сожалению, абсолютно невозможно. Понимаете, наши телепаты уже удрали на новогодние каникулы, шпионы разбежались, а без тех или других проникнуть в Тайну Языка Программирования, на котором следует выполнить задание, мы не можем.
Извините.

 

[unnamed160]

Извиняюсь конечно же, но если Вы о языке, то это Pascal)))

 

[Vladimir_S]

Извиняюсь конечно же, но если Вы о языке, то это Pascal)))

Тогда ладно, вот с обеда вернусь - нарисую. Делов-то там - на три минуты...

 

[Vladimir_S]

Получите:
Файл lab1.dat:

  13   2  28  45   0  33   9   5  42  11

   6  91   7  11  40   8  17  10   3   1

Программа:

Const
 m=10;

Var
 A,B,C:Array[1..12] of Integer;
 i:Integer;
 f:text;

Begin
 Assign(f,'lab1.dat');
 Reset(f);
 for i:=1 to m do read(f,A[i]);
 for i:=1 to m do read(f,B[i]);
 Close(f);
 for i:=1 to m do
  begin
   C[i]:=A[i]+B[m-i+1];
   writeln(A[i]:8,B[i]:8,C[i]:8);
  end;
 readln
End.

 

[unnamed160]

Vladimir_S, спасибо)

 

[Vladimir_S]

Vladimir_S, спасибо)

Да не за что. Вообще-то с подобной ерундой надо бы самостоятельно...

 

[unnamed160]

Vladimir_S, прошу прощения, что опять занимаю ваше время, не могли Вы, помочь с выводом этих 3 массивом в файл lab1.res? )))

 

[Vladimir_S]

Vladimir_S, прошу прощения, что опять занимаю ваше время, не могли Вы, помочь с выводом этих 3 массивом в файл lab1.res? )))

Легко. Вам как, колонками или строчками?

 

[unnamed160]

Легко. Вам как, колонками или строчками?

Колонками)

 

[Vladimir_S]

Колонками)

Пожалуйста:

Const
 m=10;

Var
 A,B,C:Array[1..12] of Integer;
 i:Integer;
 f:text;

Begin
 Assign(f,'lab1.dat');
 Reset(f);
 for i:=1 to m do read(f,A[i]);
 for i:=1 to m do read(f,B[i]);
 Close(f);
 Assign(f,'lab1.res');
 Rewrite(f);
 for i:=1 to m do
  begin
   C[i]:=A[i]+B[m-i+1];
   writeln(f,A[i]:8,B[i]:8,C[i]:8);
  end;
 Close(f);
End.

 

[unnamed160]

Спасибо)

И можете еще проверить формулу вычисления С по этой картинке, чтобы ошибок не было )))

 

[unnamed160]

т.е то, что что на картинке в 12 сообщении,в первом я писал без форматирования, и хотел бы Вас попросить, чтобы Вы проверили, что в коде, где вычисляется массив C, Вы ничего не перепутали)

 

[Vladimir_S]

т.е то, что что на картинке в 12 сообщении,в первом я писал без форматирования, и хотел бы Вас попросить, чтобы Вы проверили, что в коде, где вычисляется массив C, Вы ничего не перепутали)

То есть всё настолько глухо, что самому вот эту готовую строчку программы не одолеть?

C[i]:=A[i]+B[m-i+1];

 

[unnamed160]

Да да, все очень глухо)))
Спасибо за помощь, тема, как говорится, закрыта)