Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình tỉ số phần trăm số hs xếp loại Giỏi, Khá, TB, Yếu, Kém. Với N và

Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình tỉ số phần trăm số hs xếp loại Giỏi, Khá, TB, Yếu, Kém. Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng).

0 bình luận về “Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình tỉ số phần trăm số hs xếp loại Giỏi, Khá, TB, Yếu, Kém. Với N và”

  1. Uses Crt;
    Var hs:array[1..1000] of real;
    i,n:integer; DTB:real;
    Gioi,Yeu,TB,Kha,Kem:integer;
    Begin
    Clrscr;
    Writeln(‘Nhap so ban hoc sinh trong lop vao: ‘); Readln(n);

    For i:= 1 to n do
    Begin
    Writeln;
    Write(‘Diem TB cua hs[‘,i,’] la: ‘); Readln(hs[i]);
    End;
    Writeln;
    For i:= 1 to n do
    Begin
    If hs[i]>=8.0 then Gioi:=Gioi+1;
    If (hs[i] < 5) and (hs[i]>=3.5) then Yeu:=Yeu+1;
    If (hs[i]<8.0) and (hs[i]>=6.5) then Kha:=Kha+1;
    If (hs[i]>=5) and (hs[i]<6.5) then TB:=TB+1;
    If hs[i]<3.5 then Kem:= Kem+1;
    End;
    Writeln(‘ So ban dat HSG la: ‘,Gioi,’. Voi ty le: ‘,Gioi/n*100:0:0,’%’);
    Writeln(‘ So ban dat HSK la: ‘,Kha,’. Voi ty le: ‘,Kha/n*100:0:0,’%’);
    Writeln(‘ So ban dat HSTB la: ‘,TB,’. Voi ty le: ‘,TB/n*100:0:0,’%’);
    Writeln(‘ So ban dat HSY la: ‘,Yeu,’. Voi ty le: ‘,Yeu/n*100:0:0,’%’);
    Writeln(‘ So ban dat HSK la: ‘,Kem,’. Voi ty le: ‘,Kem/n*100:0:0,’%’);
    Readln
    End.

    Bình luận
  2. Program Phan_loai;

    uses crt;

    Var i, n, gioi, kha, trung binh, yeu : integer;

    A: array[1..100] of real;

    Begin

    clrscr;

    write(‘Nhap so HS trong lop, n= ‘);

    readln(n);

    writeln(‘Nhap diem :’);

    For i:=1 to n do

    Begin

    write(i,’ . ‘);

    readln(a[i]);

    End;

    G:=0; Kh:= 0; TB:= 0; K:= 0;

    for i:=1 to n do

    Begin

    if a[i] >= 8.0 then G:= G + 1;

    if a[i] <5.0 then K:= K + 1; if (a[i] =6.5) then Kh:= Kh + 1;

    if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1;

    end;

    writeln(‘ Ket qua hoc tap: ‘);

    writeln(G, ‘ ban hoc gioi ‘);

    writeln(Kh, ‘ ban hoc kha ‘);

    writeln(TB, ‘ ban hoc trung binh’);

    writeln(K, ‘ ban hoc kem ‘);

    Readln;

    End.

    Bình luận

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