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

UptoLike

ВУЗ: 

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

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

Рубрика: 

х In (А + В) = (х In А) Or (х In В);
х In (А * В) = (х In А) And (х In В);
х In (А – В) = (х In А) And Not ((х In В).
2.5. Недостатки множественного типа
Главные недостатки множественного типа: малый размер
множеств и невозможность их вывода на экран (ввод мно-
жеств возможен только по элементам). Проблема частично
решается при помощи встроенного отладчика, либо в некото-
рых случаях при помощи операции In.
Задача 1
Менеджер компьютерного магазина-салона регулярно
получает информацию о технике, которую привозят на скла-
ды А, В, С. Русским названиям изделий поставлены номера
1 – 9, английским - имена tl – t9. Английские имена описаны
с помощью перечислимого типа tovary. Составить програм-
му, которая дает информацию об изделиях, имеющихся в на-
личии на складах А или В, но которых нет на складе С.
Program Lab4_1 ;
Uses Crt ;
Type tovary = (t1, t2, t3, t4, t5, t6, t7, t8, t9);
Const A : Set Of tovary = [t1, t3, t4, t5 ,t6 ,t9];
B : Set Of tovary = [t1, t2, t3, t5, t6, t8 ,t9];
C : Set Of tovary = [t3, t5, t6, t8];
Var tovar : tovary;
Begin
ClrScr;
WriteLn ('У нас такие товары:');
For tovar : = t1 To t9 Do
If tovar In A + B – C Then
Case Ord (tovar) + 1 of
1 : WriteLn ('Компьютеры Dell Dimension');
2 : WriteLn ('Компьютеры IBM PC 300');
3 : WriteLn ('Компьютеры Celebriis XL, QL');
4 : WriteLn ('Принтеры Epson LX, LQ');
5 : WriteLn ('Принтеры HP LJ 5L');
6 : WriteLn ('Сканер Epson GT9000');
50
    х In (А + В) = (х In А) Or (х In В);
    х In (А * В) = (х In А) And (х In В);
    х In (А – В) = (х In А) And Not ((х In В).

    2.5. Недостатки множественного типа
    Главные недостатки множественного типа: малый размер
множеств и невозможность их вывода на экран (ввод мно-
жеств возможен только по элементам). Проблема частично
решается при помощи встроенного отладчика, либо в некото-
рых случаях при помощи операции In.

    Задача 1
    Менеджер компьютерного магазина-салона регулярно
получает информацию о технике, которую привозят на скла-
ды А, В, С. Русским названиям изделий поставлены номера
1 – 9, английским - имена tl – t9. Английские имена описаны
с помощью перечислимого типа tovary. Составить програм-
му, которая дает информацию об изделиях, имеющихся в на-
личии на складах А или В, но которых нет на складе С.
    Program Lab4_1 ;
    Uses Crt ;
    Type tovary = (t1, t2, t3, t4, t5, t6, t7, t8, t9);
    Const A : Set Of tovary = [t1, t3, t4, t5 ,t6 ,t9];
    B : Set Of tovary = [t1, t2, t3, t5, t6, t8 ,t9];
    C : Set Of tovary = [t3, t5, t6, t8];
    Var tovar : tovary;
    Begin
    ClrScr;
    WriteLn ('У нас такие товары:');
    For tovar : = t1 To t9 Do
    If tovar In A + B – C Then
    Case Ord (tovar) + 1 of
    1 : WriteLn ('Компьютеры Dell Dimension');
    2 : WriteLn ('Компьютеры IBM PC 300');
    3 : WriteLn ('Компьютеры Celebriis XL, QL');
    4 : WriteLn ('Принтеры Epson LX, LQ');
    5 : WriteLn ('Принтеры HP LJ 5L');
    6 : WriteLn ('Сканер Epson GT9000');
                               50

Страницы