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

program Lab2;
type
    {Массив:}
    m1 = array[0..5] of integer;
    m2 = array[0..4, 0..4] of word;
    
    {Запись:}
    r = record a : integer; b : byte end;
    
    {Множество:}
    s = set of 0..50;

var
    {Вещественные:}
    v1 : single;
    v2 : real;
    v3 : double;
    v4 : extended;
    v5 : comp;
    
    {Массив, запись, множество:}
    mas1 : m1;
    mas2 : m2;
    rec : r;
    set1 : s;
    
    {Счетчик для циклов}
    i, j: integer;

begin
    v1 := 1.1;
    v2 := 2.2;
    v3 := 3.3;
    v4 := 4.4;
    v5 := 5.5;
    
    for i := 0 to 5 do
        mas1[i] := i;
        
    for i := 0 to 4 do begin
        for j := 0 to 4 do 
            mas2[i, j] := i*j;
    end;
    
    rec.a := 1;
    rec.b := 2;
    
    set1 := [0..10];
    
{====================}
    
    v1 := sin(v1);
    v2 := cos(v2);
    v3 := arctan(v3);
    v4 := exp(v4);
    v5 := ln(v5);
    
    writeln(v1);        
    writeln(v2);
    writeln(v3);
    writeln(v4);
    writeln(v5);
    
    v1 := frac(v1);
    v2 := int(v2);
    v3 := sqrt(v3);
    
    writeln(v1);        
    writeln(v2);
    writeln(v3);
    
{====================}

    for i := 0 to 5 do begin
        if ((mas1[i] <> 0) and (mas1[i] >= 0) and (mas1[i] < 10)) then
            mas1[i] := mas1[i] * 2;
        writeln(mas1[i]);
    end;
    
    for i := 0 to 4 do begin
        for j := 0 to 4 do begin
            write(mas2[i, j]);
            write(' ');
        end;
        writeln('');
    end;
       
    writeln(rec.a);        
    writeln(rec.b);
    
    include(set1, 0);
    exclude(set1, 0);
    set1 := set1 + [48..50];
    set1 := set1 - [1, 4..7];
    set1 := set1 * [9, 10];
    
    for i := 0 to 50 do begin
        if ((i in set1) and (set1 <> [100, 200]) and (set1 = set1) 
            or (set1 <= [50]) or (set1 >= [0..50])) then
            writeln(i);
    end;
end.