Автоматизация процесса расчета стальных конструкций балочной клетки. Макаров А.А - 122 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

5.3.3. ТЕКСТ ПРОГРАММЫ "
BALKA 3"
program uu; uses
crt,graph;
type
pr«array[1..30] of real;
var
hw,tw,bf,tf,l,no,yf,ry:real;
rs,ix,w,qm,s,qq
f
qf:real;
i, j:integer;
fl,f2:text;
nom_f:string[123;
key:char;
xxl,xx2,yyl,yy2:integer;
zz,fl,n:integer; aa:arrayCl..8] of
real; bb:arrayCl..33 of real;
procedure windl(xl,yl,x2,y2:integer;coif,coir:byte;ten:char;colt:
byte);
var i:integer; begin
if ten='y' then BEGIN
window(1,1,80,25);
textbackground(O); textcolor(colt);
gotoxy(xl+1,y2+l); for i:=(yl+l) to
(y2+l) do begin
gotoxy(x2+l,i);
write('i'); end;
for i:=(xl+l) to (x2+l) do begin
gotoxy(i,y2+l);
write('•'); end;
END;
window(xl,yl,x2,y2); textbackground(
со
If);
clrscr;
textcolor(colr); gotoxy(2,l); write C|r');
for i:=4 to (x2-xl-l) do begin
gotoxy(i,l); write ('-'); end;
gotoxy(x2-xl,1); write('ii'); for i:=2 to (y2-yl) do begin
gotoxy(2,i);
writeCT); gotoxy(x2-xl,i); writer!!');
end; "
gotoxy(2,y2-yl+l); write ('"•');
for i:=3 to (x2-xl-l) do begin
gotoxy(i,y2-yl+l); write ('='); end;
gotoxy(x2-xl,y2-yl+l); write('•"');

Страницы