Паскаль. Задача о последовательности.

анастасия№1 · 27.12.2010, 14:20

В файле 1.pas дана последовательность a1,a2,...,a4n. Записать в другой файл последовательность 2n элементов, составленную из элементов исходной по следующему правилу: a2n+a4n,a2n-1+a4n-1,...,a1+a2n+1.

Vladimir_S · 27.12.2010, 15:33

Цитата:

Сообщение от анастасия№1

В файле 1.pas дана последовательность a1,a2,...,a4n. Записать в другой файл последовательность 2n элементов, составленную из элементов исходной по следующему правилу: a2n+a4n,a2n-1+a4n-1,...,a1+a2n+1.

Код:

CONST
 N=5;
VAR
 f_inp, f_out:TEXT;
 A:Array[1..4*N] of Word;
 i:Byte;

BEGIN
 Assign(f_inp,'1.pas');
 ReWrite(f_inp);
 Randomize;
 For i:=1 to 4*N do
  Write(f_inp, Random(100),' ');
 Close(f_inp);
 ReSet(f_inp);
 Assign(f_out,'2.pas');
 ReWrite(f_out);
 For i:=1 to 4*N do
  Read(f_inp, A[i]);
 Close(f_inp);
 For i:=0 to 2*N-1 do
  Write(f_out, A[4*n-i]+A[2*n-i],' ');
 Close(f_out);
END.

27.12.2010, 14:20	#1 (permalink)
анастасия№1 Новичок Регистрация: 27.12.2010 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль. Задача о последовательности. В файле 1.pas дана последовательность a1,a2,...,a4n. Записать в другой файл последовательность 2n элементов, составленную из элементов исходной по следующему правилу: a2n+a4n,a2n-1+a4n-1,...,a1+a2n+1.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

27.12.2010, 14:20
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Наверное проблема уже решена в похожих темах Задача про стоки, Паскаль Паскаль. Задача о сторожах Задача, Паскаль Последовательности, Паскаль Паскаль, задача Паскаль. Задача на массивы

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