Tham khảo tài liệu 'giáo trình tin học chuyên ngành cơ học biến dạng và cán kim loại - phụ lục', kỹ thuật - công nghệ, cơ khí - chế tạo máy phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | PHỤ LỤC ĐỂ THAM KHÁO 1. Chương trình tính công nghệ cán thép góc chạy trong Windows I lit it 4 CHƯƠNG TRÌNH CÔNG NGHỆ CÁN THÉP GÓC - CÁN THÒ VÀ CÁN ĐỊNH HÌNH Uses mouse crt dos CONST d 1 360 d2 510 Tch 1500 TT 30 xikmatb 45 fa Iqt 9 8 Vq 975 Type string80 string 80 ma array 0. 20 of real Mtext array l .10 l. 10 of real string30 string 30 text30 array of string30 Var title text30 Rtextrmtext goczreal hr b3 Mms Vc 1 Vc2 Tc 1 ma x y integer textl text30 choose byte chrchar Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mĩ Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt1 Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt Mt J Procedure Frame xpos ypos width height byte color word Frametype byte 138 Var i j byte ch 1 ch4 char Begin If frametype l then begin chl char 201 ch2 char 187 ch3 char 200 ch4 char 188 ch5 char 186 ch6 char 205 end else begin chl char 2l8 ch2 chat 191 ch3 char 192 ch4 char 217 ch5 char 179 ch6 char 196 end for i 1 to height do begin tcxtcolor color gotoxyfxpos-1 ypos i-1 write char 222 gotoxy xpos width-1 ypos i-1 write char 221 end textbackground color textcolorf white gotoxy X pos y pos for i l to height-1 do begin for j l to width-1 do writeC gotoxy xpos ypos i end for i l to height-1 do 139 begin textcolor white gotoxy xpos ypos i-1 write ch5 gotoxy xpos width-2 ypos i write ch5 end gotoxy xpos ypos write chl for i 2 to width-2 do wnte ch6 writc ch2 gotoxy xpos ypos height-1 write ch3 for i 2 to width-2 do write ch6 write ch4 End I fi 4 J Procedure drawVerMenu xpos ypos rows dist curpos byte text text30 Var i bytc Begin textcolor red textbackground cyan gotoxy xpos ypos curpos-1 dist write text curpos textcolorf white for i l tocurpos-1 do begin gotoxy xpos ypos i-1 d ist write text i end for i curpos l to rows do begin gotoxy xpos ypos i-1 dist write text i end end .
