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

UptoLike

ВУЗ: 

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

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

Рубрика: 

7 : WriteLn ('Дисковод CD-ROM');
8 : WriteLn ('Дискеты Verbatim 1.44Mb');
9 : WriteLn ('Дискеты Polaroid 1.44Mb')
End;
WriteLn;
WriteLn ('Mы ждем вас');
ReadLn;
End.
Протокол работы программы. У нас такие товары:
Компьютеры Dell Dimension 2
Компьютеры IBM PC 300
Принтеры Epson LX, LQ
Дискеты Polaroid 1.44Mb
Mы ждем вас
В разделе типов задается список объектов (товаров), оп-
ределяющий базовый тип (tovary), на основе которого по-
строены множественные типы А, В, С. Исходные значения
(перечень товаров, имеющихся в наличии) в множества А, В,
С занесены с помощью типизированной константы. Далее в
цикле перебираем все товары и по номеру товара (функция
ORD) и, используя операцию включения In печатаем инфор-
мацию об изделиях, имеющихся в наличии на складах А или
В, но которых нет на складе С.
Задача 2
Дано натуральное число n (n <=100), определяющее воз-
раст человека (в годах). Дать для этого числа наименование
«год», «года» или «лет», например:
1 год, 24 года, 90 лет.
Program Lab4_2;
Uses Crt;
Var n : 1..100;
Begin
ClrScr;
Write ('Введите возраст');
ReadLn (n);
GoToXY (WhereX + 20, WhereY – 1);
If n In [11 .. 14]
51
    7 : WriteLn ('Дисковод CD-ROM');
    8 : WriteLn ('Дискеты Verbatim 1.44Mb');
    9 : WriteLn ('Дискеты Polaroid 1.44Mb')
    End;
    WriteLn;
    WriteLn ('Mы ждем вас');
    ReadLn;
    End.
    Протокол работы программы. У нас такие товары:
    Компьютеры Dell Dimension 2
    Компьютеры IBM PC 300
    Принтеры Epson LX, LQ
    Дискеты Polaroid 1.44Mb
    Mы ждем вас
    В разделе типов задается список объектов (товаров), оп-
ределяющий базовый тип (tovary), на основе которого по-
строены множественные типы А, В, С. Исходные значения
(перечень товаров, имеющихся в наличии) в множества А, В,
С занесены с помощью типизированной константы. Далее в
цикле перебираем все товары и по номеру товара (функция
ORD) и, используя операцию включения In печатаем инфор-
мацию об изделиях, имеющихся в наличии на складах А или
В, но которых нет на складе С.

    Задача 2
    Дано натуральное число n (n <=100), определяющее воз-
раст человека (в годах). Дать для этого числа наименование
«год», «года» или «лет», например:
    1 год, 24 года, 90 лет.
    Program Lab4_2;
    Uses Crt;
    Var n : 1..100;
    Begin
    ClrScr;
    Write ('Введите возраст');
    ReadLn (n);
    GoToXY (WhereX + 20, WhereY – 1);
    If n In [11 .. 14]
                            51

Страницы