Bài 6. Câu lệnh điều kiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Vương Quốc Anh

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

Hà Ngân Hà
8 tháng 4 2017 lúc 9:56

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.

Lovers
2 tháng 12 2016 lúc 18:05

Uses CRT;

Var TB : real;

Begin

clrscr;

Readln(TB);

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

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

If 5<=TB<6.5 then write('hoc luc trung binh') else

If 3.5<=TB<5 then write('hoc luc yeu') else

write('hoc luc kem');

Readln;

End.

huỳnh thị ngọc ngân
8 tháng 4 2017 lúc 14:29

program xep_loai_hoc_luc;

uses crt;

var TB: real;

begin

clrscr;

write ('nhap diem TB: '); readln (TB);

if TB >=8.0 then writeln ('hoc luc gioi')

else if (TB >=6.5) and (TB<8) then writeln ('hoc luc kha')

else if (TB>=5.0) and (TB <6.5) then writeln('hoc luc trung binh')

else if (TB>=3.5) and (TB<5.0) then writeln('hoc luc yeu');

readln

end.

huỳnh thị ngọc ngân
8 tháng 4 2017 lúc 14:37

program xep_loai_hoc_luc;

uses crt;

var TB: real;

begin

clrscr;

write ('nhap diem TB: '); readln (TB);

if TB >=8.0 then writeln ('hoc luc gioi')

else if (TB >=6.5) and (TB<8) then writeln ('hoc luc kha')

else if (TB>=5.0) and (TB <6.5) then writeln('hoc luc trung binh')

else if (TB>=3.5) and (TB<5.0) then writeln('hoc luc yeu')

else writeln('hoc luc kem');

readln

end.


Các câu hỏi tương tự
Hê Lô Bạn
Xem chi tiết
ngoc an
Xem chi tiết
ngoc an
Xem chi tiết
15 Nguyễn Hoàng gia huy
Xem chi tiết
Duy Minh
Xem chi tiết
Le Hung Dung
Xem chi tiết
01.Xuân Anh Dư
Xem chi tiết
tien nguyen
Xem chi tiết
01.Xuân Anh Dư
Xem chi tiết