Đang tải... (xem toàn văn)
Có 44 Có chữ chữ cái: Là từ khóa lệnh trong trong chương trình trình Pascal Pascal 3cái: chữ cái: Là từ đểchương khai biến Có Có 6 chữ cái: ChỉLà sốcâu đầu, chỉkhóa số cuối trongbáo khai[r]
KiĨm tra bµi cị Dữ liệu mảng biến mng gi l gỡ ? - Dữ liệu kiểu mảng: tập hợp phần tử có thứ tự, phần tử có kiểu liƯu - Biến mảng: khai báo biến có kiểu liệu kiểu mảng, biến gọi biến mảng Bài 9: Ví dụ biến mảng a.Cách khai báo mảng Pascal: Var Tên mảng : array [ ] of ; Tuoi Chỉ số … … 10 40 Var Tuoi : array[1 40] of Integer; Chieuca Chỉosố 1.5 1.65 1.75 1.7 … … Var chieucao: array[2 20] of Real; 1.8 20 Bài 9: Ví dụ biến mảng a Khai báo mảng chiều Pascal: Var Tên mảng : array[ ] of ; Trong đó: - Tên mảng: Do người lập trình đặt - array, of: Là từ khóa chương trình - Chỉ số đầu, số cuối: Là số nguyên, thỏa mãn: số đầu ≤ số cuối hai số dấu - Kiểu liệu: Là kiểu phần tử, Integer Real - Số phần tử = số cuối – số đầu + Bài 9: Ví dụ biến mảng a) Cách khai báo mảng Pascal: Ví dụ: Cách khai báo đơn giản biến mảng ngôn ngữ Pascal sau: var Tuoi: array[21 80] of integer; Tên biến Số lượng phần tử Kiểu liệu chung var Chieucao: array[1 50] of real; Chỉ số đầu Chỉ số cuối Bài 9: Ví dụ biến mảng a) Cách khai báo mảng Pascal: Var VarTênmảng: Tênmảng:array array[]of of; Ví dụ: Hãy khai báo mảng sau: 1/ Mảng Diem gồm 40 phần tử thuộc kiểu liệu số thực? Var Vardiem diem: :array[1 40] array[1 40]ofofreal; real; 2/ Mảng A, B gồm 10 phần tử thuộc kiểu liệu số nguyên? Var VarA: A:array[1 10] array[1 10]ofofinteger; integer; Var AA,B: array[1 10] ofofinteger; Var ,B: array[1 10] integer; B: array[1 10] of integer; B: array[1 10] of integer; Bài 9: Ví dụ biến mảng a) Cách khai báo mảng Pascal: Câu lệnh khai báo biến mảng sau máy tính có thực khơng? Var N : integer; A : array[1 N] of real; Khơng xác định KHƠNG Lưu ý: - Kích thước mảng phải khai báo số cụ thể Bài 9: Lưu ý: Kích thước mảng phải khai báo số cụ thể Bài 9: Ví dụ biến mảng a) Cách khai báo mảng Pascal: Tênmảng: Tênmảng:array array[]of of; b) Truy cập đến giá trị phần tử mảng: Cú pháp: Tên Tênmảng mảng[Chỉ [Chỉsố] số] VD: DiemTin[1] Tham chiếu tới phần tử thứ mảng DiemTin Bài 9: Ví dụ biến mảng b) Truy cập đến giá trị phần tử mảng: Tên Cú pháp: Tênmảng mảng[Chỉ [Chỉsố] số] Ví dụ1: Cho mảng A chứa giá trị sau: 10 - Xác định giá trị của: A[1], A[3], A[5], A[10] ? A[1], A[10]: không xác định A[3]=2; A[5]=4 Bài 9: Ví dụ biến mảng Có thể thực b) Truy cập đến giá trị phần tử mảng: Cú pháp: Tên Tênmảng mảng[Chỉ [Chỉsố] số] thao tác với phần tử mảng? Ví dụ 2: Cho câu lệnh sau: A[3]:=2; A[4]:=5; A[6]:=A[3]+A[4]; A[3]=2 A[4]=5 A[6]=7 Giá trị phần A[3], A[4], A[6] bao nhiêu? - Có thể gán giá trị, đọc giá trị thực tính tốn với phần tử mảng Bài 9: Ví dụ biến mảng b) Truy cập đến giá trị phần tử mảng: Ví dụ: Gán giá trị cho 40 phần tử mảng DiemTin DiemTin[1]:=5; DiemTin[2]:=7; ……… DiemTin[40]:=10; Hoặc Readln(DiemTin[1]); Viết chương trình dài For i:=1 to 40 Readln(DiemTin[i]); Readln(DiemTin[2]); ……… Readln(DiemTin([40]); For i := … to … Readln(Tenmang[i]); Bài 9: Ví dụ biến mảng c Nhập giá trị cho mảng A 10 với nn= - Sử dụng lệnh Read (Readln) kết hợp với For Các bước Nhập số phần tử mảng Thể pascal Write(‘ Nhap vao so HS:’); Readln(n); Nhập vào giá trị For i:=1 to n phần tử Begin mảng (A[i]) write(‘Diem cho HS thu ’ ,i, ’ : ’); Sử dụng cấu trúc readln(A[i]); lặp để nhập liệu end; Bài 9: Ví dụ biến mảng d In giá trị phần tử mảng: Ví dụ: In giá trị 40 phần tử mảng DiemTin For i:=1 to 40 Writeln(DiemTin[i]); DiemTin 8 6 … … … … Chỉ số … DiemTin[1] = i DiemTin[4] = For i:= … to … Writeln(Tenmang[i]); … 40 Bài 9: Ví dụ biến mảng d In giá trị phần tử mảng: Sử dụng lệnh Write (Writeln) kết hợp với For - Thông báo Writeln(‘ Điểm lớp : ’); - In giá trị phần tử For i:=1 to n Write(A[i]:7); - Sử dụng cấu trúc lặp để in liệu Kết hình: Điểm lớp: 10 Bài 9: Tìm giá trị lớn giá trị nhỏ dãy số: Bài toán: Viết chương trình nhập N số ngun từ bàn phím in hình số nhỏ số lớn THUẬT TỐN Em nêu • B1:thuật max:=a; tốn min:=a; để tìm i:=1; • B2: số i:=nhỏ i+1;nhất lớni • B3:số Nếu > n, chuyển đến bước 5.dãy số? • B4: Nếu > max max:=ai; < :=ai.Quay lai bước • B5: Kết thúc thuật toán Program vd1; Uses crt; Var i, n, Max, Min: integer ; A: Array[1 100] of Integer ; Khai báo biến mảng BEGIN Clrscr; write(‘ Nhap so phan tu cua day so: n= ’) ; readln(n) ; For i := to n Begin write(‘ Nhap so thu ‘,i,’ : ‘) ; readln(A[i]) ; End; Max:=A[1]; For i := to n If A[i]>Max Then Max := A[i]; Writeln(‘ So lon nhat la max = ', Max) ; Min:=A[1]; For i := to n If A[i]