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

409

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học có đáp án (Phần 2)

Câu 66Hã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.

Đánh giá

0

0 đánh giá