MẢNG MỘT CHIỀU (T2)

GIÁO VIÊN: LÝ MẠNH HÙNG
KÍNH CHÀO QUÝ THẦY, CÔ ĐẾN DỰ TIẾT HỌC HƠM NAY!!!

2. Cho khai báo sau:
Type dayso = array [1..100] of Integer;
Cho biết ý nghĩa của khai báo trên?
 Tên kiểu mảng.
 Số phần tử.
 Kiểu phần tử.
1.Nêu các cách khai báo biến kiểu mảng một chiều?

1. Kiểu mảng một chiều:
a. Khai báo.
b.Một số ví dụ:
 Cách nhập dl kiểu mảng một chiều.
For i := 1 to N do
Begin
write(‘nhap phan tu thu ’ ,i, ’:’);
Readln(A[i]);
End;
 Cách xuất dl kiểu mảng một chiều.
For i:= 1 to N do Write(A[i]:5);
 Một số ví dụ:
VD2:: Tìm phần tử lớn nhất của dãy A gồm
N số nguyên dương:
VD1: C.trình minh họa cho thủ tục nhập xuất dl:
250
≤
N

 Xác định bài toán:

Input : Dãy A gồm N số nguyên dương:
A[1], A[2],...,A[N]
 Output: Chỉ số và giá trị của phần tử lớn nhất:
 Thuật toán:
Bước 1: Nhập N và dãy A[1], A[2],..., A[N];
Bước 2: Max := A[1]; i := 2;
Bước 3: Nếu i>N thì đưa ra giá trị Max rồi kết thúc;
Bước 4: Nếu A[i] > Max thì Max:= A[i];
 Chương trình:
ngược lại i:=i+1 rồi quay lại bước 3;

Program Tim_max;
Uses Crt;
Type Dayso = array[1..250] of integer;
Var n, i, max,csmax : integer; a: Dayso;
Begin
Clrscr;
Write(‘nhap so luong phan tu cua day so: ’); Readln(n);
For i:= 1 to n do
begin
write(‘phan tu thu ’,i, ‘ = ‘); Readln(a[i]);
End;
Max:= a[1]; csmax:=1;
For i:=2 to n do
If a[i] > max then
begin
Max:= a[i]; csmax:= i;
End;

Writeln(‘gia tri cua phan tu max: ’, max);
Writeln(‘chi so cua phan tu max :’, csmax);
readln
End.