Hãy viết chương trình nhập điểm chương trình của 1 bạn học sinh trong lớp

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 128 05/07/2023


Hãy viết chương trình nhập điểm chương trình của 1 bạn học sinh trong lớp

Đề bài:  Hãy viết chương trình nhập điểm chương trình của 1 bạn học sinh trong lớp. Và đưa ra xếp loại học lực của ban đó.

Cho biết:

TB > 8,0 : giỏi

6,5 < TB < 8,0 : khá

5,0 < TB < 6,5 : trung bình

3,5 < TB < 5,0 : yếu

còn lại : kém

Giải thích: TB: Điểm trung bình của học sinh

Lời giải:

Uses CRT;

Var TB : real;

BEGIN

clrscr;

repeat

begin

write('Moi ban nhap diem trung binh: ');

Readln(TB);

end;

until (TB>0) and (TB<10);

If (TB >= 8) then write('hoc luc gioi') else

If (TB>=6.5) then write('hoc luc kha') else

If (TB>5) then write('hoc luc trung binh') else

If (TB>3.5) then write('hoc luc yeu') else

write('hoc luc kem');

Readln;

END.

1 128 05/07/2023


Xem thêm các chương trình khác: