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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Задача 1
Продемонстрируем операции объединения, пересечения,
разности при работе с множеством. Для вывода результата
используем подпрограмму без параметров.
Program Lab8_1;
{Демонстрация операций +, *, – при работе с множеством}
Uses Crt;
Type MN = 1 .. 6;
MN1 = set of MN;
Var A, B, C : MN1;
{Подпрограмма вывода результата вычислений}
Procedure RESULT;
Var K : Integer;
Begin
For K : = 1 To 6 Do
If K In C Then Write (K : 4);
WriteLn;
End;
{Исполнимая часть головной программы}
Begin
ClrScr;
A : = [1, 3, 4];
B : = [2, 4, 6];
C : = A + B ;
WriteLn ('ОБЪЕДИНЕНИЕ [1, 3, 4] + [2, 4, 6]');
RESULT;
C : = A * B;
WriteLn ('ПЕРЕСЕЧЕНИЕ [1, 3, 4] * [2, 4, 6 ]');
RESULT;
C : = A – B;
WriteLn ('РАЗНОСТЬ [1, 3, 4] – [2, 4, 6]');
RESULT;
End.
Протокол работы программы:
ОБЪЕДИНЕНИЕ [1, 3, 4] + [2, 4, 6]
1 2 3 4 6
ПЕРЕСЕЧЕНИЕ [1, 3, 4] * [2, 4, 6]
79
    Задача 1
    Продемонстрируем операции объединения, пересечения,
разности при работе с множеством. Для вывода результата
используем подпрограмму без параметров.
    Program Lab8_1;
    {Демонстрация операций +, *, – при работе с множеством}
    Uses Crt;
    Type MN = 1 .. 6;
    MN1 = set of MN;
    Var A, B, C : MN1;
    {Подпрограмма вывода результата вычислений}
    Procedure RESULT;
    Var K : Integer;
    Begin
    For K : = 1 To 6 Do
    If K In C Then Write (K : 4);
    WriteLn;
    End;
    {Исполнимая часть головной программы}
    Begin
    ClrScr;
    A : = [1, 3, 4];
    B : = [2, 4, 6];
    C:=A+B;
    WriteLn ('ОБЪЕДИНЕНИЕ [1, 3, 4] + [2, 4, 6]');
    RESULT;
    C : = A * B;
    WriteLn ('ПЕРЕСЕЧЕНИЕ [1, 3, 4] * [2, 4, 6 ]');
    RESULT;
    C : = A – B;
    WriteLn ('РАЗНОСТЬ [1, 3, 4] – [2, 4, 6]');
    RESULT;
    End.
    Протокол работы программы:
    ОБЪЕДИНЕНИЕ [1, 3, 4] + [2, 4, 6]
    1 2 3 4 6
    ПЕРЕСЕЧЕНИЕ [1, 3, 4] * [2, 4, 6]
                            79

Страницы