Tin học 8 - Bài 9 - Làm việc với dãy số (Tiết 1) - Tuần 27

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

<b>Tin học 8</b>

<b>Bài 9: LÀM VIỆC VỚI DÃY SỐ TRONG PASCAL</b>

<b>Tiết 1 - TUẦN 27</b>

<b>1/ Cú pháp khai báo biến mảng</b>

<b>Var <tên biến mảng> : array[<chỉ số đầu> . . <chỉ số cuối>] of <kiểu dữ liệu>;</b>

<i>Trong đó: </i>

- Chỉ số đầu và chỉ số cuối là số nguyên.
- Chỉ số đầu ≤ chỉ số cuối

<b>- Kiểu dữ liệu có thể là integer hoặc real</b>

<i>Ví dụ: </i>

 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;

<b>2/ Nhập xuất mảng trong chương trình</b>
<b> a/ Nhập mảng</b>

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> b/ Xuất mảng</b>

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

<b>3/ Bài tập:</b>

<b> Bài 1: Viết chương trình:</b>

<b> - Nhập xuất mảng a có n phần tử kiểu số nguyên </b>

<b> - Với n là số phần tử của mảng được nhập từ bàn phím.</b>

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> 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 </b>

<b> (dùng vòng lặp while..do)</b>

Program nhap_xuat_mangb;
Uses crt;

Var b: array[1..20] of integer;
i, n: integer;

Begin
Clrscr;

</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>

While (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>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</b>
<b>này</b>

<i> 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 </i>
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ả.

<b> 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 </b>

</div>

<!--links-->