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

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

t : = RabDay = BolnDay;
For RabDay : = 5 To 30 Do;
k : = Ord (RabDay) – 2;
k : = Succ(BolnDay);
k : = Pred (RabDay);
5. Пусть даны описания:
Var z : ' a ' . .' z ';
date : 1..31;
digit : ' 0' .. ' 9 ';
month : 1 .. 12 ;
Допустимы ли операторы?
a) date : = 1; 2; 31;
b) month : = Ord (digit);
c) month = Ord (month);
d) For z : = ' a ' To ' z ' Do
e) For month : = 6 To 31 Do
f) Read (month);
h) WriteLn (z).
6. Представить задуманное натуральное число при по-
мощи римских цифр.
При этом имеем следующее соответствие: 1000 – М, 500
– D, 100 – C, 50 – L, 10 – X, 5 – V, 1 – I.
ЛАБОРАТОРНАЯ РАБОТА № 4
МНОЖЕСТВЕННЫЙ ТИП ДАННЫХ (I)
Цели работы
1. Освоение теоретического материала по использованию
перечислимого и интервального типов данных.
2. Получение навыков в использовании перечислимого и
интервального типов данных.
44
    t : = RabDay = BolnDay;
    For RabDay : = 5 To 30 Do;
    k : = Ord (RabDay) – 2;
    k : = Succ(BolnDay);
    k : = Pred (RabDay);
    5. Пусть даны описания:
    Var z : ' a ' . .' z ';
      date : 1..31;
     digit : ' 0' .. ' 9 ';
    month : 1 .. 12 ;
    Допустимы ли операторы?
    a) date : = 1; 2; 31;
    b) month : = Ord (digit);
    c) month = Ord (month);
    d) For z : = ' a ' To ' z ' Do
    e) For month : = 6 To 31 Do
    f) Read (month);
    h) WriteLn (z).
    6. Представить задуманное натуральное число при по-
мощи римских цифр.
    При этом имеем следующее соответствие: 1000 – М, 500
– D, 100 – C, 50 – L, 10 – X, 5 – V, 1 – I.




             ЛАБОРАТОРНАЯ РАБОТА № 4

        МНОЖЕСТВЕННЫЙ ТИП ДАННЫХ (I)


                      Цели работы

    1. Освоение теоретического материала по использованию
перечислимого и интервального типов данных.
    2. Получение навыков в использовании перечислимого и
интервального типов данных.

                           44

Страницы