Pascal: Есть набор цветов:'red', 'orange', 'yellow', 'green', 'blue', 'magenta'. С...

Question

Pascal: Есть набор цветов:'red', 'orange', 'yellow', 'green', 'blue', 'magenta'. С клавиатуры вводится цвет. Определить его порядковый номер в этом множестве.

Comments

Вероятно, вопрос о перечислимом типе данных и о функции Ord

---

Да, скорее всего.

---

Ага, на read выдаёт ошибку компиляции "нельзя считывать данные этого типа".

---

ТАк что придётся "множество цветов" от учителя хранить в массиве, пробегать по нему и проверять на совпадение введённой строки с цветами в массиве.

---

Весьма вероятно, что read(Colors) неприятно удивит учителя, с перечислимым то типом :)

Answer 1

// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!

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('Неверный цвет')<br>  else Writeln('Номер цвета равен ',i+1)
end.

Пример
Введите цвет: Green
Номер цвета равен 4

Comments

Спасибо!