Сформировать новый файл, который будет состоять из сумм компонентов - Pascal

  1. Задан файл из N целых компонентов. Сформировать новый файл, который будет состоять из сумм компонентов a1+aN, a2+aN-1, a3+aN-2, ..., ak+am для k<=m. Выдать содержимое полученного файла на экран.


textual

Код к задаче: «Сформировать новый файл, который будет состоять из сумм компонентов - Pascal»

const
  n = 10;
 
var
  t, x, i: integer;
  f, g: file of integer;
 
begin
  randomize;
  assign(f, 'f.dat');
  rewrite(f);
  writeln('Исходный файл: ');
  for i := 1 to n do
  begin
    x := random(10);
    write(x, ' ');
    write(f, x);
  end;
  writeln;
  reset(f);
  assign(g, 'g.dat');
  rewrite(g);
  writeln('Новый файл: ');  
  for i := 0 to filesize(f) div 2 - 1 do
  begin
    seek(f, n - i - 1);
    read(f, x);
    seek(f, i);
    read(f, t);
    write(g, x + t);
    write(x + t, ' ')
  end;
  close(f);
  close(g);
end.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.000 из 5



Похожие ответы
  1. 2. Сформировать двумерный динамический массив. Добавить в него строку с заданным номером;

  1. дана вещественная матрица A(n*n). Если максимальный элемент матрицы находится на главной диагонали или выше её то все элементы матрицы домножить на 10. в противном случае получить одномерную матрицу

  1. Даны три множества Х1={1,2,3,…, 20}, Х2={10, 11, 12,… , 30} и Х3={1, 3, 5,… , 19, 21). Сформировать множество Y=(Х1+Х2)*(Х1+ХЗ). Из которого выделить подмножество Y1 чисел, делящихся на 4 без остатка. На экран вывести множество Y и мощность множества YI.

  1. Дано натуральное число. Сформировать массив двузначных отрицательных чисел делящихся на 3

  1. Дано: массив А(N). Сформировать новый массив В, состоящий из нечетных элементов массива А и найти в нем сумму элементов.

  1. Написать программу, которая позволяет вводить действительные числа (количество предварительно задается либо завершается по указанию пользователя), заносить их в файл и выполнять их обработку: - Выбрать из файла положительные числа, вывести их на экран и записать в новый файл.

  1. Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный так же, как исходные массивы.

  1. Напишите программу используя функции и процедуры. Даны массивы X(8), Z(10), W(15), элементы которых определяются по формулам: X(i)=a1i2-a2(5-i); Z(i)=c1(i-4)+c2sin2(1,5i); W(i)=d1ln(0,1i)+d2cos3(i-2,5). Мои значения коэффициентов: а1=4, а2=8, c1=2, c2=7, d1=8, d2=6. Сформируйте массив из разностей между суммами положительных элементов с чётными и нечётными индексами в массивах Х, Z, W.

  1. 1. Дано матрицу A (N, M). Сформировать одномерный массив из парных значений элементов матрицы. Заранее спасибо!