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 ... -readln(ok); until (ok=7) ; tongtg:=1000; for bot:=1 to 30 for c:=1 to 40 for d2:=5 to 60 for d1:=10 to 60 begin z:= d1+d2+c+bot ; if z= 100 then begin a1:=(d1*da2x4[1])/100+ (d2*da1x2[1])/100;b1:=(c*cat[1]+bot*bk[1])/100; ... CLRSCR; X:=5;Y:=3; GOTOXY(X+20,Y); WRITELN(' ********** ') ;GOTOXY(X+9,Y+3); WRITE (' THANH PHAN BE TONG NHUA THIET KE'); GOTOXY(X+15,Y+6) ; write('CO SANG [20]=',ttg[1]:3:2); GOTOXY(X+40,Y+6); write('95...