Формирование массива - Страница 2

Vladimir_S · 30.10.2014, 19:34

Цитата:

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

Колонками)

Пожалуйста:

Код:

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 · 30.10.2014, 20:13

Спасибо)

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

Название: Снимок.PNG
Просмотров: 71

Размер: 1.8 Кб

unnamed160 · 30.10.2014, 21:56

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

Vladimir_S · 30.10.2014, 22:51

Цитата:

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

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

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

Код:

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

unnamed160 · 30.10.2014, 22:55

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

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

30.10.2014, 21:56	#13 (permalink)
unnamed160 Новичок Регистрация: 30.10.2014 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	т.е то, что что на картинке в 12 сообщении,в первом я писал без форматирования, и хотел бы Вас попросить, чтобы Вы проверили, что в коде, где вычисляется массив C, Вы ничего не перепутали)

30.10.2014, 22:55	#15 (permalink)
unnamed160 Новичок Регистрация: 30.10.2014 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Да да, все очень глухо))) Спасибо за помощь, тема, как говорится, закрыта)

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