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

Ответы 6

  • Файл должен находиться в одной директории с файлом программы, либо надо указать полный путь по типу 'C:\MyFile\input.txt'
    • Автор:

      chapman
    • 6 лет назад
    • 0
  • Спасибо; но можно как-нибудь попроще?)просто я ещё не прошла такие штуки,как AllText или ToIntegers
  • Две строки - это сложно???
    • Автор:

      ashly
    • 6 лет назад
    • 0
  • ReadAllText тупо читает файл в строку. Весь и зараз. ToIntegers берет строку, делит ее на числа и превращает в целочисленный массив.
    • Автор:

      grant87f8
    • 6 лет назад
    • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years