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