Программы расчета по определению AS в сжатом элементе прямоугольного сечения при случайных эксцентриатетах. Степанова Д.С - 3 стр.

            y:=integer;
     procedure vibor (pr, lh:real; d:mass; var f:real);
            var k, i, z:integer;
     begin
            if pp<0.125 then k:=2;
            if (pp>=0.125) and (pp<0.375) then k:=3;
            if (pp>=0.375) and (pp<0.625) then k:=4;
            if (pp>=0.625) and (pp<0.875) then k:=5;
            if pp>=0.875 then k:=6;
            for i:=2 to 16 do
                   if d [found(ln),’ ‘k,’ ‘, z];
            f:=d[k,z];
     end;
BEGIN
    clrscr;
    writeln (‘Введите размеры поперечного сечения b и h (см)’);
    readln (b,h);
    writeln (‘Введите класс арматуры и класс бетона Rsc и Rb (H/см2)’);
    readln (Rsc,Rb);
    write (‘Коэффициент условия работы бетона = ’);
    readln (gb);
    write (‘Коэффициент условия работы = ’);
    readln (t);
    write (‘Полная расчетная нагрузка (H) N=’);
    readln (N);
    write (‘Длительная расчетная нагрузка (H) N1=’);
    readln (N1);
    write (‘Расчетная длина колонн (см) 1= ’);
    readln (1);