Bài giảng Tin học Lớp 8 - Chủ đề 10: Dãy số

* Dữ liệu kiểu mảng:

- Là dãy hữu hạn các phần tử có cùng kiểu dữ liệu, được sắp xếp thứ tự bằng cách gán cho

mỗi phần tử một chỉ số.

pdf7 trang | Chia sẻ: Anh Thúy | Ngày: 17/11/2023 | Lượt xem: 247 | Lượt tải: 0download
Bạn đang xem nội dung Bài giảng Tin học Lớp 8 - Chủ đề 10: Dãy số, để tải tài liệu về máy bạn hãy click vào nút TẢI VỀ
Tin học 8 (T53+54)
Chủ đề 10
DÃY SỐ
* Dữ liệu kiểu mảng:
- Là dãy hữu hạn các phần tử có cùng kiểu dữ liệu, được sắp xếp thứ tự bằng cách gán cho
mỗi phần tử một chỉ số.
A
i 1 2 3 4 5 6
8 12 5 9 317
Trong đó:
❑ Tên mảng: A
❑ Chỉ số: i
❑ Số phần tử của mảng: 6
❑ Kiểu dữ liệu của các phần tử: Kiểu số nguyên
❑ Khi tham chiếu đến phần tử thứ i, ta viết A[i]
Ví dụ: A[5]=17
1. Khai báo mảng
* Cách khai báo mảng trong Pascal:
9Tuoi 7 6 8 .
1 2 3 4 . 40
10
Var Tuoi :
Chieucao
2 3 4 5 . 20
Var chieucao: array[2..20] of Real;
Chỉ số
array [1..40] of Integer;
Chỉ số
VAR : ARRAY [Kiểu chỉ số] OF ;
1.71.5 1.65 1.75 . 1.8
1. Khai báo mảng
Var diem : array[1..40] of real;
Var A: array[1..10] of integer;
B: array[1..10] of integer; 
Ví dụ:
Var A ,B: array[1..10] of integer; 
2/ Mảng A, B gồm 10 phần tử thuộc kiểu dữ liệu số nguyên?
Hãy khai báo các mảng sau:
1/ Mảng Diem gồm 40 phần tử thuộc kiểu dữ liệu số thực?
1. Khai báo mảng
*. Hoạt động 1
HĐ1: Viết chương trình nhập 1 dãy gồm N số nguyên. In ra dãy số vừa nhập
var i,n:integer;
a:array[1..1000]of integer;
begin
readln(n);
i:=1;
while i<=n do
begin
write('nhap phan tu thu',i,'=');
readln(a[i]);
i:=i+1;
end;
i:=1;
while i<=n do
begin
write(a[i]:5);
i:=i+1
end;
readln;
end.
*. Hoạt động 2
HĐ2: Viết chương trình nhập 1 dãy số gồm N số nguyên. Cho biết số nhỏ nhất trong dãy.
var i,n,min:integer;
a:array[1..1000]of integer;
begin
readln(n);
i:=1;
while i<=n do
begin
write('nhap pt thu',i,'=');
readln(a[i]);
i:=i+1;
end;
min:=a[1];
i:=1;
while i<=n do
begin
if min>a[i] then min:=a[i];
i:=i+1;
end;
write(min);
readln;
end.
3. Hoạt động 2
HĐ1: Viết chương trình nhập 1 dãy có tối đa 1000 số nguyên. Cho biết số nhỏ nhất trong
dãy.
Var i,tong:longint;
BEGIN
i:=0;
Tong:=0;
While i<=1000 do
Begin
i:=i+1;
tong:=tong+i;
End;
Write(‘Tong tu 1 den 1000 la:’,tong);
Readln;
END.

File đính kèm:

  • pdfbai_giang_tin_hoc_lop_8_chu_de_10_day_so.pdf