Tin Học 11 - Viết chương trình tính tổng điểm thi

[leila]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào điểm Văn, Toán, Anh và Khối Thi là A, B, C. Tính tổng điểm nếu Khối A thì điểm Toán nhân 2, nếu khối B thì cộng thêm 1/2(văn+toán), nếu khối C thì điểm văn nhân 2. In ra kết quả tổng điểm.

p.s: giúp mình với nhé, gấp lắm lắm luôn ý... :-SS

 

[leila]

trời ơi.... sao không ai giúp hết vậy thứ 2 mình thi học kì rồi (

 

[thienluan14211]

Program Tinh_diem;
Uses crt;
Var van,toan, anh:real;
    khoi :char;
    kq:real;

Begin
     Clrscr;
     Write('Nhap diem Van: '); Readln(van);
     Write('Nhap diem Toan: ');readln(toan);
     Write('Nhap diem  Anh: ');readln(anh);
     write('Nhap Khoi Thi (A,B hoac C)'); readln(khoi);

     {Tinh toan}
     If (khoi='A') or (khoi='a') then kq:=toan*2+anh+van
     else if (khoi='B') or (khoi='b') then kq:=toan+van+anh+(toan+van)/2
     else if (khoi='C') or (khoi='c') then kq:=toan+anh+van*2;

     writeln('Tong diem: ',kq:5:2);
     readln
end.