Question

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)

Answer 1

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.