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..
Trang 1Câ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 trước 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<q<n (m,n,q thuộc
N*) 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
Bài giải:
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;
{Ở đây mình dùng hệ số 1 cho mỗi môn học(vì đề 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: đ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;
Trang 2While 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