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