Worksheetsôn tập pascal Hk1
Total questions: 20
Worksheet time: 17mins
Chọn cấu trúc rẽ nhánh đúng cho tình huống sau:
Nếu điểm TB lớn hơn bằng 8 thì in ra màn hình là đậu.
IF DiemTB = 8 then Writeln(‘Dau’);
IF DiemTB >= 8 then Writeln(‘Dau’);
IF DiemTB > 8 then Writeln(‘Dau’);
IF DiemTB <= 8 then Writeln(‘Dau’);
Viết câu lệnh rẽ nhánh tính: Nếu x2 + y2 ≤ 1 thì Z = x2 +y2
If (sqr (x) + sqr(y)) <= 1 then Z:=sqr(x) + sqr(y);
If (sqr (x) + sqr(y)) >= 1 then Z:=sqr(x) + sqr(y);
If (sqr (x+y)) <= 1 then Z:=sqr(x) + sqr(y);
If (sqr (x) + sqr(y)) <= 1 then Z:=sqr(x + y);
Khi thực hiện đoạn lệnh trong pascal, giá trị S bằng bao nhiêu?
S:=0;
For i:=1 to 5 do S:=S+i;
S=15
S=10
S=5
S=6
Đoạn chương trình sau đưa ra màn hình kết quả gì ?
For i := 10 downto 1 do write(i, ‘ ’);
1 2 3 4 5 6 7 8 9 10
10 9 8 7 6 5 4 3 2 1
10 9 8 7 6 5 4 3 2 1
Không đưa ra kết quả gì
Trong ngôn ngữ lập trình Pascal, về mặt cú pháp cách viết các câu lệnh ghép nào sau đây là đúng ?
Begin :
A := 1 ;B := 5 ;
End ;
Begin ;
A := 1 ;B := 5 ;
End ;
Begin
A := 1 ;B := 5 ;
End :
Begin
A := 1 ; B := 5 ;
End ;
Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:
For i:=2 to 10 do
Writeln(‘GOOD LUCK TO YOU’);
Hỏi chữ ‘GOOD LUCK TO YOU’ được in ra màn hình mấy lần?
10
8
9
7
Trong ngôn ngữ lập trình Pascal, hãy cho biết giá trị của M sau khi thực hiện đoạn chương trình sau với a=19 và b=12 ?
M := a ;
If a<b then M := b ;
M = 19
M = 10
M nhận cả 2 giá trị 10 và 12
M không nhận giá trị nào cả
Hãy chọn những biểu diễn tên đúng trong những biếu diễn dưới đây?
‘******’
123ac
Dien_tich
=ban
Kiểu số thực gồm:
Real, longint, extended
Real, longint
longint, extended
Real, extended
Để biểu diễn x3 ta có thể viết:
sqrt(sqr x*x);
sqrt (x*x*x);
sqr(x)*x;
sqr(sqrt(x*x*x));
Khai báo nào sau đây là đúng cú pháp
Type mang1c = array [1..100] of byte;
Type 1mang = array [1..100] of byte;
Type mang1c = array [1-100] of byte;
Type mang1c = array (1..100) of byte;
Trong ngôn ngữ lập trình Pascal, đoạn chương trình trên thực hiện việc nào trong các việc sau (A là mảng số có N phần tử)?
Tính tích các phần tử lẻ của mảng A.
In ra màn hình mảng A.
Đếm số phần tử của mảng A.
Không thực hiện việc nào trong các việc đã nêu
Câu lệnh sau làm gi?
For i:=1 to 10 do readln(A[i]);
Nhập 10 phần tử đầu tiên của mảng A
In ra mảng A
Tính tổng các phần tử của mảng A
Đếm số phần tử của mảng A
Đoạn chương trình trên làm gi?
Đếm số phần tử có giá trị dương của mảng A
Tính tổng các phần tử của mảng A
Nhập mảng A
In ra mảng A
Câu lệnh sau làm gi?
writeln(A[5]);
Xuất giá trị của phần tử thứ 5 của mảng A
Nhập giá trị cho phần tử thứ 5 của mảng A
Tính tổng các phần tử của mảng A
In ra mảng A
Cho S1:='Bien dao que huong';
S2:= upcase(S1[10]);
S2 có giá trị là:
'Q'
'Bien Dao Que Huong'
'Que'
‘Bien’
Cho khai báo sau:
Var hoten : string;
Phát biểu nào dưới đây là đúng?
Xâu có độ dài lớn nhất là 255;
Xâu có độ dài lớn nhất là 0;
Cần phải khai báo kích thước của xâu sau đó;
Câu lệnh sai vì thiếu độ dài tối đa của xâu;
Cho s1 = ‘010’; s2 = ‘1001010’ hàm pos(s1,s2) cho giá trị bằng:
2
3
4
5
s=" May tinh"; t= "may tinh".
s>t
s<t
s==t
Tất cả đều sai
Trong ngôn ngữ lập trình Pascal, muốn kiểm tra đồng thời cả ba giá trị của A. B. C có cùng lớn hơn 0 hay không ta viết câu lệnh If thế nào cho đúng ?
If A. B. C > 0 then ……
If (A > 0) and (B > 0) and (C > 0) then ……
If A>0 and B>0 and C>0 then ……
If (A>0) or (B>0) or (C>0) then……
![Ôn tập KTHKI Tin học 9 [2020-2021]](https://cf.quizizz.com/image/image-loader.svg)
