Question

Прога на паскале В каждой строке файла записано три числа, каждое из которых находится в интервале[0,255]. Эти числа обозначают красную,зелёную и синюю составляющие цвета в цветовой модели RGB. Запишите в другой файл полные коды заданных цветов в виде целых чисел(код цвета= 255•255•R+255•G+B).

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadAllText('input.txt').ToIntegers; // a[0]=R,.. a[2]=B
  WriteAllText('output.txt',(a[0]*255*255+a[1]*256+a[2]).ToString)
end.

Answer 2

Вот пример программы на языке Pascal, которая читает цвета из одного файла, вычисляет их коды и записывает их в другой файл:

scssCopy code
program RGBToCode;

var
  input, output: TextFile;
  r, g, b, code: Integer;

begin
  AssignFile(input, 'input.txt');
  Reset(input);
  AssignFile(output, 'output.txt');
  Rewrite(output);

  while not Eof(input) do
  begin
    ReadLn(input, r, g, b);
    code := 255 * 255 * r + 255 * g + b;
    WriteLn(output, code);
  end;

  CloseFile(input);
  CloseFile(output);
end.

Программа использует два файловых указателя - input и output. Она открывает файл input.txt для чтения и файл output.txt для записи результатов. Затем программа читает каждую строку из файла input.txt, разбивая ее на три числа - красную, зеленую и синюю составляющую цвета. Затем программа вычисляет код цвета по формуле, указанной в задании, и записывает его в файл output.txt.

Для компиляции этой программы вам понадобится среда разработки на языке Pascal, например, Free Pascal. Вы можете скопировать приведенный выше код в файл с расширением .pas, сохранить его на вашем компьютере и скомпилировать его с помощью Free Pascal. После компиляции вы сможете запустить программу и она создаст файл output.txt с результатами.