Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 40 стр.

UptoLike

10. Можно ли к данным перечислимого типа применить
стандартные процедуры ввода-вывода?
11. Какие средства имеются в языке Паскаль для ввода-
вывода значений переменных перечислимого типа?
5.2. Упражнения (перечислимый тип)
1. Что будет напечатано в результате выполнения цикла
в следующем фрагменте программы:
Type colour = (green, yellow, red) ;
Var c : colour ;
Begin
For с : = green To yellow Do
Write ( Ord (c ) ) ;
End.
2. Измените фрагмент программы из предыдущего во-
проса, заменив цикл For циклом While.
3. В разделе типов описан список деталей:
Type список деталей = (шуруп, гайка, винт, шпилька) ;
Написать фрагмент программы, обеспечивающий распе-
чатку названия детали по указанному номеру.
4. Пусть имеются описания:
Type day = (monday, tuesday, wednesday, thursday, friday,
saturday, sunday);
pmonth = ( m28, m29, m30 , m31 ) ;
Var wday, weekday : day ;
kday: pmonth ;
a) установите, какие значения могут принимать пере-
менные weekday, kday;
b) определите, допустимы ли следующие присваивания:
weekday : = friday ;
kday : = m27 ;
weekday : = m30 ;
kday : = Ord ( thursday ) ;
c) вычислите значения выражений:
monday < sunday ;
tuesday = m 28 ;
wednesday <= wednesday ;
tuesday <> m29 ;
40
    10. Можно ли к данным перечислимого типа применить
стандартные процедуры ввода-вывода?
    11. Какие средства имеются в языке Паскаль для ввода-
вывода значений переменных перечислимого типа?

     5.2. Упражнения (перечислимый тип)
     1. Что будет напечатано в результате выполнения цикла
в следующем фрагменте программы:
     Type colour = (green, yellow, red) ;
            Var c : colour ;
                          Begin
                          For с : = green To yellow Do
                          Write ( Ord (c ) ) ;
                    End.
     2. Измените фрагмент программы из предыдущего во-
проса, заменив цикл For циклом While.
     3. В разделе типов описан список деталей:
     Type список деталей = (шуруп, гайка, винт, шпилька) ;
     Написать фрагмент программы, обеспечивающий распе-
чатку названия детали по указанному номеру.
     4. Пусть имеются описания:
     Type day = (monday, tuesday, wednesday, thursday, friday,
saturday, sunday);
     pmonth = ( m28, m29, m30 , m31 ) ;
       Var wday, weekday : day ;
            kday: pmonth ;
     a) установите, какие значения могут принимать пере-
менные weekday, kday;
     b) определите, допустимы ли следующие присваивания:
     weekday : = friday ;
     kday : = m27 ;
     weekday : = m30 ;
     kday : = Ord ( thursday ) ;
     c) вычислите значения выражений:
     monday < sunday ;
     tuesday = m 28 ;
     wednesday <= wednesday ;
     tuesday <> m29 ;
                             40