Chào bạn . Bạn nên kiểm tra lại đề bài , đề bài chưa hoàn chỉnh và câu lệnh for không thể chạy được . Nếu đề đã có là J:=30 sao đề lại gán lại là J:=i-5 ( nó sẽ lấy 1-5 ; 2-5 ,....)
Sau khi thực hiện chương trình sau, giá trị của biến J bằng bao nhiêu? J:=2; For i:=1 to 5 do J:=J*2;
Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình:
s:=0;
for i:=1 to 5 do s := s+i;
writeln(s);
Kết quả in lên màn hình là của s là :
A.11 B. 55 C. 101 D.15
Câu 2: Câu lệnh nào sau đây lặp vô hạn lần | |
a) s:=5; i:=0; While i<=s do s:=s + 1; | c) s:=5; i:=1; While i<=s do i:=i + 1; |
b) s:=5; i:=1; While i> s do i:=i + 1; | d) s:=0; i:=0; While i<=n do begin if (i mod2)=1 Then S:=S + i; Else i:=i+1; End; |
Câu 3: : Em hãy viết chương trình tìm số nhỏ nhất trong N số được nhập vào từ bàn phím
Câu 4: Viết chương trình nhập vào dãy số N phần tử, tính tổng dãy số, in ra màn hình dãy số vừa nhập và kết quả của tổng.
Câu 30. Cho S và i là biến nguyên. Khi chạy đoạn chương trình
s:=0;
for i:=1 to 3 do s := s+2*i;
writeln(s);
Kết quả in lên màn hình là
A.12 B. 10. C. 0. D. 6.
Chạy chương trình bằng tay:
For i:=1 to n do
for j:=i to n do
If a[i]>a[j] then
Begin
Tg:= a[i];
a[i]:=a[j];
a[j]:=Tg;
End;
(Tg là biến trung gian)
cho s và i là biến nguyên khi chạy đoạn chương trình s:=0,for i:= 1 to 3 do s:=s+3*i,writeln (s)
Sau khi thực hiện đoạn chương trình sau, giá trị của biến j là bao nhiêu ?
j:= 0;
for i:= 0 to 5 do j:=j+2;
Tìm kết quả của đoạn chương trình sau j=2 ,k=3
For:= 1 to 5 do
Bài tập 1: Hãy cho biết kết quả của đoạn chương trình sau:
a) So:=1;
While So<10 do writeln(So);
So:=so+1;
b) Hãy cho biết giá trị của x bằng bao nhiêu?
x:=0;tong:=0;
While tong<=20 do
Begin writeln(tong);
Tong:=tong+1;
End;
x:=tong;
c) Hãy cho biết giá trị của i, j, k
i:=1;j:=2;k:=3;
While i<6 do i:=i+1;j:=j+1;k:=k+j;
Bài tập 2: Hãy cho biết đoạn chương trình sau thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của A bằng bao nhiêu? Viết chương trình Pascal thể hiện thuật toán đó
a) Thuật toán 1
Bước 1: A ¬ 0; n ¬ 2;
Bước 2: Nếu A ≥ 9 , chuyển bước 4
Bước 3: A ¬ A+n và quay lại bước 2
Bước 4: Thông báo A và KTTT
b) Thuật toán 2
Bước 1. S ¬ 10, x ¬ 0.5
Bước 2. Nếu S £ 5.2, chuyển tới bước 4
Bước 3. S ¬ S - x và quay lại bước 2
Bước 4. Thông báo S và kết thúc thuật toán
Bài tập 3: Hãy chỉ ra lỗi trong các câu lệnh sau đây
a) X:=10; while X:=10 do X:=X+5;
b) X:=10; while X=10 do X=X+5;
c) S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n;
Bài tập 4: Các khai báo biến mảng sau đây trong Pascal đúng hay sai:
a) var X: Array[10,13] Of Integer;
b) var X: Array[5..10.5] Of Real;
c) var X: Array[3.4..4.8] Of Integer;
d) var X: Array[10..1] Of Integer;
e) var X: Array[4..10] Of Real;
Bài tập 5: Viết chương trình nhập số thực nằm trong khoảng từ 1 đến 100. Thông báo bạn đã nhập đúng. Yêu cầu nhập lại nếu số đó không nằm trong khoảng này
Bài tập 6 : Viết chương trình nhập dãy N số và in ra tổng các số chẵn, số lẻ của dãy vừa nhập?
Bài tập 7 : Viết chương trình nhập 1 dãy số nguyên. In ra phần tử lớn nhất, nhỏ nhất của dãy số và tính tổng các số lớn hơn 10 và nhỏ hơn 200?
Bài tập 8 : Viết chương trình nhập 1 dãy số nguyên, sắp xếp lại dãy số theo thứ tự tăng dần, giảm dần?
Mọi người giúp em với em cảm ơn nhìu ạ.
Bài 1:viết chương trình pascal sử dụng biến mảng nhập từ bàn phím các phần tử của một dãy số độ dài dãy số được nhập từ bàn phím in ra màn hình số lớn nhất của dãy số
Bài 2
i :=2,k :=3;
for i = 1 to 5 do
begin
j:=j+1 ; k :=k+j;
end;
write('j=', j); write('k=',k);
viết các lần lặp cho đoạn chương trình trên và cho biết giá trị cuối cùng của i; j ; k là bao nhiêu?
giúp e với ạ,mai e ktra học kì rồi
please!!!!!!!!!!!!!!!
