Viết chương trình tính điểm trung bình học kì

Answers ( )

1. 

   mytam

   0

   2021-08-02T10:46:23+00:00 02/08/2021 at 10:46

   Reply

   uses crt;
   var a,b,c:longint;
   begin
   clrscr;
      write(‘Diem van, toan, anh: ‘);readln(a,b,c);
      writeln(‘TBC: ‘,(a+b+c)/3:0:2);
   readln
   end.

3. 

   thanhbinh

   1

   2021-08-02T10:47:14+00:00 02/08/2021 at 10:47

   Reply

   program diemtrungbinh;

   uses crt;

   var

   t,v,a,i:Integer;

   tb:Real;

   begin

   clrscr;

   write(‘Nhap diem van’);readln(v);

   write(‘Nhap diem toan’);readln(t);

   write(‘Nhap diem anh’);readln(a);

   i:=t+v+a;

   tb:=i/3;

   writeln(‘Diem trung binh ba mon Toan, Van, Anh la ‘,tb);

   readln

   end.

1. Bài toán

  Yêu cầu: Nhập điểm thi và hệ số 3 môn Toán, Lý, Hóa của một học sinh. Tính điểm trung bình của học sinh đó.

• Input: Nhập điểm toán, lý, hóa, hệ số toán, hệ số lý, hệ số hóa
• Output: In ra màn hình Điểm trung bình

2. Giải thuật:

Bước 1. Nhập thông tin: Nhập điểm toán, lý, hóa, hệ số toán, hệ số lý, hệ số hóa;
Bước 2. Xử lý:

• Bước 2.1. Điểm trung bình = (điểm toán + điểm lý + điểm hóa)/(hệ số toán + hệ số lý + hệ số hóa);

Bước 3. In ra màn hình điểm trung bình;.

3. Code Pascal:

program tinh_diem_trung_binh;
uses crt;
var diemtoan, diemly, diemhoa, hstoan, hsly, hshoa: Integer;
    diemtb: real;
begin
   write('Nhap diem toan: ');
   readln(diemtoan);
   write('Nhap he so toan: ');
   readln(hstoan);   
   write('Nhap diem ly: ');
   readln(diemly);
   write('Nhap he so ly: ');
   readln(hsly);  
   write('Nhap diem hoa: ');
   readln(diemhoa);
   write('Nhap he so hoa: ');
   readln(hshoa); 
   diemtb := (diemtoan + diemly + diemhoa)/(hstoan + hsly + hshoa);
   write('Diem trung binh la: ', diemtb:1:1);
   readln;
end.

4. Giải thích code

Dòng lệnhÝ nghĩaProgram tinh_diem_trung_binh;Khai báo tên chương trìnhuses crt;Khai báo hàm thư việnvar diemtoan, diemly, diemhoa, hstoan, hsly, hshoa: Integer; diemtb: real;Khai báo biến điểm toán, điểm lý, điểm hóa, hệ số toán, hệ số lý, hệ số hóa là kiểu số nguyên, điểm trung bình kiểu số thựcwrite('Nhap diem toan: ');In ra màn hình dòng Nhap diem toan:readln(diemtoan);Nhập từ bàn phím điểm toánwrite('Nhap he so toan: ');In ra màn hình dòng Nhap he so toan:readln(hstoan);Nhập từ bàn phím hệ số toánwrite('Nhap diem ly: ');In ra màn hình dòng Nhap diem ly:readln(diemly);Nhập từ bàn phím điểm lýwrite('Nhap he so ly: ');In ra màn hình dòng Nhap he so ly:readln(hsly);Nhập từ bàn phím hệ số lywrite('Nhap diem hoa: ');In ra màn hình dòng Nhap diem hoa:readln(diemhoa);Nhập từ bàn phím điểm hóawrite('Nhap he so hoa: ');In ra màn hình dòng Nhap he so hoa:readln(hshoa);Nhập từ bàn phím hệ số hóadiemtb := (diemtoan + diemly + diemhoa)/(hstoan + hsly + hshoa);Gán điểm trung bình bằng công thứcwriteln('Diem trung binh la: ', diemtb:1:1);In ra màn hình dòng Diem trung binh la: và giá trị của biến diemtbreadln;Dừng màn hình khi chạy chương trình cho bạn xem.

5. Kết Quả Pascal

Kết luận:
    ⦿ Bài toán này để tính điểm trung bình của một học sinh, các bạn làm bình thường theo công thức
Điểm trung bình = (điểm toán + điểm lý + điểm hóa)/(hệ số toán + hệ số lý + hệ số hóa)
    ⦿ Đối với bài này chúng ta có thể phát triển thêm theo nhu cầu thực tế tính điểm của nhiều môn học hơn

Viết chương trình nhập vào điểm các môn toán , tin, anh. Tính và thông báo ra màn hình điểm trung bình 3 môn và dựa vào điểm trung bình hãy xếp loại cho học sinh đó ( Biết rằng học sinh giỏi nếu điểm tất cả các môn đều trên 6,5 và điểm trung bình trên 8, học sinh khá nếu điểm các môn trên 5 và điểm trung bình trên 6,5, còn lại là học sinh trung bình)

Xem chi tiết

Viết chương trình nhập vào điểm các môn toán , tin, anh. Tính và thông báo ra màn hình điểm trung bình 3 môn và dựa vào điểm trung bình hãy xếp loại cho học sinh đó ( Biết rằng học sinh giỏi nếu điểm tất cả các môn đều trên 6,5 và điểm trung bình trên 8, học sinh khá nếu điểm các môn trên 5 và điểm trung bình trên 6,5, còn lại là học sinh trung bình)

Xem chi tiết