Антон Федорян

Удачным периодом Вася считает такой период, когда рейтинг не понижался, а провальным, соответственно, когда рейтинг не рос. Наиболее удачным периодом Вася считает такой удачный период, на котором произошел наибольший рост рейтинга, а наиболее неудачным считает такой период, на котором произошло наибольшее падение. Помогите Васе по исходным данным найти изменения рейтинга за эти периоды.

Из этого следует, что нужно проходить входной массив чисел от начала до конца. Если каждое последующее число больше предыдущего - значит это один из удачных периодов. Запоминаем первое число, с которого начался рост показателей, и последнее, на котором он стал снижаться. Разница между ними и будет показателем роста рейтинга.

Логично для начала почитать что такое Linux:
1
2
Дальше уже само программирование и языки:
Чарльз Петцольд Код
Стивен Прата C / C++
Марк Саммерфилд Qt / Python
Еще можно смотреть в сторону Ruby, Perl и других кросс-платформенных языков, но с ними я не знаком и поэтому ничего посоветовать не могу.
Если есть знания по Pascal, то можно Lazarus.

Формат ячеек не помогает?

Предложу свой вариант через массив:

procedure TForm1.Button1Click(Sender: TObject);
var
  rect: array[0..2] of real;
  tmp, p, s: real;
  i: integer;
begin
  rect[0] := StrToFloat(Edit1.Text);
  rect[1] := StrToFloat(Edit2.Text);
  rect[2] := StrToFloat(Edit3.Text);

  if (rect[0] = rect[1]) and (rect[1] = rect[2]) then
    begin
      label1.Caption := 'Равносторонний';
      Exit;
    end;
  if (rect[0] = rect[1]) or (rect[1] = rect[2]) or (rect[0] = rect[2]) then
    begin
      label1.Caption := 'Равнобедренный';
      Exit;
    end;

  //сортируем массив
  for i := 0 to 1 do
    begin
      tmp := rect[i + 1];
      if (rect[i] > rect[i + 1]) then
        begin
          rect[i + 1] := rect[i];
          rect[i] := tmp;
        end;
    end;
  if (rect[0] > rect[1]) then
        begin
          tmp := rect[1];
          rect[1] := rect[0];
          rect[0] := tmp;
        end;

  if (sqrt(rect[0] * rect[0] + rect[1] * rect[1]) = rect[2]) then
    begin
      label1.Caption := 'Прямоугольный';
      Exit;
    end;

  if (rect[0] * rect[0] + rect[1] * rect[1] > rect[2] * rect[2]) then
    begin
      label1.Caption := 'Тупоугольный';
      p := (rect[0] + rect[1] + rect[2]) / 2;
      s := sqrt(p * (p - rect[0]) * (p - rect[1]) * (p - rect[2]));
      label1.Caption := 'Площадь: ' + FloatToStr(s) + #13;
      for i := 0 to 2 do
        label1.Caption := label1.Caption + FloatToStr(rect[i]) + #13;
      Exit;
    end;
end;

Я писал макрос в самом экселе (на VBA), открывал по очереди файлы, искал нужные строки и копировал в свой документ. (подробных примеров с открытием и считыванием файлов в сети достаточно)
Инструмент можно использовать любой, каким умеете пользоваться / нравится / работает с экселем.
Можно просто вытащить эти строки и потом на их основании сформировать файл. Тут как удобнее уже Вам. (такое бы провернул на Delphi или VB).
В самом экселе есть функция ВПР, но придется прописывать формулу для каждого документа. Для этого может сгодиться и Python.

Идентификатор таблицы - "Период"

Период.НоваяКолонка("Период");
Период.НоваяСтрока();
Период.Период = "1";
Период.НоваяСтрока();
Период.Период = "2";
Период.НоваяСтрока();
Период.Период = "3";