Viết chương trình nhập vào điểm Văn, Toán và khối thì là A,B hoặc C. Tính điểm Tổng bếu khối ='A' thì điểm Toán nhân 2, khối ='C' thì Văn nhân 2, còn khối B thì cộng thêm 1/2 tổng điểm Toán + Văn. Sau đó in ra kết quả tổng điểm(Sử dụng 2 lệnh IF.... THEN....ELSE... lồng nhau xét điều kiện khối thi để tính...
Đọc tiếp
Viết chương trình nhập vào điểm Văn, Toán và khối thì là A,B hoặc C. Tính điểm Tổng bếu khối ='A' thì điểm Toán nhân 2, khối ='C' thì Văn nhân 2, còn khối B thì cộng thêm 1/2 tổng điểm Toán + Văn. Sau đó in ra kết quả tổng điểm
(Sử dụng 2 lệnh IF.... THEN....ELSE... lồng nhau xét điều kiện khối thi để tính tổng)
uses crt;
var v,t,d: real;
k: string;
begin
writeln('Nhap khoi (A, B hoac C): '); read(k);
writeln('Nhap diem Toan: '); read(t);
writeln('Nhap diem Van: '); read(v);
if k = 'A' then d:=t*2+v else
if k = 'C' then d:=t+v*2 else d:=t+v+(t+v)/2;
writeln('Diem cua ban la ',d:5:2);
readln
end.