Bài 5: Viết chương trình 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ố và in dãy số. Độ dài của dãy cũng được nhập từ bàn phím..[r]
(1)TUẦN 24 – TIN HỌC 8
BÀI 9: LÀM VIỆC VỚI DÃY SỐ 1 Dãy số biến mảng:
Dữ liệu kiểu mảng tập hợp hữu hạn phần tử có thứ tự, phần tử có kiểu liệu, gọi kiểu phần tử
2 Ví dụ biến mảng:
- Cách khai báo mảng Pascal sau:
<Tên mảng> : array[<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu> ; - Nhập giá trị cho phần tử mảng:
For i:= to n Begin
Write (‘phan tu thu’,i); readln(diem[i]); End;
- Gán giá trị cho phần tử: diem[1]:=8;
3 Tìm giá trị lớn giá trị nhỏ dãy số
Ví dụ Viết chương trình nhập N số ngun từ bàn phím in hình số nhỏ số lớn N nhập từ bàn phím
program MaxMin; uses crt;
Var
i, n, Max, Min: integer;
A: array[1 100] of integer; {khai báo biến mảng}
{Phần thân chương trình tương tự đây} Begin
clrscr;
write('Hay nhap dai cua day so, = '); readln(n); {nhập số lượng số dãy} writeln('Nhap cac phan tu cua day so:');
For i:=1 to n Begin
write('a[',i,']='); readln(a[i]); Nhập giá trị cho số vị trí thứ đến thứ n (a[1], a[2],…) End;
Max:=a[1]; Min:=a[1]; {gán max, số thứ dãy số vừa nhập} for i:=2 to n
begin if Max<a[i] then Max:=a[i]; kiểm tra từ số thứ đến hết dãy số có giá trị if Min>a[i] then Min:=a[i] lớn max đổi giá trị cho max (tương tự min) end;
write('So lon nhat la Max = ',Max); write('; So nho nhat la Min = ',Min); readln;
(2)BÀI TẬP
SGK trang 76
Bài 1: "Có thể xem biến mảng biến tạo từ nhiều biến có kiểu, có tên nhất" Phát biểu hay sai?
Bài 2: Hãy nêu lợi ích việc sử dụng biến mảng chương trình
Bài 3: Các khai báo biến mảng sau Pascal hay sai?
Bài 4: Câu lệnh khai báo mảng sau có máy thực khơng?