Đề thi HK I lớp 11 nè hjx hjx

[KendyLee]

Ai làm giùm e với, bài hk mà k làm dc chắc e bị liệt tin luôn quá :(
Câu 1 Viết chương trình nhập vào diện tích hình tròn S (S>0), tính và đưa ra chu vi hình tròn.
Câu 2 Dùng câu lệnh rẽ nhánh dạng đủ viết chương trình nhập điểm các môn toán lý hóa tin. Hãy thực hiện xếp loại học sinh theo yêu cầu sau:
Nếu điểm tb các môn trên 5.0 đậu
Nếu điểm tb các môn nhỏ hơn 3,5 và môn toán cao hơn 5.0 thì thi lại
Nếu điểm tb các môn nhỏ hơn 3,5 và môn toán nhỏ hơn 5.0 thì ở lại
Câu 3 Áp dụng cấu trúc lặp mà biết trc số lần lặp dạng lùi viết chương trình nhập vào 3 số nguyên dương m,n, và q. Trong đó M<=n và m<n<q. tính và đưa ra màn hình tb tổng các số nằm trong khoảng từ m đến n mà chia hết cho q.
Em xin cảm ơn !

[nhokdragon94]

Làm j` mà ác wá zậy "liệt tin" lun àk :D
Thui để làm đầy đủ cho bạn ^^
Câu 1:
var S,r:real;
begin
writeln('nhap dien tich hinh tron');readln(S);
r:=sqrt(S/3.14);
writeln('chu vi la: ',2*r*3.14:5:1);
readln;
end.

Bài 2:
var toan,ly,hoa,tin,tb:real;
begin
writeln('nhap diem: ');
write('toan: ');readln(toan);
write('ly: ');readln(ly);
write('thoa: ');readln(hoa);
write('tin: ');readln(tin);
writeln; {trang trí chút :D}
{Ở đây mình dùng hệ số 1 cho mỗi môn học(vì bạn chưa nói rõ là mỗi môn hệ số mấy}
tb:=(toan+ly+hoa+tin)/4;
If tb>5.0 then writeln('dau')
else If (tb<3.5) and (toan>5.0) then writeln('thi lai')
else If (tb<3.5) and (toan<5.0) then writeln('o lai ^^');
readln;
end.

Bài 3:
Hình như bạn đưa sai đề:
m<n<q mà "tìm số trong khoảng m-->n chia hết cho q" hình như không có

[KendyLee]

Hjx câu 3 đúng đề á, m coi lại rui mờ, tks bạn ha,
Àk mà câu 3 là TB các số từ m -> n chia hết cho q mà :-sss

[kelly91]

pascan khung the day em di đại ca

[tuansando]

đề tương đối dễ mà. Chắc tại bạn chưa học pascal thôi, mình từng trong đội tuyển tỉnh năm lớp 9. Bỏ mấy năm rồi ko ôn lại năm 11 khá là đơn giản vì mình đã học hết chương trình đó lúc đi thi ^^.

[nhokdragon94]

Ẹc câu 3 đúng đề àk :-? cả hiểu ra làm sao nữa. Thế bạn cho mình ví dụ đi

[KendyLee]

À mình quên mất ghi nhầm ^^
m<q<n cơ ^^
Sozi ^^

[nhokdragon94]

Ẹc ẹc:
Bài 3:
var m,n,q,i,tong,soluong:integer;
begin
writeln('nhap m,n,q');readln(m,n,q);
for i:=n downto m do
If i mod q=0 then
begin
tong:=tong+i;
soluong:=soluong+1;
end;
writeln('trung binh cong la: ',tong/soluong:4:2);
readln;
end.

hok bic cóa lỗi hok nữa, Nếu lỗi thì pm lại mình

[thuymen_yb]

Bạn chưa gán cho giá trị của tong và soluong,nếu vậy sẽ không tính được

[nhokdragon94]

Ẹc em dùng turbo pascal 7.0 mà,không gán biến thì nó tự gán giá trị bằng 0.

[topvip9x]

Đề này giống 100% ở trường THPT Chu Văn An, Gia Nghĩa nhỉ!
Các bài này quá dễ và giống y chang đề em làm :)) ... Ai học khá thì trong vòng 15p chắc đã xong rồi

Bài 1 - 2 : Thì dễ quá.. chắc ai cũng làm dc...
Bài 3: điều kiện này là m<=n và m<q<n ( m,n,q thuộc N*)

Var m,n,q:word;
i,s,dem:integer;
Begin
While not ((m<=n) and (m<q<n)) do
Begin
Write('Nhap m,n,q=');
Readln(m,n,q);
End;
dem:=0;
s:=0;
For i:=m to n do
If i mod q =0 then
Begin
s:=s+i;
dem:=dem+1;
end;
Write('Xuat s=',s/dem);
readln;
end.