Ngày tải lên :
11/09/2012, 15:49
... -b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,tong,tongtg,l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 :real; BEGIN clrscr; writeln ( '************* BE TONG NHUA HAT VUA NHIEU DA DAM LOAI A*********'); writeln (' Nguoi Thuc Hien : Tran Phuong Mai ... writeln (' Nguoi Thuc Hien : Tran Phuong Mai '); writeln(' lop xay dung cong trinh giao thong khoa 10 '); repeat writeln('Nhap luong lot cho moi phan voi tung co sang'); write('da2x4[20]= ');read ... var da2x4,da1x2,damat,cat,bk:array [1 11] of real; t,ttg:array [1 11] of real; D1,D2,M,C,bot,z,X,Y,ok,d1tg,d2tg,bottg: integer; i,o,k,l,n,j,h,q,r,s,u:integer; a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11:real;...