Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huy Zoo

giúp mk vs sắp thi r: viết ct nhập điểm hk1,2 môn tin của n hsinh và tính điểm trung bình của mỗi học sinh rồi thông báo đtb thấp nhất

Ngọc Huyền
6 tháng 5 2019 lúc 15:00

Bọn mk k đc hk

Mà ở đấy học à ?

Khanh Tay Mon
6 tháng 5 2019 lúc 15:01

Program Diem_Trung_binh;
Uses Crt;
Var
Ten:String[24];
Van,Toan,Ly,tb:Real;
Begin
Clrscr;
Writeln('TINH DIEM TRUNG BINH VA XEP HANG');
Writeln('--------------------------------');
Write('-Cho biet ho ten: ');
Readln(Ten);
Write('-Cho biet diem mon Van: ');
Readln(Van);
Write('-Cho biet diem mon Toan: ');
Readln(Toan);
Write('-Cho biet diem mon Ly: ');
Readln(Ly);
Tb:=((Van*2)+(Toan*2)+ly)/5;
If tb < 5 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc kem');
End
Else if Tb < 7 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc trung binh');
End
Else if Tb < 9 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc Kha');
End
Else
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc Gioi');
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln;
End.


Các câu hỏi tương tự
Võ Văn Trường
Xem chi tiết
loli
Xem chi tiết
Dan_hoang
Xem chi tiết
Võ Hoàng Luân
Xem chi tiết
hocgioi123
Xem chi tiết
blinkwannable
Xem chi tiết
Minh Huy
Xem chi tiết
Bui Duyen
Xem chi tiết
khong có
Xem chi tiết