8
Lập trình đơn giản
Các câu hỏi tương tự
Cho giá trị biến a=5. Hãy cho biết kết quả câu lệnh sau đây:IF a<=10 THEN write(a*a) ELSE (a); *
1.
For I 2 to 12 Do write (O), câu lệnh in ra bao nhiêu chữ O?
2.
For I 1 to 20 Do If (...) Then write (I,);
chỗ trống cần điền để liệt kê ra các SỐ LẺ từ 1 đến 20 là?
3.
để tính tổng 1 + 2 + ... + 100 ta thực hiện For I 1 to 100 Do S:......
... cần điền?
4.
S;0; For I:4 to 12 Do If (I mod 121) Then S:S +I;
giá trị của S?
5.
S;0; For I:1 to 5 Do S:S +I;
giá trị của S?
6.
For I 1 to 10 Do If (I mod 3 0) Then write (I,);
kết quả?
7.
a: 354 If (a mod 3 0) them write (a...
Đọc tiếp
1.
For I = 2 to 12 Do write ('O'), câu lệnh in ra bao nhiêu chữ O?
2.
For I = 1 to 20 Do If (...) Then write (I,'');
chỗ trống cần điền để liệt kê ra các SỐ LẺ từ 1 đến 20 là?
3.
để tính tổng 1 + 2 + ... + 100 ta thực hiện For I = 1 to 100 Do S:=......
... cần điền?
4.
S;=0; For I:=4 to 12 Do If (I mod 12=1) Then S:=S +I;
giá trị của S?
5.
S;=0; For I:=1 to 5 Do S:=S +I;
giá trị của S?
6.
For I = 1 to 10 Do If (I mod 3 = 0) Then write (I,'');
kết quả?
7.
a:= 354 If (a mod 3 = 0) them write (a mod 3) Else Write (a Div 3);
kết quả?
8.
để in ra màn hình 20 chữ C cần thực hiện?
n:=10; s:=0; for i:=1 to n do if n mod i=0 then s:=s+i; Write(s); Hỏi s=? *
a:=123; b:=456; IF a>b THEN a:=a-b ELSE b:=b+a; Write('a=',a,'b=',b); Hỏi a=? b=?
n:=12345; if n mod 2 = 0 then write(' Y') else write('N'); hỏi kết quả trên màn hình là gì?
Xem chi tiết
Cho biết hai lệnh sau xuất ra màn hình điều gì?
a,Write(5);write(7);
b,write(5);write(7);
Các câu lệnh pascal sau đây có hợp lê không? vì sao?
a) if x:5 then a = b;
b) if x>2; then a:=b;
c) if x>5 then a:=b; m:=n;
d) if x>2 then a=b; else m:=n;
DV
13 tháng 2 2020 lúc 18:17
LÝ THUYẾT:
1) Năm nay là 2020 vậy tháng 2 có điều kiện THANG2 0 và điều kiện nào sao đây:
A. THANG2 28 B. THANG2 29 C. THANG2 31 D. THANG2 30
2) Để thể hiện điều kiện D lớn hơn hay 8 E là Gioi câu nào sau đây đúng
A. (D 8) OR (E Gioi ) B. ( D 8) OR (E Gioi)
C. (D 8) OR (E Gioi) D. D . 8 OR E Gioi
3) Để tìm giá trị lớn nhất của 2 số a,b thì ta viết:
A. Max:b;If a Max then Max:a; B. If (ab) then Max:a;If (ba) then Max:b;
C. Max:a;If bMax then Max:b; D. Cả...
Đọc tiếp
LÝ THUYẾT:
1) Năm nay là 2020 vậy tháng 2 có điều kiện THANG2 > 0 và điều kiện nào sao đây:
A. THANG2 <= 28 B. THANG2 <= 29 C. THANG2 <= 31 D. THANG2 <= 30
2) Để thể hiện điều kiện D lớn hơn hay 8 E là Gioi câu nào sau đây đúng
A. (D >= 8) OR (E = ' Gioi ') B. ( D >= 8) OR (E= ''Gioi'')
C. (D >= 8) OR (E = Gioi) D. D .= 8 OR E = Gioi
3) Để tìm giá trị lớn nhất của 2 số a,b thì ta viết:
A. Max:=b;If a> Max then Max:=a; B. If (a>b) then Max:=a;If (b>a) then Max:=b;
C. Max:=a;If b>Max then Max:=b; D. Cả 3 câu đều đúng
4) Lệnh nào thể hiện A là số chẵn:
A. If A mod 2 <> 1 then write (' A là số lẻ ');
B. If A mod 2 <> 0 then write (' A là số chẵn ');
C. If A mod 2 = 0 then write (' A là số chẵn ');
D. If A mod 2 = 1 then write (' A là số chẵn ');
5) Chương trình sau cho biết kết quả là gì?
Var a, b: real; x integer; Begin readln(a, b); If a > b then x:=a else x:=b; Write(x); End.
A. Đảo giá trị của 2 biến a, b cho nhau
B. Chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu
C. Xuất ra màn hình số lớn trong 2 số a, b đã nhập
D. Xuất ra màn hình số nhỏ trong 2 số a, b đã nhập
6) Điều kiện nào hợp lệ trong các điều kiện sau khi nói về ngày trong tháng 8:
A. (NGAY > 0) AND (NGAY <= 31) B. (NGAY > 0) AND (NGAY <= 30)
C. NGAY <= 31 D. NGAY > 0
7) Để thể hiện điều kiện D lớn hơn hay bằng 8 và E là Gioi câu nào sau đây đúng:
A. D >= 8 AND E= Gioi B. (D >= 8) AND (E= Gioi)
C. (D >= 8) AND (E= "Gioi") D. (D >= 8) AND (E= 'Gioi')
8) Xác định học sinh thi đậu hay rớt bằng câu lệnh nào sau đây:
A. If ĐTB >= 0 then Writeln('Thi đậu');
B. If ĐTB >= 0 then Writeln('Thi rớt');
C. If ĐTB >= 5 then Writeln('Thi đậu') else Writeln('Thi rớt');
D. If X mod 2=0 then Writeln('Thi rớt') else Writeln('Thi đậu');
9) Tìm số bé nhất trong 3 số x, y, z bằng câu lệnh nào sau đây:
A. min:=x; If y>min then min:=y else min:=z;
B. min:=x; If y>min then min:=y; if z>min then min:=z;
C. min:=x; If y<min then min:=y else min:=z;
D. min:=x; If y<min then min:=y; if z<min then min:=z;
10) Để thể hiện B lớn hơn 10 câu nào sau đây đúng:
A. B >= '10' B. B>= '10' C. B > 10 D. B >= 10
bài 1: viết cú pháp và nêu ý nghĩa của các câu lệnh sau:
if....then...
if....then...else
for..do
while...do
bài 2: cho biết ý nghĩa của các cau lệnh sau:
a, write ( c )
b, write ( c )
c, write ( 5+7 )
d, write ( 5+7 )
e, var i, k : real
clrscr
bài 3: hãy cho biết dữ liệu trên màn hình khi thực hiện đoạn chương trình sau:
C [ 1 ] : 6 ; C [ 2 ] : 9 ; T: 0;
write ( C [ 1 ] + C [ 2 ] , T + C [ 1 ] + C [ 2 ] );
for i: 1 to 3 do write ( T : 3 );
while T 10 do
begin...
Đọc tiếp
bài 1: viết cú pháp và nêu ý nghĩa của các câu lệnh sau:
if....then...
if....then...else
for..do
while...do
bài 2: cho biết ý nghĩa của các cau lệnh sau:
a, write ( c )
b, write ( ' c ' )
c, write ( 5+7 )
d, write ( ' 5+7' )
e, var i, k : real
clrscr
bài 3: hãy cho biết dữ liệu trên màn hình khi thực hiện đoạn chương trình sau:
C [ 1 ] := 6 ; C [ 2 ] := 9 ; T:= 0;
write ( ' C [ 1 ] + C [ 2 ] = ' , T + C [ 1 ] + C [ 2 ] );
for i:= 1 to 3 do write ( T : 3 );
while T < 10 do
begin
T = 6+7*7+6+T
T:=11
writeln ( T );
end;
bài 4: viết chương trình thực hiện công việc sau
a, nhập n số nguyên từ bàn phím
b, hiển thị dáy vừa nhập
c, tính trung bình cộng của dãy số đó
d, hiển thị số nguyên lớn nhất và vị trí của nó
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 32 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ò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. 31.Cấu trúc chương trình Pascal?
2.Nêu quy tắc đặt tên trong chương trình?
3.Thế nào là từ khóa?Kể tên 1 số từ khóa mà em biết,cho ý nghĩa?
4.Cấu trúc phép toán trong NNLT Pascal?
5.Ý nghĩa các câu lệnh write(),writeln(),read(),readln()?
6.Biến nhớ?Khai báo biến?Gán giá trị cho biến?
7.Hằng?Khai báo Hằng
8.Thuật toán đổi giá trị 2 biến?So sánh 2 số thực?Tìm Max?
9.Câu lệnh If...Then...Else?
Đọc tiếp
1.Cấu trúc chương trình Pascal?
2.Nêu quy tắc đặt tên trong chương trình?
3.Thế nào là từ khóa?Kể tên 1 số từ khóa mà em biết,cho ý nghĩa?
4.Cấu trúc phép toán trong NNLT Pascal?
5.Ý nghĩa các câu lệnh write(),writeln(),read(),readln()?
6.Biến nhớ?Khai báo biến?Gán giá trị cho biến?
7.Hằng?Khai báo Hằng
8.Thuật toán đổi giá trị 2 biến?So sánh 2 số thực?Tìm Max?
9.Câu lệnh If...Then...Else?