Viết chương trình nhập điểm trung bình và hạnh kiểm của hs(G,K,TB,Y). Xét xếp ***** học sinh dựa theo ĐTB và hạnh kiểm. Vd
-Nhập 9.2 và G. Kêt quả in ra:"Ban xep loai Gioi"
-Nhập 8.5 và T. Kết quả in ra:"Ban xep loai Kha
Viết chương trình nhập điểm trung bình và hạnh kiểm của hs(G,K,TB,Y). Xét xếp ***** học sinh dựa theo ĐTB và hạnh kiểm. Vd
-Nhập 9.2 và G. Kêt quả in ra:"Ban xep loai Gioi"
-Nhập 8.5 và T. Kết quả in ra:"Ban xep loai Kha"
viết chương trình nhập điểm kiểm tra học kì I môn tin học cho n học sinh (với n và điểm được nhập từ bàn phím ) và in ra các kết quả sau: A: tổng điểm của lớp B:Điểm trung bình của lớp C:điểm cao nhất D:số học sinh đạt trung bình trở lên Lưu ý: Sử dụng biến đếm : For := to đó; Sử dụng biến mảng: var :array[..] of integer;
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 dwuaj 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.
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.
viết phương trình nhập điểm kiểm tra học kì môn tin học cho N số học sinh và in kết quả ra màn hình với N và điểm kiểm tra của từng học sinh được nhập từ bàn phím (sử dụng biến mảng) mong mọi người giải hộ em,
Uses crt;
Var i,n:integer;
a:array[1..1000] of integer;
Begin
clrscr;
Write('Nhap so hoc sinh: ');readln(n);
Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');
For i:=1 to n do
Begin
Write('Hoc sinh thu ',i,' : ');
readln(a[i]);
End;
Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');
For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);
readln;
End.
Nhập điểm kiểm tra học kì môn toán của n bạn học sinh. Tính điểm trung bình cộng và in kết quả ra màn hình.
uses crt;
var a:array[1..100]of integer;
i,n,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
i:=1;
while i<=n do
begin
tb:=tb+a[i];
inc(i);
end;
writeln(tb/n:4:2);
readln;
end.
Viết chương trình nhập vào điểm kiểm tra của một học sinh và in ra màn hình điểm trung bình của học sinh đó (3 môn thôi là đủ rồi)
nếu chạy ct mà nó không dừng lại thì bấm alt+F5 nhá
1.Một người bán hàng, lần thứ nhất bán được 1/4 số trứng. lần thứ hai bán được 2/5 số trứng và còn lại 21 quả. Hỏi người đó bán được bao nhiêu quả trứng và mỗi lần bán được bao nhiêu quả ?
2. Tổng kết cuối năm , hạnh kiểm của học sinh lớp 4A được xếp thành 3 loại gồm : tốt , khá và trung bình. Có số học sinh xếp hạnh kiểm trung bình chiếm số học sinh cả lớp; số học sinh xếp hạnh kiểm khá gấp 3 lần số học sinh xếp hạnh kiểm trung bình. Tìm số học sinh xếp hạnh kiểm tốt ?
1.Một người bán hàng, lần thứ nhất bán được 1/4 số trứng. lần thứ hai bán được 2/5 số trứng và còn lại 21 quả. Hỏi người đó bán được bao nhiêu quả trứng và mỗi lần bán được bao nhiêu quả ?
2. Tổng kết cuối năm , hạnh kiểm của học sinh lớp 4A được xếp thành 3 loại gồm : tốt , khá và trung bình. Có số học sinh xếp hạnh kiểm trung bình chiếm số học sinh cả lớp; số học sinh xếp hạnh kiểm khá gấp 3 lần số học sinh xếp hạnh kiểm trung bình. Tìm số học sinh xếp hạnh kiểm tốt ?
1. Số phần của số quả trứng còn lại là:
1 – (1/4 + 2/5)=7/20(phần).
Số quả trứng của người bán là:
21 × 20/7=60(quả trứng)
. Số quả trứng đã bán là:
60 – 21 = 39(quả trứng).
Số quả trứng lần thứ nhất bán được là:
60× 1/4=15(quả trứng).
Số quả trứng lần thứ hai bán được là:
60× 2/5=24(quả trứng).
Viết chương trình nhập vào điểm LT và TH. Tính điểm trung bình và xét kết quả như sau: nếu TB>=5 thì đậu ngược lại rớt.
Var dtb:real;
Begin
Repeat
Writeln('Nhap diem trung binh cua ban vao day:'); Readln(dtb);
Until (0<=dtb) and (dtb<=10);
If dtb>=5 then writeln ('Chuc mung,ban da dau!') else if dtb<5 then writeln('Xin chuc mung, ban da tach!');
Readln
End.
*Dòng lệnh in đậm có nghĩa là khi bạn nhập dtb mà không nằm trong phạm vi từ 0->10, nó sẽ bắt bạn phải nhập lại cho đến khi đúng phạm vi. Vd như dưới đây: (Good luck for you :D :D )
uses crt;
var lt,th:real;
begin
clrscr;
write('Nhap diem LT:'); readln(lt);
write('Nhap diem TH:'); readln(th);
if (lt+th)/2>=5 then writeln('Dau')
else writeln('Rot');
readln;
end.