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

unnamed160 · 30.10.2014, 11:53

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

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

Vladimir_S · 30.10.2014, 12:22

Цитата:

Сообщение от unnamed160

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

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

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

unnamed160 · 30.10.2014, 13:05

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

Vladimir_S · 30.10.2014, 13:07

Цитата:

Сообщение от unnamed160

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

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

Vladimir_S · 30.10.2014, 14:10

Получите:
Файл 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 · 30.10.2014, 16:04

Vladimir_S, спасибо)

Vladimir_S · 30.10.2014, 16:17

Цитата:

Сообщение от unnamed160

Vladimir_S, спасибо)

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

unnamed160 · 30.10.2014, 18:34

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

Vladimir_S · 30.10.2014, 19:01

Цитата:

Сообщение от unnamed160

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

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

unnamed160 · 30.10.2014, 19:27

Цитата:

Сообщение от Vladimir_S

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

Колонками)

30.10.2014, 11:53	#1 (permalink)
unnamed160 Новичок Регистрация: 30.10.2014 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Формирование массива Даны 2 массива A(m) B(m), где m<12. Массивы A и B считываются из заранее подготовленного файла lab1.dat. Задание: сформировать массив C по правилу: C1=Bm+A1 C2=Bm-1+A2 ................. Cm=B1+Am

30.10.2014, 14:10	#5 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Получите: Файл 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.

30.10.2014, 13:05	#3 (permalink)
unnamed160 Новичок Регистрация: 30.10.2014 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Извиняюсь конечно же, но если Вы о языке, то это Pascal)))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

30.10.2014, 16:04	#6 (permalink)
unnamed160 Новичок Регистрация: 30.10.2014 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Vladimir_S, спасибо)

30.10.2014, 18:34	#8 (permalink)
unnamed160 Новичок Регистрация: 30.10.2014 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Vladimir_S, прошу прощения, что опять занимаю ваше время, не могли Вы, помочь с выводом этих 3 массивом в файл lab1.res? )))