1. Trang chủ
  2. » Địa lí lớp 10

Bài giảng Tin học 8 - 9

16 11 0

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

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 16
Dung lượng 381 KB

Nội dung

Nhập dữ liệu cho a, biết rằng phần tử đầu tiên và cuối cùng luôn mang giá trị bằng 5. Các phần tử còn lại có giá trị bất kì được nhập từ bàn phím.[r]

(1)

Bài 9: LÀM VIỆC VỚI DÃY SỐ

(2)

XÉT VÍ DỤ SAU - Nhập lưu điểm cho

một học sinh Write (‘Nhap diem= ‘);Readln(diem_1); - Nhập lưu điểm cho

2 học sinh Write (‘Diem hs 1= ‘);Readln(diem_1); Write (‘Diem hs 2= ‘); Readln(diem_2);

Khai báo biến sau:

Var diem_1: real;

Khai báo biến sau:

Var diem_1, diem_2: real;

- Nhập lưu điểm cho

(3)

Bảng ví dụ dãy số

Tên

biến Diem_1 Diem_2 Diem_3 Diem_n

Giá Trị 8 9 2 5

(4)

2 Ví dụ khai báo biến mảng

Var chieucao: array[1 50] of real;

Mảng tên

chieucao gồm 50 phần tử với mỗi phần tử thuộc kiểu liệu số thực.

Var cannang: array[1 20] of real; Mảng tên cannang gồm

20 phần tử thuộc kiểu liệu số thực.

Mảng oto gồm 100 phần tử thuộc kiểu liệu số nguyên.

Var oto: array[1 100] of integer;

Tên mảng Từ khóa Chỉ số đầu

(5)

a Khai báo biến mảng pascal

Var <tên mảng> : array [<chỉ số đầu> <chỉ số

cuối>] of <kiểu liệu>;

- Array, of: từ khóa chương trình.

- Tên mảng: người dùng tự đặt.

- Chỉ số đầu số cuối phải số nguyên

thoả mãn (chỉ số đầu <= số cuối)

- Kiểu liệu kiểu số (integer, real, byte,

(6)

b Ví dụ khai báo biến mảng

- Em khai báo mảng diemtin gồm 40 phần tử thuộc kiểu liệu số thực.

- Em khai báo mảng mubaohiem gồm 200 phần tử, thuộc kiểu liệu số nguyên

Var diemtin: array[1 40] of real;

(7)

c Đưa liệu vào mảng

Ta đưa liệu từ ngồi (bàn phím) vào mảng lệnh Read Readln sau:

(8)

Ví dụ: Cho mảng 10 phần tử nhập vào mảng số nguyên từ bàn phím

Var

a: array [1 10] of integer; i: integer;

Begin

For i:=1 to 10 do Begin

(9)

d Đưa liệu từ mảng hình Ta đưa liệu từ mảng hình lệnh Write Writeln sau:

(10)

Var

a: array [1 10] of integer; i: integer;

Begin

For i:=1 to 10 do Begin

write (‘nhap phan tu thu’,i,’=‘); readln(a[i]);

End;

writeln (‘cac so vua nhap la:’);

For i:=1 to 10 do

write(a[i]:5); Readln;

End.

Ví dụ: Cho mảng 10 phần tử nhập vào mảng số nguyên từ bàn phím, sau cho hình

Câu lệnh nhập liệu

vào mảng

Câu lệnh đưa liệu

(11)

e Lấy liệu từ mảng để xử lí:

Ví dụ: Viết chương trình nhập 10 số nguyên từ bàn phím sau tính tổng số đó.

Var

a: array [1 10] of integer; i,s: integer;

Begin

For i:=1 to 10 do Begin

write (‘nhap phan tu thu’,i,’=‘); readln(a[i]);

End;

For i:=1 to 10 s:= s +a[i]; writeln(‘Tong cac so la:’,s);

Readln;

End.

Câu lệnh nhập liệu

vào mảng

Câu lệnh tính tổng các số

(12)

- Xét ví dụ: Khai báo mảng a gồm 10 phần tử

Nhập dữ liệu cho a, biết rằng phần tử đầu tiên cuối mang giá trị Các phần tử cịn lại có giá trị nhập từ bàn phím Sau in 10 phần tử đó, phần tử nằm dịng

Y/c: Viết chương trình khai báo biến nhập dữ liệu theo yêu cầu.

(13)

Program vidu; Var

a: array [1 10] of real; i: integer;

Begin

a[1]:=5; a[10]:=5; for i:=2 to do

begin

write(‘nhap a[‘,i,’]=‘); readln(a[i]);

end;

for i:=1 to 10 writeln(a[i]); Readln;

End.

Khai báo biến

Sử dụng lệnh gán, để gán giá trị 5 cho phần tử đầu cuối.

Sử dụng lệnh lặp for to để nhập dữ liệu cho phần tử

còn lại (2  9).

(14)(15)

Bài 1: Viết chương trình nhập 10 số nguyên in số nguyên dương hình

Var

a: array [1 10] of integer; i: integer;

Begin

For i:=1 to 10 do Begin

write (‘nhap phan tu thu’,i,’=‘); readln(a[i]);

End;

For i:=1 to 10

if a[i] > then writeln(a[i]); Readln;

(16)

Bài 2: Viết chương trình nhập 10 số nguyên in số chẵn hình

Var

a: array [1 10] of integer; i: integer;

Begin

For i:=1 to 10 do Begin

write (‘nhap phan tu thu’,i,’=‘); readln(a[i]);

End;

For i:=1 to 10

if a[i] mod = then writeln(a[i]); Readln;

Ngày đăng: 04/02/2021, 19:19

w