Nhớ thêm lệnh Readln; trước End.
Var i,sk,s:integer;
Begin
s:=0;
sk:=0;
For i:=1 to 20 do
Begin
sk:=sk+3;
s:=s+sk;
End;
Write('Tong so keo can de phat la ',s);
End.
Bài 7. Câu lênh lặp
Các câu hỏi tương tự
1 lớp học có 20hs , gvien sẽ phát kẹo cho tất cả các bạn trong lớp với quy tắc như sau: bạn thứ nhất sẽ được 1 viên kẹo, bạn kế tiếp sẽ hơn bạn trước đó 2 viên kẹo, hỏi tổng số kẹo giáo viên cần có là bao nhiêu. Viết chương trình in tổng số kẹo giáo viên cần có.
Giúp mình với ạ!
Xem chi tiết
Viết chương trình:
a. 1 người gửi tiết kiệm 100 đồng Hỏi sau 12 tháng người đó sẽ thu được số tiền là bao nhiêu? Biết rằng lãi suất mỗi tháng của ngân hàng là 0,15%.
b. Một giáo viên vào lớp và phát kẹo cho các em học sinh theo quy tắc sau. Em đầu tiên được nhận 1 viên kẹo., em tiếp theo nhận số kẹo nhiều hơn em trước đó 3 viên. Hỏi nếu lớp đó có 35 học sinh thì tổng số kẹo phải có để giáo viên phát đủ cho cả lớp là bao nhiêu?
c. Tính tổng số đồng tiền được thả vào bàn cờ, biết:
— bàn có 64...
Đọc tiếp
Viết chương trình:
a. 1 người gửi tiết kiệm 100 đồng Hỏi sau 12 tháng người đó sẽ thu được số tiền là bao nhiêu? Biết rằng lãi suất mỗi tháng của ngân hàng là 0,15%.
b. Một giáo viên vào lớp và phát kẹo cho các em học sinh theo quy tắc sau. Em đầu tiên được nhận 1 viên kẹo., em tiếp theo nhận số kẹo nhiều hơn em trước đó 3 viên. Hỏi nếu lớp đó có 35 học sinh thì tổng số kẹo phải có để giáo viên phát đủ cho cả lớp là bao nhiêu?
c. Tính tổng số đồng tiền được thả vào bàn cờ, biết:
— bàn có 64 ô
—ô đầu tiên ta thả vào 1 đồng tiền
—các ô còn lại ta thả đồng tiền vào theo quy ước:ô tiếp theo có số lượng đồng tiền gấp đôi ô trước đó.
Mình cần gấp!!!!!!!
Cảm ơn??
- Tính tổng số đồng tiền được thả vào bàn cờ, biết:
+ Bàn cờ có 64 ô
+ Ô đầu tiên, ta thả vào 1 đồng tiền
+ Các ô còn lại, ta thả đồng tiền vào theo quy ước ô tiếp theo có số lượng đồng tiền gấp đôi ô trước đó
Viết chương trình cộng dồn số sách các lớp quyên góp cho đến khi tổng số sách lớn hơn hoặc bằng 100 thì dừng.
Mn giúp em ạ mai em thii rồi.
Sử dụng câu lệnh lặp For...do để viết chương trình nhập tên và hiển thị ra màn hình lời chào cho 20 bạn trong lớp em.
Hãy dùng câu lệnh lặp để viết thuật toán diễn đạt việc học thuộc bảng cửu chương 2 tới khi cô giáo dạy toán kiểm tra đã thuộc thì mới kết thúc, nếu không thì phải học lại
Câu 1: viết chương trình nhập vào N số tự nhiên đầu tiên,đếm xem có bao nhiêu số là số chẵn Câu 2: Viết chương trình nhập vào N số tự nhiên tính tổng các số chia hết cho 3 Em cần gấp lắm ạ:(
Câu 1:Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:1 to 10 do x:x+1; thì biến đếm i phải được
khai báo là kiểu dữ liệu nào?
A. Integer
B. Real
C. String
D. Tất cả các kiểu trên đều được
Câu 2:Đoạn chương trình sau giải bài toán nào?
For I:1 to M do
If (I mod 3 0) and (I mod 5 0) then
T : T + I;
A. Tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến M
B. Tổng các số chia hết cho 3 và 5 trong phạm vi từ 1 đến M
C. Tổng các số chia hết c...
Đọc tiếp
Câu 1:Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải được
khai báo là kiểu dữ liệu nào?
A. Integer
B. Real
C. String
D. Tất cả các kiểu trên đều được
Câu 2:Đoạn chương trình sau giải bài toán nào?
For I:=1 to M do
If (I mod 3 = 0) and (I mod 5 = 0) then
T := T + I;
A. Tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến M
B. Tổng các số chia hết cho 3 và 5 trong phạm vi từ 1 đến M
C. Tổng các số chia hết cho 3 trong phạm vi từ 1 đến M
D. Tổng các số chia hết cho 5 trong phạm vi từ 1 đến M
Câu 3:Xác định số vòng lặp cho bài toán: tính tổng các số nguyên từ 1 đến 100
A. 1
B. 100
C. 99
D. Tất cả đều sai
Câu 4:Trong lệnh lặp For – do:
A. Giá trị đầu phải nhỏ hơn giá trị cuối
B. Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối
C. Giá trị đầu phải lớn hơn giá trị cuối
D. Giá trị đầu phải bằng giá trị cuối
Câu 5:Sau khi thực hiện đoạn chương trình sau:
S:=10;
For i:=1 to 4 do S:=S+i;
Giá trị của biến S bằng bao nhiêu?
A. 20
B. 14
C. 10
Tính tổng số đồng tiền được thả vào bàn cờ, biết:
+ Bàn cờ có 64 ô.
+ Ô đầu tiên, ta thả vào 1 đồng tiền.
+ Các ô còn lại, ta thả đồng tiền vào theo qui ước ô tiếp theo có số lượng đồng tiền gấp đôi ô trước đó.
Mọi người giúp em với ạ.
I. Phần trắc nghiệm: Hãy chọn một đáp án đúng nhất.
Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?
A. for i: 4 to 1 do writeln(‘A’); B. for i 1 to 10 writeln(‘A’);
C. for i: 1 to 10 do writeln(‘A’); D. for i to 10 do writeln(‘A’);
Câu 2. Trong câu lệnh lặp: For i : 1 to 10 do j: j + 2; write( j );
Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?
A. 10 lần B. 5 lần C. 1 lần D. Không thực hiện.
Câu 3. Cho đoạn chương trình: J:...
Đọc tiếp
I. Phần trắc nghiệm: Hãy chọn một đáp án đúng nhất.
Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?
A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10 writeln(‘A’);
C. for i:= 1 to 10 do writeln(‘A’); D. for i to 10 do writeln(‘A’);
Câu 2. Trong câu lệnh lặp: For i := 1 to 10 do j:= j + 2; write( j );
Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?
A. 10 lần B. 5 lần C. 1 lần D. Không thực hiện.
Câu 3. Cho đoạn chương trình: J:= 0;
For i:= 1 to 5 do J:= j + i;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
A. 12 B. 22 C. 15 D. 42.
Câu 4: Cú pháp của câu lệnh điều kiện dạng đủ nào sau đây là đúng?
A. If <điều kiện> then <câu lệnh 1> else <câu lệnh 2> B. If <câu lệnh> then <điều kiện>
C. If <điều kiện> then <câu lệnh 1> else <câu lệnh 2> D. If <điều kiện> do <câu lệnh>;
Câu 5: Chương trình sau cho kết quả gì?
Program VD;
Var a, b: Real; x: Integer;
Begin
Readln( a,b);
If a>b then x:=a else x:=b;
Writeln(x);
End.
A.Xuất ra màn hình số nhỏ nhất trong 2 số a, b đã nhập.
B.Xuất ra màn hình số lớn nhất trong hai số a, b đã nhập.
C.Chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu.
D.Đảo giá trị của hai biến a, b cho nhau.
Câu 6: Hoạt động nào sau đây lặp với số lần lặp biết trước?
A. Rửa rau tới khi sạch B. Học bài cho tới khi thuộc bài
C. Gọi điện tới khi có người nghe máy D. Ngày tắm 2 lần
Câu 7: Cấu trúc câu lệnh điều kiện dạng thiếu là:
A. If <điều kiện> then <câu lệnh 1> esle <câu lệnh 2> B. If <điều kiện> then <câu lệnh >
C. If <điều kiện> then <câu lệnh 1> <câu lệnh 2> D. If <điều kiện> then <câu lệnh 1> esle <câu lệnh 2>
Câu 8: Ta có 2 lệnh sau:
x := 8;
IF x > 5 then x := x+1;
Giá trị của x nhận được là bao nhiêu?
A. 5 B. 7 C. 8 D. 9
Câu 9: Chọn câu lệnh Pascal hợp lệ trong các câu lệnh sau:
A. If a > b then max = a ; B. If a := b then max = b ;
C. If a = b then S := a+b ; D. If a <> b then b=a;
Câu 10: Chọn cú pháp đúng nhất về câu lệnh lặp:
A. for < biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >
B. for < biến đếm > := < giá trị cuối > to < giá trị đầu > do <câu lệnh >
C. for <biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >
D. for < biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >
Câu 11: Em hiểu lệnh lặp theo nghĩa nào dưới đây?
A. Một lệnh thay cho nhiều lệnh B. Các câu lệnh được viết lặp đi lặp lại nhiều lần
C. Vì câu lệnh có tên là lệnh lặp D. Cả (A), (B), (C) đều sai
Câu 12: Khi nào thì câu lệnh For..to..do kết thúc?
A. Khi biến đếm nhỏ hơn giá trị cuối B. Khi biến đếm lớn hơn giá trị cuối
C. Khi biến đếm nhỏ hơn giá trị đầu D. Khi biến đếm lớn hơn giá trị đầu
Câu 13: Cho các câu lệnh sau hãy chỉ ra câu lệnh đúng?
A. for i:=1 to 10; do x:=x+1; B. for i:=1 to 10 do x:=x+1;
C. for i:=10 to 1 do x:=x+1; D. for i =10 to 1 do x:=x+1;
Câu 14: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải
được khai báo là kiểu dữ liệu nào?
A. Integer B. Real C. String D. Tất cả các kiểu trên đều được
Câu 15: Trong câu lệnh lặp với số lần biết trước (For – do), được thực hiện mấy lần?
A. ( < giá trị cuối > - < giá trị đầu >) lần B. Tuỳ thuộc vào bài toán mới biết được số lần
C. Khoảng 10 lần D. ( < giá trị đầu > - < giá trị cuối>) lần
Câu 16: Xác định số vòng lặp cho bài toán: tính tổng các số nguyên từ 1 đến 100
A. 1 B. 100 C. 99 D. Tất cả đều sai
Câu 17: Kết quả của < điều kiện > trong câu lệnh sẽ có giá trị là gì?
A. Là một số nguyên B. Là một số thực C. Đúng hoặc sai D. Là một dãy kí tự
Câu 18: Sau khi thực hiện đoạn chương trình sau:
S:=0; For i:=1 to 5 do S:=S+i; Giá trị của biến S bằng bao nhiêu?
A. 20 B. 15 C. 10 D. 0
Câu 19: Cú pháp lệnh lặp For – do dạng lùi:
A. for < biến đếm> = < Giá trị cuối >downto < Giá trị đầu > do < câu lệnh >
B. for < biến đếm> := < Giá trị cuối >downto < Giá trị đầu > do < câu lệnh >
C. for < biến đếm> = < Giá trị cuối >down < Giá trị đầu > do < câu lệnh >
D. for < biến đếm> := < Giá trị đầu >downto < Giá trị cuối > do < câu lệnh >
Câu 20: Trong lệnh lặp For – do: (chọn phương án đúng nhất)
A. Giá trị đầu phải nhỏ hơn giá trị cuối
B. Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối
C. Giá trị đầu phải lớn hơn giá trị cuối D. Giá trị đầu phải bằng giá trị cuối
Câu 21: Lệnh lặp For – do được sử dụng khi:
A. Lặp với số lần biết trước B. Lặp với số lần chưa biết trước
C. Lặp với số lần có thể biết trước D. Lặp với số lần không bao giờ biết trước
Câu 22: Sau khi thực hiện đoạn chương trình sau: s:=1; for i:= 1 to 3 do s:= s*i;
Giá trị của biến s bằng bao nhiêu?
A. 10; B.5; C. 6; D. 15.
Câu 23: Với câu lệnh for i:=1 to 10 do x:=x+1; biến i được khai báo thuộc kiểu dữ liệu nào?
A. Real; B. Integer; C. String; D. Char.
Câu 24: Lệnh lặp for..to..do của Pascal trong mỗi vòng lặp, biến đếm thay đổi như thế nào?
A. Tăng thêm 1 đơn vị; B. +1 hoặc -1;
C. Giá trị bất kì; D. Một giá trị khác 0.
II: Bài tập: Tính tổng các số tự nhiên đầu tiên chia hết cho 3 không vướt quá N cho trước (N được
nhập vào từ bàn phím).
MONG NHẬN ĐƯỢC SỰ TRỢ GIÚP TỪ CÁC BẠN !!!