Вопрос по информатике:
Прога на паскале
В каждой строке файла записано три числа, каждое из которых находится в интервале[0,255]. Эти числа обозначают красную,зелёную и синюю составляющие цвета в цветовой модели RGB. Запишите в другой файл полные коды заданных цветов в виде целых чисел(код цвета= 255•255•R+255•G+B).
- 04.12.2017 09:13
- Информатика
- remove_red_eye 14573
- thumb_up 23
Ответы и объяснения 2
function TenIn16(x: integer): string;var s: string;begin repeat s := sixteen[x mod 16 + 1] + s; x := x div 16; until x = 0; if length(s) = 1 then s := '0' + s; TenIn16 := s;end;
var f1, f2: text; a1, a2, a3: byte;
begin assign(f1, 'record.txt'); reset(f1); assign(f2, 'result.txt'); rewrite(f2); while not eof(f1) do begin read(f1, a1, a2, a3); writeln(f2, TenIn16(a1), TenIn16(a2), TenIn16(a3)); end; close(f1); close(f2);end.
- 05.12.2017 19:18
- thumb_up 9
Внимание! Если программа не работает, обновите версию!
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.
- 06.12.2017 19:26
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.