TIN 8 - BAI TAP ON TAP TRUC TUYEN - TUAN 33

do cho phép nhập mảng a gồm các phần tử số nguyên dương cho đến khi gặp một phần tử mảng a âm thì dừng lại.. Hiển thị mảng a đó ra màn hình.[r]

Tin học 8

BÀI TẬP THỰC HÀNH - ÔN TẬP VỀ DÃY SỐ

Tuần 33

Bài Thực hành 1

Viết chương trình:

Sử dụng vòng lặp While do cho phép nhập mảng a gồm các phần tử số nguyên dương cho đến khi gặp một phần tử mảng a âm thì dừng lại

Hiển thị mảng a đó ra màn hình.

Code

Program xuat_mang;

Uses crt;

Var i, n: integer;

a: array[1 100] of integer;

Begin

Clrscr;

i:=0;

While a[i]>=0 do

begin

i:=i+1;

Write(‘a[‘,i, ‘]=’);

Readln(a[i]);

end;

n:=i;

Writeln(‘mang sau khi nhap lai:’);

for i:=1 to n-1 do write(a[i]:5);

Readln;

End

Bài Thực hành 2 Viết chương trình: Tính tổng bình phương của các số âm trong 1 dãy

số gồm n phần tử số nguyên.

Hướng dẫn:

- Duyệt qua tất cả các phần tử của dãy số.

- Nếu a[i]<0 thì cộng dồn (a[i])2 vào biến tổng

Code

Program tong_am;

Uses crt;

Var i, n, tong: integer;

a: array[1 100] of integer;

Begin

Clrscr;

Write(‘cho biet so phan tu cua mang n =’); readln(n);

for i:=1 to n do

begin

Write(‘a[’,i,’]=’);

Readln(a[i]);

end;

tong:=0;

for i:=1 to n do if a[i]<0 then tong:=tong+sqr(a[i]);

Writeln(‘tong=’,tong);

Readln;

End

Lưu ý: sqr: hàm tính bình phương trong Pascal

Bài Thực hành 3: Viết chương trình nhập vào một dãy số gồm n số nguyên bất kỳ In ra

thông báo dãy đó thuộc loại nào sau đây

- Dãy tăng Ví dụ: 1 2 3 4 5

- Dãy giảm Ví dụ: 5 4 3 2 1

- Dãy hằng Ví dụ: 1 1 1 1 1

- Dãy không quy luật: 1 3 2 8 5

HS TỰ LÀM THEO GỢI Ý

Hướng dẫn:

- Dùng vòng lặp for to do để nhập các phần tử của mảng

- Duyệt qua các phần tử của mảng và dùng câu lệnh if then để bỉết mảng

đó thuộc loại nào?

GHI CHÚ

- Nội dung bài mới : màu xanh dương

- Bài tập : màu đen