Прога на паскале
В каждой строке файла записано три числа, каждое из которых находится в интервале[0,255]. Эти числа обозначают красную,зелёную и синюю составляющие цвета в цветовой модели RGB. Запишите в другой файл полные коды заданных цветов в виде целых чисел(код цвета= 255•255•R+255•G+B).
Ответ
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.
Внимание! Если программа не работает, обновите версию!
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.
Инкогнито:
Файл должен находиться в одной директории с файлом программы, либо надо указать полный путь по типу 'C:\MyFile\input.txt'
kamiloxcoid13:
Спасибо; но можно как-нибудь попроще?)просто я ещё не прошла такие штуки,как AllText или ToIntegers
Инкогнито:
Две строки - это сложно???
Инкогнито:
ReadAllText тупо читает файл в строку. Весь и зараз. ToIntegers берет строку, делит ее на числа и превращает в целочисленный массив.
Инкогнито:
Возможно, для Вас "попроще" то, что написали выше. Но нужно указывать версию Паскаля, мысли читать я пока что еще не научился.