Câu lệnh rẽ nhánh như sau:
a)
If (sqr(x)+sqr(y))<=1 Then z:=sqr(x)+sqr(y)
else if y>=x then z:=x+y
else z:=0.5;
b)
If sqr(x-a)+sqr(y-b)<=sqr(r) Then z:=abs(x)+abs(y)
Else z:=x+y;
Viết chương trình :
Nhập vào giá trị n (n>2) . Tính tổng các giá trị chẵn trong phạm vi từ 2 đến n
Sử dụng câu lệnh while-do
Bài 7: Tính gần đúng với sai số 10-4 hàm sin(x) có khai triển Taylor:
sin(x) = - + - . . .(-1)k
Bài 8: Tính gần đúng với sai số 10-4 hàm cos(x) có khai triển Taylor:
cos(x) = 1- + - + . . .(-1)k
Bài 9: Dùng lệnh lặp while…do… viết chương trình tìm nghiệm nguyên trong khoảng
0≤x,y ≤50 của phương trình sau x2 + y2 = n với n là số nguyên dương nhập vào từ bàn phím
Ví dụ: nhập n = 5 xuất ra nghiệm x=1 y=2 và x=2,y=1
Cho đoạn chương trình S:=0 ; n:=1; While.......do Begin S:= S+n ; n:=n+1 ; End ; Tính tổng S=1+2+3....+100 , điều kiện nào sau đây cần điền vào chỗ 3 chấm giữa câu lệnh while ...do ? A. n>=100 B n> 100 C n<100 D n<=100
Giúp em
Có thể thay thế câu lệnh for...do cho while...do và ngược lại được không? Nêu ví dụ minh hoạ
1) dùng lệnh lặp While...do đếm các số nguyên tố từ 1 đến n (n là số nhập từ bàn phím)
2) dùng lệnh lặp While...do để tính tổng các số nguyên tố được nhập tuè bàn phím.
mn giải hộ mình với ạ. mình xin cảm ơn ạ
cho đoạn chương trình s:=5
for i:=1 to 7 do if i mod 2=0 then s:=s+i else i:=i+1
Yêu cầu:
Viết tiếp câu lệnh để chương trình hoàn thiện
Cho biết kết thúc đoạn chương trình s,i lần lượt nhận giá trị là bao nhiêu?
Sử dụng câu lệnh For-do viết chương trình nhập vào 2 số nguyên dương M và N (M<N).tính và đưa ra màn hình các số chẵn trong phạm vi từ M đến N
Câu 1: Sau mỗi lần thực hiện câu lệnh thì giá trị biến đếm như thế nào?
A. không thay đổi B. sẽ giảm xuống C. sẽ tăng lên D. điều chỉnh tự động
Câu 10: Cho câu lệnh for i := 10 downto 1 do write(i); Cho biết câu lệnh Write(i) thực hiện bao nhiêu lần?
A. nhiều lần B. 2 C. 11 D. 10
Câu 2: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết 10 là gì?
A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh
Câu 3: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết i là gì?
A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh
Câu 4: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết write(i) là gì?
A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh
Câu 5. Cho câu lệnh for i := 1 to 4 do write(i:2); Kết quả là :
A. 4 3 2 1 B. 1 2 3 4 C. 1 D. 4
Câu 6: Chọn câu lệnh lặp để tính T = \(\Sigma^{50}_{n=1}n+a\)
A. T:=0 ; For i := 1 to n do T := T+i+a;
B.T:=0 ; For i := n downto 1 do T := T+i+a;
C. T:=0 ; For n := 1 to 50 do T := T+n+a;
D.T:=0 ; For n := 1 downto 50 do T := T+n+a;
Câu 7: Biến đếm có kiểu số nguyên thì giá trị đầu và giá trị cuối phải có kiểu gì?
A. Số thực B. Số nguyên C. Logic D. kiểu gì cũng được
1d-2d-3c-4d-5b-6c-7b trong đáp án này có 1 câu sai, đó là câu nào ?
viết câu lệnh tính tổng các số nguyên trong phạm vi từ M dến N
chuyển đoạn lệnh sau sang while-do và tìm kết quả của S và T?
T:=1 ; S:=0;
For i:=1 to 5 do
begin
S:=S+5;
T:=T*2;
End;
