Вопрос по информатике:
Pascal: Есть набор цветов:'red', 'orange', 'yellow', 'green', 'blue', 'magenta'. С клавиатуры вводится цвет. Определить его порядковый номер в этом множестве.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.12.2015 00:44
- Информатика
- remove_red_eye 9419
- thumb_up 44
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var Color:array of string:=('red','orange','yellow','green','blue','magenta');
var MyColor:=ReadlnString('Введите цвет:').ToLower;
var i:=Color.IndexOf(MyColor);
if i<0 then Writeln('Неверный цвет')
else Writeln('Номер цвета равен ',i+1)
end.
Пример
Введите цвет: Green
Номер цвета равен 4
- 22.12.2015 21:17
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.