Pascal

Bài 1: Xem trong sách nhé. Tớ ko có sách :D Nếu ko có sách thì có thể trả lời đại khái như sau: Nối mạng máy tính thì có lợi hơn trong việc trao đổi dữ liệu và thông tin. Bài 2: Bài này vẽ = word hơi lâu nên tớ bỏ qua. Ko làm. Vẽ ra jấy thì nhanh hơn nhưng mà jấy thì ko send qua mail dc :D Bài 3: 1- CD B:\KTQD Vì ổ chủ là ổ C nên khi gõ lệnh này thì kết quả thực hiện vẫn là ổ C (C:\>) 2- A: Kết quả hiển thị là ổ A (A:\>) 3- MD TCHUC Tạo 1 thưc mục tên là TCHUC tại đường dẫn hiện thời. 4- COPY B: LINH*.TXT \TAICHUC\*.DOC Lệnh này thực hiện việc copy tất cả các file định dạng *.txt có tên gồm các kí tự đầu là LINH vào thư mục TAICHUC ở ổ chủ, đồng thời đổi các file vừa mới copy sang định dạng *.doc. Bài 4: Cái này cũng lý thuyết. Bài 5: Bài này tớ làm giấy rồi  Bài 6:. const st1 = 'TenKH'; st2 = 'DienTT'; st3 = 'ThanhTien'; st4 = 'ThueGTGT'; st5 = 'TongCong'; type ThongTin = record ten : string[25]; csmoi, cscu : word; end; KhachHang = array[1..500] of ThongTin; var kh : KhachHang; n, i, DienTT, DonGia, ThanhTien, TongSoTien : integer; ThueGTGT, TongSoThueGTGT, TongCong : real; TenKH : string[25]; Begin write(' Nhap so khach hang : n = '); readln(n); writeln; for i:=1 to n do begin write(' Ten khach hang thu ',i,': '); readln(kh[i].ten);

write(' Chi so cong to cu : '); readln(kh[i].cscu); write(' Chi so cong to moi : '); readln(kh[i].csmoi); writeln; end; writeln; writeln( st1:15, st2:15, st3:15, st4:15, st5:15); TongSoTien := 0; TongSoThueGTGT := 0; for i:=1 to n do begin TenKH := kh[i].ten; DienTT := kh[i].csmoi - kh[i].cscu; DonGia := 0; if (DienTT >= 1) and (DienTT <=100) then DonGia := 550 else if (DienTT >= 101) and (DienTT <=150) then DonGia := 900 else if (DienTT >= 151) and (DienTT <=200) then DonGia := 1200 else if DienTT >= 201 then DonGia := 1340; ThanhTien := DienTT * DonGia; ThueGTGT := ThanhTien * 0.1; TongCong := ThanhTien + ThueGTGT; TongSoTien := TongSoTien + ThanhTien; TongSoThueGTGT := TongSoThueGTGT + ThueGTGT; writeln(TenKH:15, DienTT:15, ThanhTien:15, ThueGTGT:15, TongCong:15); end; writeln; writeln('TongSoTien: ', TongSoTien); writeln('TongSoThueGTGT: ', TongSoThueGTGT); writeln('TongCongTien: ', TongSoTien + TongSoThueGTGT); readln; End.