1. Trang chủ
  2. » Cao đẳng - Đại học

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

3 21 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 3
Dung lượng 15,89 KB

Các công cụ chuyển đổi và chỉnh sửa cho tài liệu này

Nội dung

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 1

Tin 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 2

3/ 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 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à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.

Ngày đăng: 29/01/2021, 18:56

TỪ KHÓA LIÊN QUAN

🧩 Sản phẩm bạn có thể quan tâm

w