Bài 9. Làm việc với dãy số
Các câu hỏi tương tự
Câu 1: Lần lượt thực hiện câu lệnh for i := 1 to 3.5 do writeln (i:3:1); sẽ viết ra màng hình kết quả gì
Câu 2 khai báo biến mảng gồm 12 phần tử có kiểu số nguyên
Em đang cần gấp để mai thi ạ
Mn giải giúp em với ạ. Em cảm ơn
Viết chương trình nhập vào số nguyên dương. Tính và in ra kết quả màn hình ;- các số chia hết cho 3 từ 1 đến n- có bao nhiêu số chia hết cho 3- tổng các số đóvd : nhập n 20. in ra - các số chia hết cho 3 : 3 6 9 12 15 18- có 6 số chia hết cho 3- tổng là ; 63Em cần gấp giúp ẹm
Đọc tiếp
Viết chương trình nhập vào số nguyên dương. Tính và in ra kết quả màn hình ;
- các số chia hết cho 3 từ 1 đến n
- có bao nhiêu số chia hết cho 3
- tổng các số đó
vd : nhập n = 20. in ra
- các số chia hết cho 3 : 3 6 9 12 15 18
- có 6 số chia hết cho 3
- tổng là ; 63
Em cần gấp giúp ẹm 
viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số lẻ liên tiếp đén n và in kết quả ra màn hình. 9Suwr dụng câu lệnh lặp For...do)
viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số chẵn liên tiếp đến n và in kết quả ra màn hình. Sử dụng câu lệnh lặp For...do)
Câu 1: Lệnh để xuất / thông báo kết quả là:A. Write B. Clrscr; C.Read D.Readln;Câu 2: Câu lệnh nào sau đây là câu lệnh lặp:A. if n1 then n:n+1; B. var a: integer; C. for i:1 to 10 do writeln(n); D. uses crt;Câu 3: Câu lệnh lặp với số lần biết trước có dạng: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ị đầu to do câu lệnh;C. for biến đếm:giá trị cuối to giá trị đầu do câu lệnh;D. for biến...
Đọc tiếp
Câu 1: Lệnh để xuất / thông báo kết quả là:
A. Write B. Clrscr; C.Read D.Readln;
Câu 2: Câu lệnh nào sau đây là câu lệnh lặp:
A. if n<=1 then n:=n+1; B. var a: integer; C. for i:=1 to 10 do writeln(n); D. uses crt;
Câu 3: Câu lệnh lặp với số lần biết trước có dạng:
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ị đầu> to do <câu lệnh>;
C. for <biến đếm>:=<giá trị cuối> to <giá trị đầu> do <câu lệnh>;
D. for <biến đếm>:=<giá trị cuối> to do <câu lệnh>;
Câu 4: Khi nào thì câu lệnh For…do (dạng tiến) kết thúc?
A. Khi biến đếm lớn hơn giá trị cuối. B. Khi biến đếm nhỏ hơn giá trị cuối.
C. Khi biến đếm ngang bằng giá trị cuối. D. Khi biến đếm lớn hơn giá trị đầu.
Câu 5: Kết quả của <điều kiện> trong câu lệnh While...do sẽ có giá trị 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ự.
* Thông hiểu:
Câu 1: Trong câu lệnh lặp với số lần biết trước For...do, <câu lệnh> được thực hiện mấy lần?
A. <giá trị cuối> – <giá trị đầu> lần B.Không biết số lần lặp
C. Khoảng 10 lần D. <giá trị cuối> – <giá trị đầu> + 1 lần
Câu 2: Trong câu lệnh lặp luôn có kiểm tra một điều kiện, vậy kiểm tra điều kiện trong câu lệnh lặp: For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; là điều kiện gì?
A. Biến đếm có phải kiểu nguyên hay không. B. Biến đếm đã bằng giá trị đầu hay chưa.
C. Biến đếm đã bằng giá trị cuối hay chưa. D. Giá trị đầu và giá trị cuối có bằng nhau hay không.
Câu 3: Trong ngôn ngữ Pascal, đoạn chương trình sau xuất màn hình kết quả gì?
For i:=1 to 5 do write (i:3);
A. 1 2 3 4 5 B. 5 4 3 2 1
C. i:3 D. Không xuất kết quả gì
Câu 4: Ngoài câu lệnh For…to…do (dạng tiến) còn có câu lệnh For…downto…do (dạng lùi). Khi nào thì câu lệnh For…downto…do kết thúc?
A. Khi biến đếm lớn hơn giá trị cuối. B. Khi biến đếm nhỏ hơn giá trị cuối.
C. Khi biến đếm ngang bằng giá trị cuối. D. Khi biến đếm lớn hơn giá trị đầu.
Câu 5: Biến đếm, giá trị đầu và giá trị cuối có chung điểm gì rất quan trọng?
A. Đều là các số nguyên hoặc số thực.
B. Có chung kiểu dữ liệu.
C. Biến đếm nhỏ hơn giá trị đầu, giá trị đầu nhỏ hơn giá trị cuối.
D. Biến đếm lớn hơn giá trị đầu, giá trị đầu lớn hơn giá trị cuối.
* Vận dụng thấp:
Câu 1: Cho đoạn chương trình sau:
j:=1; k:=2;
for i:= 2 to 4 do j:=j+2; k:=k+i;
Sau đoạn trên, giá trị của j và k sẽ bằng:
A. j=2, k=2 B. j=5, k=7 C. j=7, k=6 D. j=9,k=11
Câu 2: Bạn Bảo Châu muốn viết ra 5 chữ B và 5 chữ C trên màn hình bằng đoạn chương trình sau:
Var i: integer;
Begin
For i: = 1 to 5 do writeln('B'); writeln('C');
Readln;
End.
Theo em, bạn Bảo Châu nên viết như thế nào?
A. Chương trình trên viết đúng.
B. Cần phải đưa hai lệnh writeln('B'); writeln('C'); vào trong cặp từ khóa Begin và End;
C. Phải đổi lệnh writeln thành write
D. Phải đặt hai lệnh writeln('B'); writeln('C'); ở hai dòng riêng biệt.
* Vận dụng cao:
Câu 1: Tìm giá trị của S trong đoạn chương trình dưới đây?
S:= 0 ;
For i: = 1 to 5 do S: = S + i;
A. S = 0 B. S = 1 C. S = 5 D. S = 15
Câu 2: Tìm giá trị của a qua đoạn chương trình sau:
a: = 10;
for i: = 1 to 5 do a: = a – i;
A. a = 5 B. a = -5 C. a = 10 D. a = 0
Bài tập 3. Nhập vào một mảng số nguyên và in ra các phần tử là số nguyên tố có trong mảng.
- Viết các lệnh:
+ Nhập, Xuất dữ liệu
+ Khai báo biến
+ Câu lệnh điều kiện
+ Vòng lặp For.. do, While.. do
Câu 4. Trong các lệnh sau đây câu lệnh nào là đúng ?A.Writeln(“Dien tich hinh chu nhat la”,S);B.Writeln(‘Dien tich hinh chu nhat la’,S);C.Writeln(‘Dien tich hinh chu nhat la’;S);D.Writeln(‘Dien tich hinh chu nhat la,S’);Câu 6. Kết quả của phép chia 45 mod 7 là A. 4 B. 2 C. 3 D. 5Câu 7. Trong ngôn ngữ lập trình Pascal, câu lệnh điều kiện dạng thiếu có dạngA. if điều kiện then ; B. if then ; C. if điều kiện; then ; ...
Đọc tiếp
Câu 4. Trong các lệnh sau đây câu lệnh nào là đúng ?
A.Writeln(“Dien tich hinh chu nhat la”,S);
B.Writeln(‘Dien tich hinh chu nhat la’,S);
C.Writeln(‘Dien tich hinh chu nhat la’;S);
D.Writeln(‘Dien tich hinh chu nhat la,S’);
Câu 6. Kết quả của phép chia 45 mod 7 là
A. 4 B. 2 C. 3 D. 5
Câu 7. Trong ngôn ngữ lập trình Pascal, câu lệnh điều kiện dạng thiếu có dạng
A. if <điều kiện> then ; B. if then ; C. if <điều kiện>; then ; D. if else ;
Nếu cho x := 5; giá trị của x là bao nhiêu sau câu lệnh: if x > 0 then x := x + 2; A. 10 B. 8,5 C. 7 D. 9
Giúp mình với mn ơi cảm ơn nhiều
Viết chương trình nhập vào 1 số nguyên rồi in kết quả số vừa nhập có chia hết cho 3 hay không?
Vd: Nhập vào 1 số nguyên N=15. Kết quả hiện ra: số bạn vừa nhâp chia hết cho 3
HELP: bài thi
Cho vis duj sau trong Pascal:
Uses crt ;
var i: Interger
Begin
clrscr ;
i:=1
while : i < 14 do begin Writeln('0');
i:=i+1;
End ;
Readln;
End.
-Khi chạy chương trình ví dụ bên sẽ in ra bao nhiêu số 0?
A.12
B.13
C.14
D.15