Lập trình đơn giản
Các câu hỏi tương tự
đoạn chương trình sau có mấy chỗ sai
Const c:= 3;
Var a, b:= integer;
Begin
Readln(a)
…….b= a/c;
…….Writeln(b);
Readln;
End
giúp em với
Hãy chọn và khoanh tròn đáp án đúng nhất trong các câu sau.
Câu 1: Trong Pascal, cú pháp câu lệnh lặp với số lần lặp chưa biết trước có dạng: A. for...do B. if...then
C. while...do D. if...then...else
Câu 2: Trong các cách khai báo biến sau đây, cách khai báo nào là hợp lệ? A. Var a: array; B. Var a integer;
C. Var a: integer; D. Var: a: integer;
Câu 3: Trong các cách khai báo biến mảng sau đây, cách khai báo nào là hợp lệ?
A. Var a: array [1..100] for integer; B. Var a: array [1.5..1.05] for in...
Đọc tiếp
Hãy chọn và khoanh tròn đáp án đúng nhất trong các câu sau.
Câu 1: Trong Pascal, cú pháp câu lệnh lặp với số lần lặp chưa biết trước có dạng: A. for...do B. if...then
C. while...do D. if...then...else
Câu 2: Trong các cách khai báo biến sau đây, cách khai báo nào là hợp lệ? A. Var a: array; B. Var a= integer;
C. Var a: integer; D. Var: a: integer;
Câu 3: Trong các cách khai báo biến mảng sau đây, cách khai báo nào là hợp lệ?
A. Var a: array [1..100] for integer; B. Var a: array [1.5..1.05] for integer; C. Var a: array [1,100] for integer; D. Var a: array [1.5,1.05] for integer;
Câu 4: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng? A.Chỉsốđầuvàchỉsốcuốilà2sốnguyên. B.Chỉsốđầu<chỉsốcuối.
C. Kiểu dữ liệu có thể là Integer hoặc Real.
Câu 5: Vòng lặp While ... do kết thúc khi nào?
A. Khi một điều kiện cho trước được thỏa mãn. C. Khi tìm được Output.
D. Cả ba ý trên.
B. Khi đủ số vòng lặp.
D. Tất cả các phương án.
Câu 6: Cho biết câu lệnh sau Do thực hiện mấy lần trong đoạn chương trình sau: i := 5;
While i>=1 do i := i – 1;
A. 1 lần. B. 2 lần. C. 5 lần. D. 6 lần Câu 7: Khi thực hiện đoạn chương trình sau: n:=1; T:=50;
While n>20 do begin n:=n+5; T:=T - n end; Hãy cho biết giá trị của biến T bằng bao nhiêu?
A.14 B.15 C.16 D.17
Câu 8: Khai báo biến mảng: A : array[1..7] of real;. Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]); để
gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị? A.4 B.5 C.6 D.7
Câu 9: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:
A.Chỉsốđầuvàchỉsốcuốilà2sốnguyên.
C. Kiểu dữ liệu có thể là integer hoặc real.
Câu 10: Cú pháp lệnh lặp với số lần chưa biết trước:
B.Chỉsốđầu chỉsốcuối. D. Cả ba ý trên.
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 > do ;< câu lệnh >;
D. While < điều kiện > to < câu lệnh 1 > do < câu lệnh 2 >;
Sửa lỗi cho chương trình sau :
( Chương trình tìm chu vi và diện tích của hình tam giác có 3 cạnh a , b , c và đường cao h ứng với cạnh a; nhập từ bàn phím )
Use crt;
Var a,b,c,h : integer ;
Begin
clrscr;
Readln(a,b,c);
Writeln( a + b + c= '; 'met');
Write ( a*h/2= ','met vuong');
Readln;
End.
Tìm lỗi sai và sửa lại cho đúng trong các chương trình sau:
a) Begin
Program vd
Uses crt;
Clrscr;
Writeln('Chao cac ban!')
End.
Readln
b) Var a,b :=integer;
Const c:=3;
Begin
a:=200
b:=a/c;
Writeln(b)
Readln
End.
1) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?
S:0; i:0;
While S20 do
Begin
S:S+i; i:i+1;
end;
a) 2 b) 4 c) 8 d) vô hạn
2) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?
x:0;
For i:1 to 5 do x:x+3;
a) 1 b) 3 c) 5 d) 15
3) Sau khi thực hiện đoạn chương trình sau, giá trị của biến x bằng bao nhiêu?
x:0;
For i:1 to 5 do x:x+3;
a) 1 b) 3 c) 5 d) 15
4) Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu?
S:0; i:...
Đọc tiếp
1) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?
S:=0; i:=0;
While S<=20 do
Begin
S:=S+i; i:=i+1;
end;
a) 2 b) 4 c) 8 d) vô hạn
2) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?
x:=0;
For i:=1 to 5 do x:=x+3;
a) 1 b) 3 c) 5 d) 15
3) Sau khi thực hiện đoạn chương trình sau, giá trị của biến x bằng bao nhiêu?
x:=0;
For i:=1 to 5 do x:=x+3;
a) 1 b) 3 c) 5 d) 15
4) Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu?
S:=0; i:=0;
While S<=20 do
Begin S:=S+i; i:=i+1; end;
a) 18 b) 21 c) 25 d) 52
5) Đoạn chương trình sau đây đã mắc phải lỗi gì?
a:=5;
While a<=6 do Writeln(‘A’);
a) Sử dụng sai cú pháp lệnh While ... do
b) Cho biết trước số lần lặp
c) Không cho biết trước số lần lặp
d) Lặp vô hạn
6) Trong ngôn ngữ lập trình Pascal, câu lệnh For ... do là lệnh:
a) Không cho biết trước số lần lặp
b) Cho biết trước số lần lặp
c) Biết trước hay không biết trước số lần lặp đều sử dụng được
d) Cả a, b, c đều sai
7) Trong ngôn ngữ lập trình Pascal, câu lệnh lặp được dùng để thể hiện:
a) Cấu trúc lặp c) Cấu trúc điều kiện
b) Cấu trúc rẽ nhánh d) Cấu trúc mảng
8) Trong ngôn ngữ lập trình Pascal, lệnh lặp với số lần chưa biết trước là câu lệnh:
a) For ... do c) If ... then ...
b) While ... do d) If ... then ... else...
9) Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây hợp lệ?
a) For i:=10 to 1 do Writeln(‘A’);
b) For i:=10.5 to 1.5 do Writeln(‘A’);
c) For i=1 to 10 do Writeln(‘A’);
d) For i:=1 to 10 do Writeln(‘A’);
10) Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây hợp lệ?
a) x:=10; While x:=10 do x:=x+5;
b) x=10; While x=10 do x=x+5;
c) x:=10; While x=10 do x:=x+5;
d) x=10; While x:=10 do x=x+5;
1.Câu lệnh Write(5+6) cho kết quả gì?
2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:a; a:b; b:c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:a+b; b:a-b; a:a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:a+b; b:a-b; a:a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lầ...
Đọc tiếp
1.Câu lệnh Write('5'+'6') cho kết quả gì?
2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:=a; a:=b; b:=c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:=a+b; b:=a-b; a:=a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:=a+b; b:=a-b; a:=a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lần?
9.Điều kiện sử dụng trong câu lệnh if...then...else có kết quả là ?
A.Chỉ đúng không sai B.Chỉ sai không đúng C.Chỉ có thể đúng hoặc sai D.Không đúng không sai
10.Sửa lỗi cho chương trình tính diện tích hình vuông sau:
Program bai1;
Uses crt;
Var canh integer;
Begin
Clscrs;
Writeln ('nhap canh:') reandln(canh)
dientich =canh*canh;
Writeln ('dien tich hinh vuong la:, dientich);
Readln;
End.
11.Sửa lỗi cho chương trình tính tổng
Program bai1;
Uses crt;
var a. b:integer;
Begin
Clscrs;
Writeln ('nhap a:') readln(a);
Writeln ('nhap b:'); readln(b)
Tong =a+b;
Writeln ('tong hai so a va b la:, tong);
Readln;
End.
12.viết câu lệnh so sánh 2 số a và b
13.Cho trước 3 số dương a,b,c.Viết chuong trình in ra ba số a,b,c có phải là độ dài của 1 tam giác hay không
14.Viết chương trình xét xem một tam giác có là tam giác cân hay không khi biết 3 cạnh của tam giác
15.Nhập 3 số a,b,c.Hãy viết chương trình tìm giá trị lớn nhất của
chúng và gắn giá trị lớn nhất đó cho biến MAX
16.Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không tăng
17,Giải phương trình bậc nhất bx+c+0(với b,c được nhập từ bàn phím)
18,Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không giảm
2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:=a; a:=b; b:=c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:=a+b; b:=a-b; a:=a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:=a+b; b:=a-b; a:=a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lần?
9.Điều kiện sử dụng trong câu lệnh if...then...else có kết quả là ?
A.Chỉ đúng không sai B.Chỉ sai không đúng C.Chỉ có thể đúng hoặc sai D.Không đúng không sai
10.Sửa lỗi cho chương trình tính diện tích hình vuông sau:
Program bai1;
Uses crt;
Var canh integer;
Begin
Clscrs;
Writeln ('nhap canh:') reandln(canh)
dientich =canh*canh;
Writeln ('dien tich hinh vuong la:, dientich);
Readln;
End.
11.Sửa lỗi cho chương trình tính tổng
Program bai1;
Uses crt;
var a. b:integer;
Begin
Clscrs;
Writeln ('nhap a:') readln(a);
Writeln ('nhap b:'); readln(b)
Tong =a+b;
Writeln ('tong hai so a va b la:, tong);
Readln;
End.
12.viết câu lệnh so sánh 2 số a và b
13.Cho trước 3 số dương a,b,c.Viết chuong trình in ra ba số a,b,c có phải là độ dài của 1 tam giác hay không
14.Viết chương trình xét xem một tam giác có là tam giác cân hay không khi biết 3 cạnh của tam giác
15.Nhập 3 số a,b,c.Hãy viết chương trình tìm giá trị lớn nhất của
chúng và gắn giá trị lớn nhất đó cho biến MAX
16.Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không tăng
17,Giải phương trình bậc nhất bx+c+0(với b,c được nhập từ bàn phím)
18,Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không giảm
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
Hãy cho biết chương trình Pascal sau đây có đúng không ? Tại sao ? Program Tong_hai_so; Begin Writel(‘Hay nhap hai so’); Readln(a,b); Write(‘Tong cua hai so la: ‘,a+b); Var a,b: Integer; End.Giúp mik vs mai mik thi r
Đọc tiếp
Hãy cho biết chương trình Pascal sau đây có đúng không ? Tại sao ?
Program Tong_hai_so;
Begin
Writel(‘Hay nhap hai so’); Readln(a,b);
Write(‘Tong cua hai so la: ‘,a+b);
Var a,b: Integer;
End.
Giúp mik vs mai mik thi r
Cho đoạn chương trình sau: s := 0; i := 1 while s <= 10 do begin i := i + 1; s := s + i; end; Cho biết câu lệnh while dừng khi s bằng bao nhiêu?