Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?
Những câu hỏi liên quan
Tìm và sửa lỗi cho chương trình sau:Bài 1:Program bai 1;Var x; n: integer;Begin X12 Write(n:4,x:4);ReadInEnd.Bài 2:Program 2bai;Var i, n, s:real;Begin S:0 For i:0.5 to n do SS+i; Write(s); ReadInEnd.
Đọc tiếp
Tìm và sửa lỗi cho chương trình sau:
Bài 1:
Program bai 1;
Var x; n: integer;
Begin
X=12
Write(n:4,x:4);
ReadIn
End.
Bài 2:
Program 2bai;
Var i, n, s:real;
Begin
S:=0
For i:=0.5 to n do
S=S+i;
Write(s);
ReadIn
End.
Bài 1
Lỗi:
1) Program bai 1; => sửa: Program bai1;
2) Var x; n: integer; => sửa: Var x, n:integer;
3) X = 12 => sửa: x:=12;
-------------------
Bài 2
Lỗi
1) Program 2bai; => sửa: Program bai2;
2) Var i, n, s:integer;
3) S:=0 => sửa S:=0;
4) For i:=0,5 to n do => sửa: For i:=1 to 5 do
5) S=S+i; => sửa: S:=S+i;
Đúng 2
Bình luận (0)
Câu 1 : Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal.A. 8a A. tamgiac C. program D. bai tapCâu 2 : Để chạy chương trình trong Turbo Pascal ta dùng tổ hợp phím nào ?A. Ctrl + F9 B. Alt + F9 C. F9 D. Ctrl + Shitf + F9Câu 3 : Trong Pascal, khai báo nào sau đây là đúng cho khai báo biến ?A. Var tb: real; B. Type 4hs: integer; C. Const x: real; D. V...
Đọc tiếp
Câu 1 : Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal.
A. 8a A. tamgiac C. program D. bai tap
Câu 2 : Để chạy chương trình trong Turbo Pascal ta dùng tổ hợp phím nào ?
A. Ctrl + F9 B. Alt + F9 C. F9 D. Ctrl + Shitf + F9
Câu 3 : Trong Pascal, khai báo nào sau đây là đúng cho khai báo biến ?
A. Var tb: real; B. Type 4hs: integer; C. Const x: real; D. Var R = 30;
Câu 4 : Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào ?
A. (a*a + b)(1+c)(1 + c)(1 + c) B. (a.a + b)(1 + c)(1 + c)(1 + c)
C. (a*a + b)*(1 + c)*(1 + c)*(1 + c) D. (a2 + b)(1 + c3
Câu 5: Để nhập dữ liệu ta dùng lệnh:
A.Clrscr; B.Readln(x); C. X:= ‘dulieu’; d.Write(‘Nhap du lieu’);
Câu 6 : Bốn bạn A, B, C, D đưa ra kết quả của phép chia, phép chia lấy phần nguyên và lấy phần dư của hai số nguyên 14 và 5 như sau :
A. 14/5 =2; 14 div 5 = 2; 14 mod 5 = 4 B. 14/5 =2.8; 14 div 5 = 2; 14 mod 5 = 4
C. 14/5 =2.8; 14 div 5 = 4; 14 mod 5 = 2 D. 14/5 =3; 14 div 5 = 2 ; 14 mod 5 = 4
Hãy chọn bạn làm đúng
Câu 7. Những từ nào sau đây là từ khoá?
A. Begin, Uses, End, Thong bao B. Program, Begin, char, Uses,
C. Var, Const, Write D. Program, Begin, Uses, end
Câu 8. Trong cấu trúc chương trình Pascal, phần nào là phần bắt buộc phải có?
A. Phần tiêu đề chương trình B. Phần thân chương trình
C. Phần khai báo thư viện D. Phần khai báo biến.
Phần 2 : Tự luận
Câu 9 : Viết các biểu thức toán sau đây dưới dạng biểu thức Pascal : (3 điểm)
a. 15x2 + 30 (x+2) b. 
c. 
Câu 10 : (3 điểm)
Viết chương trình nhập vào 2 số nguyên a, b từ bàn phím, tính trung bình cộng (TB) của hai số a, b và in kết quả ra màn hình.
Câu 1: B
Câu 2: A
Câu 3: A
Câu 4: C
Câu 5: B
Đúng 0
Bình luận (0)
ho ba lực , và cùng tác động vào một vât tại điểm M và đứng yên. Cho biết cường độ của , đều là 100N và . Tìm cường độ và hướng của lực .
Đọc tiếp
ho ba lực 
= 
, 
= 
và 
= 
cùng tác động vào một vât tại điểm M và đứng yên. Cho biết cường độ của , đều là 100N và 
= 
. Tìm cường độ và hướng của lực .
= 100√3 và ngược hướng với hướng 
với E là đỉnh thứ tư của hình bình hành MACB
Đúng 0
Bình luận (0)
Tính:a) (x4 – x2 + x - 1);b) (-2x3 + 3x2 -5 );c) ;d) .
Đọc tiếp
Tính:
a) 
(x4 – x2 + x - 1);
b) 
(-2x3 + 3x2 -5 );
c) 
;
d) 
.
a) (x4 – x2 + x - 1) = x4(1 - 
) = +∞.
b) (-2x3 + 3x2 -5 ) = x3(-2 + 
) = +∞.
c) = 
= +∞.
d) = 
= 
= 
= -1.
Đúng 0
Bình luận (0)
Cho chương trình fascal như sau. Tìm các câu lệnh sai và sửa lại bằng câu lệnh đúng bên cạnh các câu sai (nếu có) Program bai tap 1;
Uses CRT
Var a;=integen;
b;=real;
Constc;=3;
Begin
a:=200;
b:=a/c;
Readln;
End
Program bai tap 1; -> Program Bai_tap_1;
Uses CRT -> Uses CRT;
Var a;=integen; -> Var a: integer;
b;=real; -> b: real;
Constc;=3; -> Const c=3;
Begin
a:=200;
b:=a/c;
Readln;
End -> End.
Đúng 1
Bình luận (0)
Program bai tap 1; -> Program Bai_tap_1; Uses CRT -> Uses CRT; Var a;=integen; -> Var a: integer; b;=real; -> b: real; Constc;=3; -> Const c=3; Begin a:=200; b:=a/c;
Đúng 1
Bình luận (0)
a) b)
Đọc tiếp
a) 
b) 
a) \(\sqrt[3]{27}-\sqrt[3]{-8}-\sqrt[3]{125}=\sqrt[3]{3^3}+\sqrt[3]{2^3}-\sqrt[3]{5^3}=3+2-5=0\)
b) \(\frac{\sqrt[3]{135}}{\sqrt[3]{5}}-\sqrt[3]{54}.\sqrt[3]{4}=\sqrt[3]{\frac{135}{5}}-\sqrt[3]{54.4}=\sqrt[3]{27}-\sqrt[3]{216}=3-6=-3\)
Đúng 0
Bình luận (0)
a) \(\sqrt[3]{27}=3\)
\(\sqrt[3]{-8}=-2\)
\(\sqrt[3]{125}=5\)
=> 3 \(-\) -2 - 5 = 0
Đúng 0
Bình luận (0)
Câu 1. Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal:
a. 8ab. tamgiacc. programd. bai tap
Câu 2. Để chạy chương trình ta sử dụng tổ hợp nào:
a. Ctrl – F9b. Alt – F9c. F9d. Ctrl – Shitf – F9
Câu 3. Trong Pascal, khai báo nào sau đây là đúng?
a. Var tb: real;b. Type 4hs: integer;
c. const x: real; d. Var R 30;
Câu 4. Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào ?
a. (a*a + b)(1+c)(1 + c)(1 + c)b. (a.a + b)(1 + c)(1...
Đọc tiếp
Câu 1. Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal: a. 8ab. tamgiacc. programd. bai tap Câu 2. Để chạy chương trình ta sử dụng tổ hợp nào: a. Ctrl – F9b. Alt – F9c. F9d. Ctrl – Shitf – F9 Câu 3. Trong Pascal, khai báo nào sau đây là đúng? a. Var tb: real;b. Type 4hs: integer; c. const x: real; d. Var R = 30; Câu 4. Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào ? a. (a*a + b)(1+c)(1 + c)(1 + c)b. (a.a + b)(1 + c)(1 + c)(1 + c) c. (a*a + b)*(1 + c)*(1 + c)*(1 + c)d. (a2 + b)(1 + c)3 Câu 5. Writeln (‘Ban hay nhap nam sinh’); Readln (NS); Ý nghĩa của hai câu lệnh trên là: a. Thông báo ra màn hình dòng chữ: “Ban hay nhap nam sinh”. b. Yêu cầu người sử dụng nhập giá trị cho biến NS. c. Thông báo ra màn hình dòng chữ: “Ban hay nhap nam sinh” và yêu cầu người sử dụng nhập giá trị cho biến NS d. Không thực hiện gì cả. Câu 6: Để mở rộng giao diện pascal ta dùng tổ hợp phím nào? a. Ctrl_F9 b. Ctl_Shif_F9 c. Alt_Enter d. Ctrl_ Shift_Enter. Câu 7. Chọn câu chính xác nhất cho câu trả lời sau: a. var = 200;b. Var x,y,z: real; c. const : integer;d. Var n, 3hs: integer; Câu 8: Ta thực hiện các lệnh gán sau :x:=1; y:=9;z:=x+y; Kết quả thu được của biến z là: a. 1b. 9 c. 10d. Một kết quả khác Câu 9. Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal: a. 8 ab. Tam-giacc. programd. Bai_tapCâu 10. Để dịch chương trình ta sử dụng tổ hợp nào: a. Ctrl – F9b. Alt – F9c. F9d. Ctrl – Shitf – F9 Câu 11. Trong Pascal, khai báo nào sau đây là đúng? a. Var tb= real;b. Type 4hs: integer; c. const x: real; d. Var R = byte; Câu 12. Biểu thức toán học (a +b)2 – a(a+b) được biểu diễn trong Pascal như thế nào ? a. (a*a + b)(1+c)(1 + c)(1 + c)b. (a+b)*(a+b)-a*(a+b) c. (a*a + b)*(1 + c)*(1 + c)*(1 + c) d. (a.a + b)(1 + c)(1 + c)(1 + c) Câu 13. Writeln (‘Ban hay nhap nam sinh’); Readln (NS); Ý nghĩa của hai câu lệnh trên là: a. Thông báo ra màn hình dòng chữ: “Ban hay nhap nam sinh”. b. Yêu cầu người sử dụng nhập giá trị cho biến NS. c. Thông báo ra màn hình dòng chữ: “Ban hay nhap nam sinh” và yêu cầu người sử dụng nhập giá trị cho biến NS d. Không thực hiện gì cả. Câu 14: Để mở rộng giao diện pascal ta dùng tổ hợp phím nào? a. Ctrl_F9 b. Ctl_Shif_F9 c. Alt_Enter d. Ctrl_ Shift_Enter. Câu 15. Chọn câu chính xác nhất cho câu trả lời sau: b. Const x =200;b. Var x,y,z =real; d. const : integer; d. Var n, 3hs= integer; Câu 16: Ta thực hiện các lệnh gán sau :x:=4; y:=9;z:=x-y; Kết quả thu được của biến z là: a. -5b. 9 c. 3d. -8 II) Phần tự luận: Câu 1:: Viết các biểu thức toán sau đây dưới dạng biểu thức pascal: a) ; b) ; c) (a+b)2.(d+e)3 d) (25 + 4).6 Câu 2: Hãy nêu sự giống và khác nhau giữa hằng và biến? Cho ví dụ về khai báo hằng và khai báo biến? Câu 3: Hãy viết chương trình bằng NNLT Pascal nhập vào chiều dài và chiều rộng của một hình chữ nhật, tính chu vi và diện tích của hình chữ nhật đó, in kết quả ra màn hình. Câu 4 Viết chương trình nhập 3 số từ bàn phím và hiển thị kết quả ra màn hình tổng và tích của 3 số đó. Mọi người giúp e với
Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Mảng A trong chương trình trên có số phần tử tối đa là bao nhiêu
Cho sin 2a - và a π.Tính sina và cosa.
Đọc tiếp
Cho sin 2a = -
và 
< a < π.
Tính sina và cosa.
< a < π => sina > 0, cosa < 0
cos2a = 
= ±
Nếu cos2a = 
thì
sina = 
= 
cosa = -
Nếu cos2a = - thì
sina = 
cosa = -
Đúng 0
Bình luận (0)