Программа расчета по определению площади арматуры изгибаемых элементов прямоугольного сечения. Степанова Д.С - 2 стр.

UptoLike

{-----Определение площади сечения арматуры ------- }
{------------для прямоугольного сечения ---------------- }
Program Arm;
Uses CRT;
Var
{Вводимые величины}
M : real;
B :; real;
H : real;
A : real;
A _ : real;
A1 : real;
Rb : real;
G : real;
Rs : real;
Rsc: rea;l
Gsr: real;
M1 : real;
{Вычисляемые величины}
НО : real;
W : real;
Gr : real;
Ar : real;
Am: real;
As1: real;
Q : real
Q1 : real
As : real
A_s : re
Begin
Write (‘Введите параметр М, кгс*см: ‘); Readlin (M);
Write (‘Введите параметр b, см : ’); ReadLn (B);
Write (‘Введите параметр h, см : ’); ReadLn (H);
Write (‘Введите параметр a, см : ’); ReadLn (A);
Write (‘Введите параметр a’’, см : ’); ReadLn (a);
Write (‘Введите параметр Rb, кгс\cм
2
: ’); ReadLn (Rb);
Write (‘Введите параметр q b2: ’); ReadLn (q);
Write (‘Введите параметр Rs,ruc\cv
2
см : ’); ReadLn (Rs);
{-----Определение площади сечения арматуры ------- }
{------------для прямоугольного сечения ---------------- }
Program Arm;
       Uses CRT;
       Var
              {Вводимые величины}
              M : real;
              B :; real;
              H : real;
              A    : real;
              A _ : real;
              A1 : real;
              Rb : real;
              G : real;
              Rs : real;
              Rsc: rea;l
              Gsr: real;
              M1 : real;

              {Вычисляемые величины}
              НО : real;
              W : real;
              Gr : real;
              Ar : real;
              Am: real;
              As1: real;
              Q : real
              Q1 : real
              As : real
              A_s : re

      Begin
              Write (‘Введите параметр М, кгс*см: ‘); Readlin (M);
              Write (‘Введите параметр b, см : ’); ReadLn (B);
              Write (‘Введите параметр h, см : ’); ReadLn (H);
              Write (‘Введите параметр a, см : ’); ReadLn (A);
              Write (‘Введите параметр a’’, см : ’); ReadLn (a);
              Write (‘Введите параметр Rb, кгс\cм2 : ’); ReadLn (Rb);

              Write (‘Введите параметр q b2: ’); ReadLn (q);

              Write (‘Введите параметр Rs,ruc\cv2 см : ’); ReadLn (Rs);