страны и континенты Опции

[Yurka]

Помогите задачку на множества разобрать:

По значению s (страна) присвоить переменной st континент, на котором она находиться

Код

  type
     country=(...);
     continent=(...);
  var
      s:country;
      st:continent
      

[volvo]

Low - наименьшее возможное значение для заданного типа, а High - наибольшее возможное значение... Т.е., чтобы не делать так:

for i_country := _england to _panama do ...

(это - нехорошее решение, мы привязываемся к конкретным значениям, а этого лучше не делать)

делаем так:

for i_country := low(country) to high(country) do ...

и этот цикл будет корректно работать, и переберет ВСЕ значения от начала до конца, даже если перед _england добавится еще десяток стран...