Câu 1: Cho s và i là biến nguyên,Khi chạy đoạn chương trình sau:
S:=0 ; i:+0
While i<3 do begin i:=i+1;
s:=s+i*i;end;
writeln(s);
Kết quả in lên màn hình s là bao nhiêu ?
Câu 2: số thực a,b nhập từ bàn phím . tính giá trị biểu thứ
S= a^2 +b^2 In ra S
giúp mình với mai mình ktra rùi :((
Câu 2. j:= 4; k:=4;
For i:=1 to 4 do begin j:=j+i; k:=k+j; end;
writeln( j, k);
a) Cho biết giá trị của k, j sau khi thực hiện đoạn chương trình trên?
b) Viết đoạn chương trình thể hiện thuật toán trên?
Câu 3. Viết chương trình tính tổng các số chẵn (hoặc lẻ) từ 1 đến 100 sử dụng câu lệnh for...do?
Câu 4. Viết chương trình tính tổng của N số tự nhiên đầu tiên với N là số tự nhiên nhập từ bàn phím.
Câu 5. Viết chương trình tính tổng các số tự nhiên từ 1 đến 100 sử dụng câu lệnh lặp while...do.
câu31Khi thực hiện đoạn chương trình sau: n:=10; T:=10;
While n <16 do Begin N:=n+t; t:=t-5; End; Giá trị N=? A. 20 B. 15 C.10 D. 5
Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương trình n:=16; T:=T -n; end; A.2 B.3 C.4 D.5
Cho đoạn chương trình sau:
If a>b then a :=b ;
If a>c then a :=c ;
Writeln(a) ;
Hỏi nếu a := 7 ; b := 6 ; c := 8 ; khi kết thúc chương trình sẽ in ra màn hình nội dung gì ?
(1 Điểm)
Không có thông tin nào hiển thị trên màn hình
8
6
7
viết chương trình nhập vào mảng a với dãy các số nguyên
a.tính tổng dãy số vừa nhập
b.nhập vào 1 số nguyên x bất kì, đếm xem x xuất hiện bao nhiêu lần trong mảng a.
viết cú pháp câu lệnh lặp với số lần biết trc cho ví dụ c10 kiểm tra tính đúng sai của câu lệnh sauneeus sai sửu lại cho đúng
a for i = 1 to 5 do writeln (`A');
b, for i : 1.5 to 5.5 do writeln (`A');
c x : 5 ; while x : x=5 DO X: = x + 5 ;
d, var array : x [1.. 10] of interger ;
A[i] :=21; A[2]:= 5; A[3]:=18; A[4]:=19;
S:=0;
For i:=1 to 4 do
If A[i] mod 3 = 0 then
S:=S+A[i];
Write(s);
Cho biết kết quả in ra là bao nhiêu sau khi thực hiện đoạn chương trình bên?
A.0 B.27 C.39 D.63
Giúp mình với. Mình cần gấp. Cảm ơn
A. Phần trắc nghiệm: Hãy chọn một đáp án đúng nhất
Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?
A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10 writeln(‘A’);
C. for i:= 1 to 10 do writeln(‘A’); D. for i to 10 do writeln(‘A’);
Câu 2. Trong câu lệnh lặp: For i := 1 to 10 do j:= j + 2; write( j );
Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?
A. 10 lần B. 5 lần C. 1 lần D. Không thực hiện.
Câu 3. Cho đoạn chương trình: J:= 0;
For i:= 1 to 5 do J:= j + i;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
A. 12 B. 22 C. 15 D. 42.
Câu 4. Trong Pascal, câu lệnh nào sau đây là đúng?
A. S:=1; B. i:=0; S:=1;
While S<10 do write(S); while s<10 do S:=S+i; i:=i+1;
C. n:=2; while n<5 do write(‘A’); D. Cả A và B.
Câu 5. 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 6. 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 7. Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:
A. Chỉ số đầu và chỉ số cuối là 2 số nguyên. B. Chỉ số đầu chỉ số cuối.
C. Kiểu dữ liệu có thể là integer hoặc real. D. Cả ba ý trên.
Câu 8. Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tb:= 0; For i:= 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu?
A. 20 B. 18 C. 21 D. 22