Viết chương trình nhập điểm trung bình (ĐTB) trong học kỳ 1

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 412 05/07/2023


Viết chương trình nhập điểm trung bình (ĐTB) trong học kỳ 1

Đề bài: Viết chương trình nhập điểm trung bình (ĐTB) trong học kỳ 1 của các bạn học sinh. đưa ra kết quả xếp loại của học sinh dựa trên các tiêu chí dưới đây:

+Nếu ĐTB<5.0 thì xếp loại yếu

+Nếu 5.0 ≤ ĐTB < 6.5 thì xếp loại trung bình

+Nếu 6.5 ≤ ĐTB < 8.0 thì xếp loại khá

+Nếu ĐTB ≥ 8.0 thì xếp loại giỏi.

In kết quá xếp loại ra màn hình.

Lời giải:

uses crt;

var diem:real;

begin

clrscr;

repeat

write('Nhap diem trung binh:'); readln(diem);

until (0<=diem) and (diem<=10);

if diem<5 then writeln('Xep loai yeu')

else if (5<=diem) and (diem<6.5) then writeln('Xep loai trung binh')

else if (6.5<=diem) and (diem<8.0) then writeln('Xep loai kha')

else writeln('Xep loai gioi');

readln;

end.

1 412 05/07/2023


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