Kieu ban ghi(11)
Bài 13: Kiểu bản ghi
... Lop[i].Hoten:30, Lop[i].Toan:5:1, Lop[i].Van:5:1, Lop[i].Tong:8:1, Lop[i].ketqua:15); Writeln(‘ Bang ket qua kt chat luong’); Bảng kết qủa kiểm tra chất lượng Bài toán đặt vấn đề STT Họ và ... Lop[i].Tong >=12 then Lop[i].ketqua := ‘Dat’ else Lop[i].ketqua := ‘Khongdat’; End; Writeln(‘ Bang ket qua kt chat luong’); For i:= 1 to n do Writeln(Lop[i].SBD:5, Lop[i].Hoten:30, Lop[...
Ngày tải lên: 21/06/2013, 01:25
Bài 13 : Kiểu bản ghi
... );readln(LOP[i].Tin); end; { tinh tong cho tung ban ghi } For i:=1 to n do LOP[i].Tong := LOP[i].Toan + LOP[i].Tin; { dien ket qua cho tung ban ghi } For i:=1 to n do if LOP[i].Tong>=10 ... if LOP[i].Tong>=10 then LOP[i].Ketqua:=Dat else LOP[i].Ketqua:=Khong dat; { In bang du lieu } Writeln( Bang ket qua kiem tra ); For i:=1 to n do Writeln(LOP[I].sbd:5,LOP[i].Hoten:30, LOP[...
Ngày tải lên: 23/06/2013, 01:25
Tin 11- Kieu ban ghi
... Lop[i].Tong >=12 then Lop[i].ketqua := ‘Dat’ else Lop[i].ketqua := ‘Khongdat’; End; Writeln(‘ Bang ket qua kt chat luong’); For i:= 1 to n do Writeln(Lop[i].SBD:5, Lop[i].Hoten:30, Lop[i].Toan:5:1, ... Lop[i].Hoten:30, Lop[i].Toan:5:1, Lop[i].Van:5:1, Lop[i].Tong:8:1, Lop[i].ketqua:15); Writeln(‘ Bang ket qua kt chat luong’); Đ13.kiểu bản ghi Nhập giá trị trường cho SBD của họ...
Ngày tải lên: 08/07/2013, 01:25
