Viết chương trình nhập điểm trung bình Học Kì I và trung bình Hoc Ki II của các học sinh trong lớp. Số các bạn trong lớp cũng được nhập vào từ bàn phí

Viết chương trình nhập điểm trung bình Học Kì I và trung bình Hoc Ki II của các học sinh trong lớp. Số các bạn trong lớp cũng được nhập vào từ bàn phím. Tính điểm trung bình cả năm của các bạn theo công thức:
TBCN=( điểm trung bình HKI + điểm trung bình HKII *2)/3 và lưu vào bảng trung bình cả năm. Sau đó in ra màn hình số bạn đạt kết quả học tập giỏi, khá, trung bình và yếu( biết rằng giỏi, khá, trung bình, yếu tiêu chuẩn giống BT1TH7)

0 bình luận về “Viết chương trình nhập điểm trung bình Học Kì I và trung bình Hoc Ki II của các học sinh trong lớp. Số các bạn trong lớp cũng được nhập vào từ bàn phí”

  1. uses crt;
    var i,n,a,b:longint; d:array[1..100000]of real;
    begin
    clrscr;
       write(‘Nhap so cac ban trung lop: ‘);readln(n); 
       for i:=1 to n Do 
          begin
             write(‘Nhap diem trung binh hoc ki I cua ban thu ‘,i,’: ‘);readln(a);
             write(‘Nhap diem trung binh hoc ki II cua ban thu ‘,i,’: ‘);readln(b);
             writeln;
             d[i]:=(a+b*2)/3;
          end;
       for i:=1 to n do
          begin
             write(‘Ban thu ‘,i,’ dat ‘);
             if(d[i]>=8) then writeln(‘loai gioi.’) else
             if(d[i]>=6.5)and(d[i]<8) then writeln(‘loai kha.’) else
             if(d[i]>=5)and(d[i]<6.5)
             then writeln(‘loai trung binh.’) else writeln(‘loai yeu.’);
          end;
    readln
    end.

    Bình luận
  2. program bt;

    uses crt;

    var a:array [1..100] of integer; b:array [1..100] of integer;

    gioi,kha,trungbinh,yeu:integer;

    TBCN:real;

    begin

    clrscr;

    writeln(‘Nhap n’);readln(n);

    for i:=1 to n do

    begin

    writeln(‘a[‘,i,’]=’);

    readln(‘Diem trung binh hoc ki I la’,a[i]);

    writeln(‘b[‘,i,’]=’);

    readln(‘Diem trung binh hoc ki II la’,b[i]);

    end;

    gioi:=0; kha:=0;

    trungbinh:=0; kem:=o

    for i:=1 to n do

    begin

    TBCN:= (a[i]+b[i]*2)/3;

    if TBCN>=8.0 then Gioi:=gioi+1;

    if TBCN<5 then Kem:=kem+1;

    if (TBCN<8.0) and (TBCN>=6.5) then kha:=kha+1;

    if (TBCN>=5) and (TBCN<6.5) then trungbinh:=trungbinh+1;

    end;

    writeln(Gioi,’ban hoc sinh gioi’);

    writeln(Kha,’ban hoc sinh kha’);

    writeln(Trungbinh,’ban hoc sinh trung binh’);

    writeln(Kem,’ban hoc sinh kem’);

    readln;

    end.

    Bình luận

Viết một bình luận