1)Viết chương trình tính điểm trung bình 3 môn (Toán, Văn, Anh, Tin) theo hệ số (2:2:1:1) sau đó xếp loại như sau: Loại: ĐTB >= 8.0 và không có môn nà

0 bình luận về “1)Viết chương trình tính điểm trung bình 3 môn (Toán, Văn, Anh, Tin) theo hệ số (2:2:1:1) sau đó xếp loại như sau: Loại: ĐTB >= 8.0 và không có môn nà”

1. uses crt;
   Var a,b,c,d,dt:real;
   begin
   clrscr;
      write(‘Diem mon toan cua ban: ‘);readln(a);
      write(‘Diem mon van cua ban: ‘);readln(b);
      write(‘Diem mon anh van cua ban: ‘);readln(c);
      write(‘Diem mon tin hoc cua ban: ‘);readln(d);
      Dt:=(a*2+b*2+c+b)/6;
      if(dt>=8)and(a>=6.5)and(b>=6.5)and(c>=6.5)and(d>=6.5)
      then writeln(‘Ban dat loai gioi.’) else
      if(dt>=6.5)and(dt<8)and(a>=5)and(b>=5)and(c>=5)and(d>=5)
      then writeln(‘Ban dat loai kha.’) else
      if(dt>=5)and(dt<6.5)and(a>=3.5)and(b>=3.5)and(c>=3.5)and(d>=3.5)
      then writeln(‘Ban dat loai trung binh.’) else writeln(‘Ban dat loai yeu.’);
   readln
   end.

   Bình luận

2. Viết chương trình nhập họ tên, điểm trung bình học kì 1( ĐTB học kì 1 ) và điểm trung bình học kì 2 

   ( ĐTB học kì 2 ) kiểu số thực cho 1 người. Tính điểm trung bình cả năm theo công thức sau:

   Trung bình cả năm:

   ( ĐTB cả năm ) = (ĐTB học kì 1 ) + (ĐTB học kì 2 )/3

   Sau đó phân loại như sau:

   ĐTB cả năm < 5,0: loại yếu

   5,0 < ĐTB cả năm < 6,5: loại trung bình

   6,5 < ĐTB cả năm < 8,0: loại khá

   ĐTB cả năm > 8,0: loại giỏi

   In họ và tên, kết quả học tập của người đó ra màn hình.

   Bình luận