viết chương trình nhập vào điểm thi, tính điểm và xét kết quả thi tuyển sinh vào lớp 10 chuyên tin của một thí sinh biết:
- Thí sinh sẽ thi 4 môn Văn, Toán, Anh và Tin.
- Điểm tổng cộng = Văn + Toán + Anh + Tin*2
- Kết quả xuất ra màn hình điểm 4 môn và thông báo Dau nếu điểm tổng cộng >=35, ngược lại thông báo...
Đọc tiếp
viết chương trình nhập vào điểm thi, tính điểm và xét kết quả thi tuyển sinh vào lớp 10 chuyên tin của một thí sinh biết:
- Thí sinh sẽ thi 4 môn Văn, Toán, Anh và Tin.
- Điểm tổng cộng = Văn + Toán + Anh + Tin*2
- Kết quả xuất ra màn hình điểm 4 môn và thông báo Dau nếu điểm tổng cộng >=35, ngược lại thông báo Hong.
uses crt;
var van,toan,anh,tin,dtc:real;
begin
clrscr;
write('Nhap diem Van:'); readln(van);
write('Nhap diem Toan:'); readln(toan);
write('Nhap diem Anh:'); readln(anh);
write('Nhap diem Tin:'); readln(tin);
dtc:=van+toan+anh+tin*2;
writeln('Ket qua thi mon Van la: ',van:4:2);
writeln('Ket qua thi mon Toan la: ',toan:4:2);
writeln('Ket qua thi mon Anh la: ',anh:4:2);
writeln('Ket qua thi mon Tin la: ',tin:4:2);
if dtc>=35 then writeln('Dau')
else writeln('Hong');
readln;
end.
dtc là gì vậy?