ВУЗ:
Составители:
Рубрика:
{-----Определение площади сечения арматуры ------- }
{------------для прямоугольного сечения ---------------- }
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);