Giáo viên sẽ kiểm tra tập và kỹ năng thực hành đã hướng dẫn ngay sau đi học lại..[r]
Trang 1Tin học 8
Bài 9: LÀM VIỆC VỚI DÃY SỐ TRONG PASCAL
Tiết 1 - TUẦN 27
1/ Cú pháp khai báo biến mảng
Var <tên biến mảng> : array[<chỉ số đầu> <chỉ số cuối>] of <kiểu dữ liệu>;
Trong đó:
- Chỉ số đầu và chỉ số cuối là số nguyên
- Chỉ số đầu ≤ chỉ số cuối
- Kiểu dữ liệu có thể là integer hoặc real
Ví dụ:
Khai báo biến mảng a có 5 phần tử, mỗi phần tử có cùng kiểu dữ liệu là số nguyên
Var a : array[1 5] of integer;
Khai báo biến mảng b có 10 phần tử, mỗi phần tử có cùng kiểu dữ liệu là số thực
Var b : array[1 10] of real;
2/ Nhập xuất mảng trong chương trình
a/ Nhập mảng
Var a : array[1 5] of integer;
i, n : integer:
Begin
Write(‘cho biet so pt cua mang:’);readln(n);
For i:=1 to n do
begin
Write(‘a[‘,i,’]=’);
Readln(a[i]);
end;
End
b/ Xuất mảng
for i:=1 to n do Writeln(a[i]:8);
Trang 23/ Bài tập:
Bài 1: Viết chương trình:
- Nhập xuất mảng a có n phần tử kiểu số nguyên
- Với n là số phần tử của mảng được nhập từ bàn phím.
Program nhapxuat_mang;
Uses crt;
Var a: array[1 20] of integer;
i, n:integer;
Begin
Clrscr;
Write(‘ cho biet so pt cua mang:’);readln(n);
For i:=1 to n do
begin
write(‘a[‘,i,’]’);
readln(a[i]);
end;
Writeln(‘mang sau khi nhap :’);
for i:=1 to n do write(a[i]:8);
Readln;
End
Bài 2: Viết chương trình nhập xuất mảng b có các phần tử là số nguyên, dương
(dùng vòng lặp while do)
Program nhap_xuat_mangb;
Uses crt;
Var b: array[1 20] of integer;
i, n: integer;
Begin
Clrscr;
Write(‘cho biet so pt cua mang:’);readln(n);
i:=1;
Trang 3While (i<=n) do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
i:=i+1;
end;
for i:=1 to n do write(a[i]:8);
Readln;
End
Bài 3: Viết chương trình nhập mảng gồm 10 số thực Tính tổng các số âm trong mảng này
Hướng dẫn: Viết đoạn chương trình nhập mảng kết hợp câu lệnh đk if… then để tính
tổng các số âm
Tong:=0;
If a[i]<0 then Tong:= tong+a[i];
Xuất tổng ra màn hình để thấy kết quả
Dặn dò: Học sinh ghi nội dung bài học vào tập (phần 1 và 2) Thực hành bài tập
thực hành 1; bài tập thực hành 2 và làm bài tập thực hành 3 vào máy tính (ở nhà) Giáo viên sẽ kiểm tra tập và kỹ năng thực hành đã hướng dẫn ngay sau đi học lại.