câu 1:
Var a, b: real;
Begin
Clrscr;
Write(‘nhap a=’), read(a);
Write(‘nhap b=’); read(b);
If a+b = 120 then a:=120-b;
Readln
End.
câu 2:
s = 63
Tìm và sửa lỗi(nếu có) trong đoạn chương trình.
Ví dụ:
Program 2hocki; ->hocki2;
Uses crt ->;
Var x, y, s= real; ->x, y, s: real;
Begin
Clrscr;
Write(‘nhap x= ’);
read(x);
Write(‘nhap y=’); ->in tb: nhap y=
read(y); -> nhập gt cho y từ bàn phím
S=x+y; -> thêm :=
If (x+y =10) then write(‘hop le’) else write(‘ko hop le’);
Readln;
End.
Cho biết giá trị của s sau đoạn chương trình
x:=12;
if x<=12 then s:=x*x else s:=x+2;
Hãy chọn kết quả đúng của đoạn chương trình sau.
s := 0; for i:= 1 to 10 do s:=s + i; Write(s);
A. 49
B. 45
C. 50
D. 55
1) Viết chương trình so sánh hai số a và b theo hai dạng (đủ, thiếu)
2) Cho đoạn chương trình sau:
Program sua loi;
var a,b,s =real
Begin
write ('nhap a=') , readln('a');
write (nhap b=') , readln(b')
s:= (a*b)/2;
write ('s=s);
readln
End.
Chạy mô phỏng đoạn Chương trình sau và cho biết s,a,b? Đoạn chương trình thực hiện bao nhiêu vòng lặp ?
a:=5; b:=10;
While a<>b do
Begin
if a<b then b:=b-a;
if a>b then a:=a-b;
End;
Câu 1 : Viết chương trình nhập vào 1 số nguyên dương c từ bàn phím. Hãy viết chương trình pascal xác định số a chia hết cho 2 hay không? In kết quả ra màn hình.
Câu 2: Viết chương trình lập 3 số nguyên a,b,c từ bàn phím. Em hãy viết chương trình pascal tính tổng 3 số trên. In kết quả ra màn hình.
Câu 3: viết chương trình pascal nhập 3 số nguyên từ bàn phím. Em hãy viết chương trình pascal kiểm tra xem số vừa nhập là chẵn hay lẻ và in kết quả ra màn hình.
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. Trong Pascal, muốn dịch chương trình ta dùng tổ hợp phím nào sau đây:
A.Alt+F9
B. Ctrl+F9
C. Alt+F3
D. Ctrl+S
2. Số biến có thể khai báo tối đa trong một chương trình là bao nhiêu?
A. Chỉ một biến cho mỗi kiểu dữ liệu
B. 10 biến
C. Chỉ hạn chế bởi dung lượng bộ nhớ
D. Ko giới hạn
3. Biến được khai báo với kiểu dữ liệu số thực có thể lưu các giá trị dưới đây
A. Một số nguyên bất kì
B. Một số thực( có thể số nguyên) trong phạm vi cho phép
C. Một số thực bất kì
D. Một dãy các chữ và số
4. Chọn câu lệnh Pascal hợp lệ trong các câu sau:
A. If x:= a+b then x:= x+1;
B. If a>b then max =a;
C. If a>b then max:=; else max:=b;
D. If 5=6 then x:=100;
5. Với i là biến kiểu thực(i=3). Khi chạy đoạn chương trình với lệnh Write(i:5:2); sẽ đc kết quả là:
A. 3.0
B. 3.00
C. 3.5+01
D. 3.75E+01
6. Hãy chọn kết quả đúng của đoạn chương trình sau:
s:=1; for i:=10 downto 3 do s:=s+1; write(s);
A.9
B. 7
C. 8
D. 6
7. Hãy chọn kết quả đúng của đoạn chương trình sau:
s:=0; for i:=1 to 10 do s:=s+1; Write(s);
A.49 B.45 C.50 D.55
8. Để gán 2 cho x ta viết câu lệnh
A. x:=2;
B. 2:=x;
C. x==2;
D. x=2;
