Question

[Coby Cotton]

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 ạ.

Answer 1

[Minh Lệ]

Lời giải :

Câu 1 :

a) So=1 (vô hạn lần)

b) In ra màn hình dãy số từ 1 đến 20

Câu 2 :

a) Vòng lặp chạy 3 vòng , A=12

Program hotrotinhoc;

var n,A: integer;

begin

n:=2; A:=0;

while A<9 do

begin

n:=n+1;

A:=A+n;

end;

write('A=',A);

readln

end.

b) Bạn xem lại đề nha

Câu 3 : ( ) = lỗi sai

a) X:=10; while X(:)=10 do X:=X+5;

b) X:=10; while X=10 do X(thiếu dấu :)=X+5;

c) S:=0; n:=0; while S<=10 do (thiếu begin) n:=n+1; S:=S+n; (thiếu end;)

Câu 4 :

a) var X: Array[10,13] Of Integer; (S)

b) var X: Array[5..10.5] Of Real; (S)

c) var X: Array[3.4..4.8] Of Integer; (S)

d) var X: Array[10..1] Of Integer; (S)

e) var X: Array[4..10] Of Real; (Đ)

Câu 5 :

program hotrotinhoc ;

var a : array[1..32000] of real ;

i,n : integer ;

begin

write('Nhap do dai cua day :'); readln(n);

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:= 1 to n do

while (1>=a[i]) or (a[i]>=100) do

begin

write('Nhap lai a[',i,']='); readln(a[i]);

end;

readln

end.

Bài 6 : Bạn tham khảo ở mục câu hỏi tương tự

Bài 7 :

Program hotrotinhoc;

var a: array[1..32000] of integer ;

i,n,min,max,tong : integer ;

begin

write('Nhap do dai cua day :'); readln(n);

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1]; min:=a[1];

for i:= 2 to n do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i];

end;

write('so lon nhat la :',max);

write('So be nhat la:',min);

tong:=0;

for i:= 11 to 199 do tong:=tong+a[i];

write('Tong la :',tong);

readln

end.

Answer 2

[Minh Lệ]

Câu 8 :

Tăng dần : Câu hỏi của my tra - Tin học lớp 8 | Học trực tuyến

Giảm dần : Câu hỏi của nguyễn minh nguyệt - Tin học lớp 8 | Học trực tuyến