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

GIÁO VIÊN: LÝ MẠNH HÙNGKÍNH CHÀO QUÝ THẦY, CÔ ĐẾN DỰ TIẾT HỌC HƠM NAY!!!... 1.Nêu các cách khai báo biến kiểu mảng một chiều?... Kiểu mảng một chiều:a.. b.Một số ví dụ:  Cách nhập dl ki

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:

 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 );

 Khai báo trực tiếp:

Var <tên biến mảng>:array[kiểu chỉ số] of<kiểu phần tử>; Khai báo gián tiếp:

<tên kiểu mảng>=array[kiểu chỉ số]of<kiểu phần tử>;

Var <tên biến mảng>:<tên kiểu mảng>;

 KHAI BÁO

For i := 1 to N do Begin

write(‘nhap phan tu thu ’ ,i, ’:’);

Readln(A[i]);

End

For i:= 1 to N do Write(A[i]:5);

BÀI HỌC ĐẾN ĐÂY KẾT THÚC!!!

1 Có 2 cách khai báo

 Khai báo trực tiếp:

Var <tên biến mảng>:array[kiểu chỉ số] of<kiểu phần tử>;

 Khai báo gián tiếp:

<tên kiểu mảng>=array[kiểu chỉ số]of<kiểu phần tử>;

Var <tên biến mảng>:<tên kiểu mảng>;

type

2 Ý nghĩa của khai báo trên:

 Tên kiểu mảng: Dayso

 Số phần tử: 100

 Kiểu phần tử: Kiểu nguyên

Program nhap_xuatdl;

Ues crt;

Type dayso = array[1 100] of integer;

Var A: dayso;

Begin

Clrscr;

Write (‘nhap so luong phan tu cua day so: ’);

For i := 1 to n do

begin

write (‘phan tu thu ’, i , ‘ = ‘);

Readln (a[ i ]);

End;

For i := 1 to N do Write(A[ i ]:5);

Writeln (‘cac phan tu cua day la: ’);

Readln ( n );

n , i :integer;