K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

TỔ TOÁN-TIN MÔN: TIN HỌC 8 I. TRẮC NGHIỆM Câu 1: Lệnh lặp nào sau đây là đú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<giá trị cuối>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ị đầu>to<câu lệnh> do <giá trị cuối>; Câu...
Đọc tiếp

TỔ TOÁN-TIN MÔN: TIN HỌC 8

I. TRẮC NGHIỆM

Câu 1: Lệnh lặp nào sau đây là đú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<giá trị cuối>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ị đầu>to<câu lệnh> do <giá trị cuối>;

Câu 2: Câu lệnh pascal nào sau đây là hợp lệ?

a) For i:=10 to 1 do write(‘A’); c) For i:=1.5 to 10 do write(‘A’);

b) For i= 1 to 10 do write(‘A’); d) For i:= 1 to 10 do write(‘A’);

Câu 3: Vòng lặp while ..do là vòng lặp:

a) Biết trước số lần lặp c) Chưa biết trước số lần lặp

b) Biết trước số lần <=100 d) Biết trước số lần là >=100

Câu 4: Câu lệnh lặp while…do có dạng đúng là:

a) While <đk> do; <câu lệnh>; c) While <đk> <câu lệnh> do;

b) While <câu lệnh> do <đk>; d) While <đk>do <câu lệnh>;

Câu 5: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :

s:=0; for i:=1 to 5 do s := s+i;

Kết quả cuối cùng của s là : a) 11 b) 55 c) 101 d) 15

Câu 6: Trong đọan chương trình pascal sau đây x có giá trị là mấy

Begin x:= 3 ; If (45 mod 3) =0 then x:= x +2;

If x > 10 then x := x +10 ; End.

a) 3 b) 5 c) 15 d) 10

Câu 7: Trong chương trình pascal sau đây:

var a, b :integer;

s,cv :real ;

begin a:= 10; b:= 5; s:= a*b ; cv:= (a +b ) * 2 ; end.

Biến s và cv có giá trị là mấy:

a) s = 10 ; cv = 5 ; c) s= 30 ; cv = 50 ;

b) s = 50 ; cv = 40 ; d) s = 50 ; cv = 30 ;

Câu 8: Sau khi thực hiện đoạn chương trình j:= 0; for i:= 1 to 3 do j:=j+2; thì giá trị in ra màn hình là? a) 4 b) 6 c) 8 d) 10

Câu 9: Để tính tổng S=1+3 + 5 + … + n; em chọn đoạn lệnh:

a) for i:=1 to n do

if ( i mod 2)=0 then S:=S + 1/i;

c) for i:=1 to n do

if (i mod 2) <> 0 then S:=S+i;

b) for i:=1 to n do

if ( i mod 2)<>0 then S:=S + 1/i

d) for i:=1 to n do

if ( i mod 2)=0 then S:=S + i;

Câu 10: Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n; em chọn đoạn

a) for i:=1 to n do

if ( i mod 2)=0 then S:=S + 1/i;

c) for i:=1 to n do

if (i mod 2) <> 0 then S:=S+i;

b) for i:=1 to n do

if ( i mod 2)=0 then S:=S – 1/i

d) for i:=1 to n do

if ( i mod 2)=0 then S:=S + i

Câu 11: Để đếm các số lẻ <= n ; em chọn đoạn lệnh:

a) for i:=1 to n do

if ( i mod 2)< >0 then S:=S + 1;

c) for i:=1 to n do

if (i mod 2) =0 then S:=S + 1;

b) for i:=1 to n do

if ( i mod 2)=0 then S:=S + i ;

d) for i:=1 to n do

if ( i mod 2)=0 then S:=S + i;

Câu 12: Câu lệnh nào sau đây lặp vô hạn lần

a) s:=5; i:=0;

While i<=s do s:=s + 1;

a) s:=5; i:=1;

While i<=s do i:=i + 1;

b) s:=5; i:=1;

While i> s do i:=i + 1;

d) s:=0; i:=0;

While i<=s do S:=S + i;

Câu 13: Chọn khai báo hơp lệ

a) Var a: array[1..n] of real;

c) Var a: array[1:n] of real;

b) Var a: array[1..100] of real;

d) Var a: array[1…n] of real;

Câu 14: Chọn khai báo hơp lệ

a) Const n=5;

Var a,b: array[1..n] of real;

c) Var n: real;

Var a,b: array[1:n] of real;

b) Var a,b: array[100..1] of real;

d) Var a:array[1.5.10] of real;

Câu 15: Thực hiện đoạn lệnh:

a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1;
Giá trị của t là: a) t=1 b) t=3 c) t=2 d) t=6

II. TỰ LUẬN

1) Nhập số tự nhiên n từ bàn phím, in ra các số chẵn từ 1 đến n và tổng của chúng?

2) Nhập số tự nhiên n từ bàn phím, in ra các số chia hết cho 5 từ 1 đến n và tổng của chúng?

3) Tính trung bình cộng của n số nguyên nhập từ bàn phím?

4) Tìm số lớn nhất trong dãy n số nguyên nhập từ bàn phím?

5) Sửa lỗi cho các câu lệnh Pascal sau:

a. For i=1 to 10 do s= s+i; b. While i:=5 do s:= s+i;

c. Var a:array[100..1] of real; d. If a>b; then max:=a;

6) Kẻ bảng thể hiện các câu lệnh lặp sau:

a. s:=0; b. s:=0; i:=10;

For i:= 1 to 20 do While i>0 do

If I mod 5=0 then s:=s+i; begin s:=s+i; i:=i-1end;

7) Sau khi thực hiện các đoạn chương trình sau, giá trị của biến s và biến i bằng bao nhiêu?

a. s:=1; b. s:=0; i:=0;

For i:= 1 to 5 do s:=s*i; While i<5 do begin i:=i+1; s:=s+i end;

8) Cho biết kiểu dữ liệu của biến a và b trong các đoạn chương trình sau:

a. a:= 0; b:=0;

while a<5 do begin a:=a+1; b:=b+1/a end;

b. b:=1;

For a:= 1 to 5 do b:=b*a;

0
30 tháng 3 2017

- Lần thứ nhất: T<10=> Thực hiện lệnh

T:=T+i=0+1=1

i:=i+9=1+9=10

-Lần thứ hai: T<10=> Thực hiện lệnh

T:T+i=1+10=11

i:=i+9=10+9=19

-Lần thứ ba: T>10=> Không thực hiện lệnh

Vậy kết thúc chương trình T=11, i=19

30 tháng 3 2017

Ủa? i:=10 mới đúng chứ! i:=i+9 mà!

1, Cho s và i là biến nguyên. Khi chạy đoạn chương trình: s:=0;for i:=1 to 3 do s := s+3*i; s:=s+5;writeln(s); Kết quả in lên màn hình là? * A.12 B. 10 C.23 D. 26 2, Kêt quả của câu lệnh For i:=1 to 20 do if i mod 3=2 then write(i:3); * A.In ra các số lẻ từ 1 đến 20; B. In ra các số chẵn từ 1 đến 20; C. In ra các số chia hết cho 3 từ 1 đến 20; D. In ra các số chia hết cho 3 dư 2 từ 1 đến...
Đọc tiếp
1, Cho s và i là biến nguyên. Khi chạy đoạn chương trình: s:=0;for i:=1 to 3 do s := s+3*i; s:=s+5;writeln(s); Kết quả in lên màn hình là? * A.12 B. 10 C.23 D. 26

2, Kêt quả của câu lệnh For i:=1 to 20 do if i mod 3=2 then write(i:3); *

A.In ra các số lẻ từ 1 đến 20; B. In ra các số chẵn từ 1 đến 20; C. In ra các số chia hết cho 3 từ 1 đến 20; D. In ra các số chia hết cho 3 dư 2 từ 1 đến 20;

3, Trong câu lệnh lặp For i:=3 to 15 do s:=s+i; Có bao nhiêu vòng lặp? *

A. 15; B. 12; C. 13 D. 3;

4, Cho k,m,n nhận giá trị tương ứng 4,5,6; kết thúc câu lệnh sau:X:=n; If ((x mod 2=0)) or (x<=5) then x:=m*k else x:=m div k; thì x có giá trị là ? *

A. 1 B. 0 C. 5. D. 20 5, Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?s:=0; n:=0; while s<=5 do n:= n+1;s:= s+n; * A. 3 B. 6 C. 10 D. kết quả khác 6, Cho a,b,c lần lượt nhận giá trị 10,30,20 . Hỏi sau đoạn chương trình Begin X:=a; If x>a then x:=a; if x>b then x:=b;if x>c then x:=c;end; x có giá trị là? * A. 20 B. 10 C. 30 D. Cả ba đáp án đều sai. 7, Cho x:=7; kết thúc câu lệnh If ((x mod 3=0)) and (x<=8) then x:=x+10; thì x có giá trị là ? * A. 8 B. 10 C. 17 D. 7 8, Cho s và i là biến nguyên. Khi chạy đoạn chương trình s := 1; for i:=1 to 5 do s := s+i; Kết quả in lên màn hình là của s là ? * A. 15 B. 16 C. 11 D. 22 9, Cho biết đoạn chương trình Pascal sau đây, khi kết thúc giá trị của S bằng bao nhiêu? S:=0; n:=0;while S<=3 do begin n:= n+1;S:= s+n; end; * A. 15 B. 10 C. 6 D. 3
1
10 tháng 12 2020

1. C

2. D

3. C

4. D

5. D

6. B

7. D

8. B

9. C

 

26 tháng 2 2022

Sai

Bài 1:

a) Câu lệnh While i:=1 do sai.

Sai ở chỗ i:=1(vì có dấu gán)

b) Câu lệnh While a<=b; do sai

Sai ở chỗ có dấu chấm phẩy trước chữ do

Câu lệnh write('b khong nho hon a); sai

Sai ở chỗ vì thiếu dấu ' sau chữ a

c) Câu lệnh While 1=1 do sai

Vì nếu như vậy đây sẽ là vòng lặp vô hạn(vì 1 luôn bằng 1)

Câu lệnh write('Toi lap trinh gioi); sai

Sai ở chỗ thiếu dấu ' sau chữ gioi

d) Câu lệnh sum:=sum+1; i:=i+1; sai

Vì nguyên tắc là sau lệnh While(hoặc lệnh For) thì nếu làm nhiều câu lệnh thì phải bao bọc trong Begin End

Bài 2:

uses crt;

var a,b:real;

begin

clrscr;

repeat

write('a='); readln(a);

if a<=0 then writeln('vui long nhap lai a');

until a>0;

repeat

write('b='); readln(b);

if b<=0 then writeln('vui long nhap lai b');

until b=0;

writeln('dien tich hinh chu nhat la: ',a*b:4:2);

readln;

end.

25 tháng 4 2020

cảm ơn bạn rất rất rất rất nhiều.

Câu 6: Đoạn lệnh sau đây cho biết kết quả nào? var i: byte; i:= 5; While i<=5 do Begin Write(i:2); i:= i-1; end; a.In ra các số từ 1 đến 5; b.In ra các số từ 0 đến 5; c.In ra các số lần lượt từ 5 đến 0; d. In ra vô hạn các số5, mỗi số trên một dòng. Câu 7:Đoạn lệnh sau đây cho biết kết quả nào? Var so: byte: so:= 1; While so<10 do...
Đọc tiếp

Câu 6: Đoạn lệnh sau đây cho biết kết quả nào?

var i: byte;

i:= 5;

While i<=5 do

Begin

Write(i:2);

i:= i-1;

end;

a.In ra các số từ 1 đến 5; b.In ra các số từ 0 đến 5;

c.In ra các số lần lượt từ 5 đến 0; d. In ra vô hạn các số5, mỗi số trên một dòng.

Câu 7:Đoạn lệnh sau đây cho biết kết quả nào?

Var so: byte:

so:= 1;

While so<10 do writeln(so);

so:=so+1;

a.In ra các số từ 1 đến 9; b.In ra các số từ 1 đến 10;

c.In ra vô hạn các số1, mỗi số trên một dòng. d.In ra các số từ 10 đến 1.

Câu 8:Cho đoạn chương trình sau:

Var x, tong : byte;

x:=0; tong:=0;

While tong <= 20 do

Begin

Writeln(tong);

tong:=tong +1;

End;

x:=tong;

Sau khi đoạn chương trình trên được thực hiện, giá trị của x bằng bao nhiêu?

a.20. b. 21. c. Không xác định. d. 0.

Câu 9: Hãy cho biết kết quả của đoạn chương trình dưới đây?

a:=10;

While a< 11do writlen(a);

a.Trên màn hình xuất hiện một số 10.

b.Trên màn hình xuất hiện 10 chữ.

c.Trên màn hình xuất hiện vô số chữ số10,chương trình bị lặp vô tận.

d.Trên màn hình xuất hiện một số 11.

Câu 14:Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật toán đó.

a) Thuật toán 1:

Bước 1. S ← 10, x ← 0.5

Bước 2. Nếu S ≤ 5.2, chuyển tới bước 4.

Bước 3. S ← S –x và quay lại bước 2.

Bước 4. Thông báo S và kết thúc thuật toán.

b) Thuật toán 2:

Bước 1. S ←10, n ← 0.

Bước 2. Nếu S ≥ 10, chuyển tới bước 4.

Bước 3. n ← n+3, S ← S-n và quay lại bước 2.

Bước 4. Thông báo S và kết thúc thuật toán.

Câu 15: Hãy tìm hiểu mỗi đoạn chương trình Pascal sau đây và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp. Hãy rút ra nhận xét của em.

a)S:=0;n:=0;

while S <=10 do

begin n:=n+1;S:=S+n end;

b)S:=0;n:=0;

while S >=10 do

n:=n+1; S:=S+n;

Câu 16: Sử dụng cấu trúc lệnh While ...do để viết chương trình tính tổng của các số tự nhiên liên tiếp bé hơn 20.

Câu 17: Sử dụng cấu trúc lệnh While ...do để viết chương trình tính tích của các số tự nhiên liên tiếp từ 1 đến n.

giúp với nhé, mình cảm ơn nhiều lắm ^-^

2
10 tháng 4 2020

Câu 15:

a) -Đoạn lệnh thực hiện số vòng lặp là 5

b) -Đoạn lệnh thực hiện số vòng lặp là 0

Nhận xét :

Khi thực hiện câu lệnh lặp để thực hiện từ 2 lệnh trở lên cần dùng khối begin và end; để có thể thực hiện nhiều lệnh trong cùng 1 vòng lặp.

Câu 16:

Program hotrotinhoc;

var i,n: integer;

begin

i:=0; n:=0;

while i<20 do

begin

i:=i+1;

n:=n+i;

end;

write(n);

readln

end.

Câu 17:

Program hotrotinhoc;

var i,n: integer;

s: longint;

begin

readln(n);

i:=0; s:=1;

while i<=n do

begin

i:=i+1;

s:=s*i;

end;

write(s);

readln

end.

10 tháng 4 2020

**) Mình làm ở Free Pascal báo lỗi ,mình làm ở Turbo Pascal vẫn chạy được. Nên mình dùng Turbo Pascal để làm bài này nhé.

6.C

7.C

8.B

9.C

Câu 14:

a)

- Máy thực hiện gồm 10 vòng lặp

- Khi kết thúc vòng lặp giá trị của S=5

- Chương trình :

Program hotrotinhoc;

var x,s:real;

begin

s:=10; x:=0.5;

while s>=5.2 do s:=s-x;

write(s:1:0);

readln

end.

b) 

- Máy thực hiện gồm vô hạn vòng lặp

- Khi kết thúc vòng lặp giá trị của S không xác định

- Chương trình :

Program hotrotinhoc;

var n,s:byte;

begin

s:=10; n:=0;

while s<=10 do

begin

n:=n+3;

s:=s-n;

end;

write(s);

readln

end.

Câu 1: câu lệnh viết đúng cú pháp là a.While<điều kiện> to<câu lệnh>; b.While<điều kiện> do <câu lệnh>; c.While<điều kiện> to<câu lệnh1> do; d.While<điều kiện>; do<câu lệnh>; Câu 2: Hoạt động nào sau đây có thể tính toán được số lần làm việc a.Múc từng gáo nước đầy bể b.Đi lên tầng, đén tầng 10 thì dừng c. Học cho tới khi thuộc bài d. Nhặt từng cọng rau cho đến...
Đọc tiếp

Câu 1: câu lệnh viết đúng cú pháp là

a.While<điều kiện> to<câu lệnh>;

b.While<điều kiện> do <câu lệnh>;

c.While<điều kiện> to<câu lệnh1> do;

d.While<điều kiện>; do<câu lệnh>;

Câu 2: Hoạt động nào sau đây có thể tính toán được số lần làm việc

a.Múc từng gáo nước đầy bể

b.Đi lên tầng, đén tầng 10 thì dừng

c. Học cho tới khi thuộc bài

d. Nhặt từng cọng rau cho đến khi xong

Câu 3: Vòng lặp while... do là vòng lặp

a.Biết trước số vòng lặp

b. Biết trước số vòng lặp nhưng giói hạn là <=100

c.Chưa biết trước số lần lặp

d. Biết trước số lần lặp nhưng giới hạn là >=10

Câu 4: Trong ngôn ngữ pascal, đoạn chương trình sau đưa ra kết quả gì?

Fow i:=1 to 10 do write (i,'');

a. 1 2 3 4 5 6 7 8 9 10

b.10 9 8 7 6 5 4 3 2 1

c. Đưa ra 10 đấu cách

d.Không đưa ra kết quả gì

Câu 5: Phần mềm giúp em học vẽ hình là?

a. Sun times

b.Yenka

c. Finger break out

d.geogebra

Câu 6: Khai báo biến mảng nào đúng

a. Var Y: Array[6..20] of Integer;

b.Var Y; Array[10.5..25.5] of Real;

c.Var Y: Array[10,50] of Integer;

d.Var Y: Array[30..15] of Real;

Câu 7: Để nhập một giá trị vào phần tử a[3] của mảng a thì ta viết là

a. Readln(a)

b.Readln(a[3])

c.Readln(a[i])

d.Readln(a(3))

Câu 8: Đoạn lệnh sau đây sẽ cho kết quả gì?

so := 1;

While so < 10 do writeln(so);

so:=so+1;

a.In ra vô hạn các số 1, mỗi số trên một dòng

b.Không phương án nào đúng

c. In ra các số từ 1 đến 9

d. In ra các số từ 1 đến 10

Câu 9: Để tính tổng S=1/2+1/4+1/6+...+1/n; em chọn đoạn lệnh

a. for i:=1 to n do b.for i:=1 to n do

if (i mod 2)= 0 then S:=S-1/i ; Else S := S+1/i

if (i mod 2) = 0 then S:=S+1/i;

c.for i:= 1 to 10 do d.for i:=2 to n do

if (i mod 2) <>0 then S=S+i; if (i mod 2) <> ) then S:= S=S +i/1

Else S:= S-1/i;

Câu 10: Câu lệnh cho phép nhập giá tị của C từ bàn phím

a. Write(C);

b. Writeln(C);

c.Write('Nhap gia tri cua C');

d.Readln(C);

Part#1

1
20 tháng 4 2019

1.b

2.c

3.c

4.a

5.d

6.a

7.c

8.a

9.a

10.d

13 tháng 5 2019

10.c

6 tháng 5 2018

bài 1

if <điều kiện> then <câu lệnh>;

if <điều kiện> then <câu lệnh1> else <câu lênh 2>;

for <biến đềm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

while <điều kiện> do <câu lệnh>;

bài 2

a)xuất giá tri biến c;

b) xuất chử c ra màn hình

c)xuất tong 5+7 ra màn hình tức 12;

d) xuất 5+7 ra màn hình;

e)Khai báo biến i và k thuộc kiểu số thực;

bài 3

C[1]+C[2]=150 0 0 11

bài 4 Nhờ ban khác nhé

7 tháng 5 2018

thank you

30 tháng 5 2020

a) Đoạn chương trình 1:

Máy sẽ thực hiện 5 vòng lặp

Giá trị của S : 5

-Vòng 1: S>5 ---> ĐK đúng ---> S:=10-1=9

- Vòng 2: S>5 ---> ĐK đúng ---> S=9-1=8

- Vòng 3: S>5 ---> ĐK đúng ---> S=8-1=7

- Vòng 4 : S>5 ---> ĐK đúng ---> S=7-1=6

- Vòng 5 : S>5 ---> ĐK đúng ---> S=6-1=5

S>5 ---> ĐK sai ---> kết thúc vòng lặp

b) Bạn kiểm tra lại đề nhé, ở phần n:=n=3;