Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (665.88 KB, 15 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b>Company</b>
Viết chương trình nhập
điểm kiểm tra của 50 học
sinh trong lớp.
- Nhập và lưu điểm
cho một học sinh
Write (‘Nhap diem= ‘); Readln(diem_1);
Khai báo 1 biến như sau:
Var diem_1: real;
- Nhập và lưu điểm cho 2
học sinh
Khai báo 2 biến như sau:
Var diem_1, diem_2: real;
Write (‘Diem hs 1= ‘); Readln(diem_1);
Write (‘Diem hs 2= ‘); Readln(diem_2);
<b>Dãy số và biến mảng</b>
<b>Ví dụ 2:</b>
Viết chương trình nhập
điểm kiểm tra của các học
sinh trong lớp.
- Nhập và lưu điểm
cho một học sinh
- Nhập và lưu điểm cho 2
học sinh
<b>Nhập và lưu điểm cho</b>
<b>50 học sinh thì sao?</b>
Khai báo n biến như sau:
Var diem_1, diem_2, diem_3, diem_4, .. , diem_50: real;
Write (‘Diem hs 1= ‘); Readln(diem_1);
Write (‘Diem hs 2= ‘); Readln(diem_2);
Write (‘Diem hs 3= ‘); Readln(diem_3);
Write (‘Diem hs 4= ‘); Readln(diem_4);
……
……
Write (‘Diem hs n= ‘); Readln(diem_50);
<b>Những hạn chế:</b>
Phải khai báo quá nhiều biến.
Chương trình phải viết khá dài.
Em hiểu thế nào là dữ
liệu kiểu mảng ?
Vậy em hiểu biến
mảng là gì?
Giá trị của biến mảng là một mảng, tức một dãy số
(số nguyên, hoặc số thực).
<b>Vậy:</b>
<b>Khắc phục những hạn chế: </b>
Lưu các dữ liệu liên quan bằng một biến duy nhất.
Đặt chung 1 tên và đặt cho mỗi phần tử một chỉ số.
<b>Dãy số và biến mảng</b>
A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 A10
<b>Ba</b> <b>Bb</b> <b>Bc</b> <b>Bd</b>
<b>Dãy số và biến mảng</b>
A[0], A[1], A[2], ..., A[10]
Hten[1], Hten[2], Hten[3], Hten[4], Hten[5]
B[‘a’], B[‘b’], B[‘c’], B[‘d’]
<b>Ví dụ 3:</b>
Khai báo mảng cần chỉ rõ:
+ Tên biến mảng.
+ Số lượng phần tử.
+ Kiểu dữ liệu chung của các phần tử.
<b>Trong đó:</b>
+ Khi tham chiếu đến phần tử thứ i. Ta viết A[i]
+ Tên mảng :
+ Số phần tử của mảng:
+ Kiểu dữ liệu của các phần tử:
A
7
Kiểu nguyên
A[6] = 22
Var <i><tên biến mảng</i>>: array[<<i>chỉ số đầu</i>>..<<i>chỉ số cuối</i>>]
of <<i>kiểu dữ liệu</i>>;
Var <i><tên biến mảng</i>>: array[<<i>chỉ số đầu</i>>..<<i>chỉ số cuối</i>>]
of <<i>kiểu dữ liệu</i>>;
Cấu trúc, cú pháp khai
báo mảng:
<b>Trong đó: </b>
<sub>Array, of</sub><sub> là từ khóa của chương trình.</sub>
<sub>Tên biến mảng do người dùng đặt.</sub>
Chiều cao và tuổi thuộc
những kiểu dữ liệu nào?
Var Chieucao: array[1..50]of real;
Var Tuoi: array[1..50]of integer;
Var diem: array[1..50] of real;
……
For i:=1 to 50 do
Begin
write(‘diem hs’,i,’:’);
readln(diem[i]);
End;
Chương trình nhập điểm
kiểm tra của các học sinh
trong lớp.
<b>Program vidu;</b>
<b>Var diemtin: array [1..10] of </b>
<b>real;</b>
<b>i:integer;</b>
<b>Begin</b>
<b> Diemtin[1]:=5;</b>
<b> Diemtin[10]:=5;</b>
<b> for i:=2 to 9 do</b>
<b> write('diemtin =');</b>
<b>readln(diemtin[i]);</b>
<b> end;</b>
<b>For i:=1 to 10 do</b>
<b> writeln(diemtin[i]:6:2);</b>
<b>Readln</b>
<b>End. </b>
<b>Ví dụ 4:</b>
<b>Em hãy khai báo mảng </b><i><b>diemtin gồm</b></i>
<i><b>10 phần tử.</b></i><b> Nhập dữ</b> <b>liệu cho diemtin </b>
<b>biết </b><i><b>phần tử đầu tiên</b></i><b> và </b><i><b>cuối cùng</b></i>
<i><b>luôn mang giá trị bằng 5</b></i><b>. Các phần </b>
<b>tử cịn lại có giá trị bất kì được nhập </b>
<b>từ bàn phím.</b>
<b>Sử dụng lệnh gán để gán giá trị 5 </b>
<b>cho phần tử đầu và cuối.</b>
<b>Sử dụng lệnh lặp for..to..do để </b>
<b>nhập dữ liệu cho các phần tử còn </b>
<b>lại (2=>9).</b>
<b>Tìm giá trị lớn nhất </b>
<b>và nhỏ nhất của </b>
<b>dãy số</b>
Em hãy nêu thuật tốn
để tìm số nhỏ nhất và
số lớn nhất trong dãy
số?
thúc
<b>HƯỚNG DẪN VỀ NHÀ</b>