Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные (альтернатива) / L (2)

program labor2;
type
    m = array[0..10] of word;
    m1 = array[0..1, 0..1] of word;
    
    z = record a : byte; b : integer end;
    
    mn = set of 0..20;

var
    vesh1 : single;
    vesh2 : real;
    vesh3 : double;
    vesh4 : extended;
    vesh5 : comp;
    i : word;
    
    mas : m;
    mas1 : m1;
    zap : z;
    mnoj : mn;


begin
    randomize;
    
    vesh1 := 1.55;
    vesh1 := arctan(vesh1);
    writeln(vesh1);
    
    vesh2 := 2.55;
    vesh2 := cos(vesh2);
    writeln(vesh2); 
    
    vesh3 := 3.55;
    vesh3 := sin(vesh3);
    writeln(vesh3); 
    
    vesh4 := 4.55;
    vesh4 := exp(vesh4);
    writeln(vesh4); 
    
    vesh5 := 5.55;
    vesh5 := ln(vesh5);
    writeln(vesh5); 
    
    vesh1 := 1.55;
    vesh1 := frac(vesh1);
    writeln(vesh1); 
    
    vesh2 := 2.55;
    vesh2 := int(vesh2);
    writeln(vesh2); 
    
    vesh3 := 3.55;
    vesh3 := sqrt(vesh3);
    writeln(vesh3); 
    
    
    for i := 0 to 10 do begin
        mas[i] := random(i);
    end;
    
    for i := 0 to 10 do begin
        if ( (mas[i] <> 0) or (mas[i] = 5) and (mas[i] <= 100) and (mas[i] > -100)) then begin
            mas[i] := mas[i] + 1;
            write(mas[i], ' ');
        end;
    end;
    
    
    mas1[0,0]:=mas[0];
    mas1[0,1]:=mas[1];
    mas1[1,0]:=mas[2];
    mas1[1,1]:=mas[3];
    
    writeln(mas1[0,0]);
    writeln(mas1[0,1]);
    writeln(mas1[1,0]);
    writeln(mas1[1,1]);
    
    
    zap.a := 250;
    zap.b := 378;
    writeln('');
    writeln(zap.a - 50);        
    writeln(zap.b * 2);
    
    
    mnoj := [0..15];
    include(mnoj, 16);
    exclude(mnoj, 15);
    mnoj := mnoj - [5..10];
    mnoj := mnoj * [12..14];
    mnoj := mnoj + [13];
    
    for i := 0 to 20 do begin
        if ( (i in mnoj) and (mnoj <> [20..30]) or (mnoj <= [40]) or (mnoj >= [45]) ) then
            writeln(i);
    end;
end.