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
làm theo các bước và vẽ sơ đồ khối rẽ nhánh dạng đầy đủ

Answer 1

uses crt;

var st:char;

a,b:real;

begin

clrscr;

readln(a,b);

readln(st);

if (st='A') then writeln(2*a+b)

else if (st='C') then writeln(a+2*b)

else writeln(a+b+1/2*a+b);

readln;

end.

Answer 2

uses crt;

var st:char;

a,b:real;

begin

clrscr;

readln(a,b);

readln(st);

if (st='A') then writeln(2*a+b)

else if (st='C') then writeln(a+2*b)

else writeln(a+b+1/2*a+b);

readln;

end.