Bài 9. Làm việc với dãy số

Chia sẻ bởi Hoàng Văn Thắng | Ngày 24/10/2018 | 48

Chia sẻ tài liệu: Bài 9. Làm việc với dãy số thuộc Tin học 8

Nội dung tài liệu:

Làm việc với dãy số
tiết 56: Bài 9:
Khai báo biến mảng trong Pascal
Var Tên biến : array[< chỉ số đầu>..< chỉ số cuối>] of ;
Trong đó:
- Chỉ số đầu, chỉ số cuối : là hai số nguyên hoặc biểu thức nguyên
- Chỉ số đầu ? chỉ số cuối
?
Kiểm tra bài cũ
Em hãy viết cấu trúc khai báo biến mảng trong pascal và lấy ví dụ về cho cấu trúc khai báo biến mảng?
Các thông số trong mảng
Điemtin
1 2 3 4 5 39 40
8.0
Khi gán, đọc, tính toán với các giá trị của phần tử thứ i ta viết Diemtin[i] VD: Diemtin[39] := 8.0
? Tên biến mảng : Diemtin
Số phần tử của mảng(n) : 40
n = (ch? s? cu?i) - (ch? s? d?u) + 1
? Kiểu dữ liệu của các phần tử: Kiểu thực.
Khai báo: Var diemtin : array[1..40] of real;
2. Ví dụ về biến mảng:
Diemtin
n
1. NhËp sè phÇn tö ( sè HS) cña m¶ng A
Write(‘ Nhap n= ’);
Readln(n);
2. Nhập vào giá trị của các phần tử trong mảng (diemtin[i] )
For i:=1 to n do
Begin
write(‘diem cua hs thu ’ ,i, ’ : ’);
readln(diemtin[i]);
end;
Các bước
Thể hiện bằng pascal
Đọc vào biến mảng
víi n = 37
5.5
…..
9.5
6.0
4.5
9.0
7.0
Ví dụ: Nhập điểm thi tin học của học sinh trong lớp
2. Ví dụ về biến mảng:
Writeln(‘ Diem tin hoc cua lop : ’);
For i:=1 to n do
Write(diemtin[i]:4:1);
Diem tin hoc cua lop :

1. Th«ng b¸o
2. In gi¸ trÞ cña c¸c phÇn tö
7.0 9.0 4.5 6.0 9.5 8.0 5.5
Kết quả in ra màn hình:
Ví dụ: In mảng vừa nhập
In các phần tử trong biến mảng
Các bước
Thể hiện bằng pascal
2. Ví dụ về biến mảng:
3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số
Bài toán: Viết chương trình nhập điểm thi học kì môn Tin học của một lớp gồm N học sinh. In ra màn hinh điểm thi cao nhất và thấp nhất.
Input:
Output:
Hãy nêu ý tưởng tìm số lớn nhất và nhỏ nhất của dãy số
Dãy số A gồm điểm của N học sinh
Max, Min của dãy số
* ý tưởng tìm max:
- Đặt giá trị Max = a1.
- Lần lượt cho i chạy từ 2 đến N, so sánh
giá trị ai với giá trị Max, nếu ai > Max thì
Max nhận giá trị mới là ai.
* Đoạn chương trình
Max:=A[1];
For i:=2 to N do IF (A[i] > Max) Then Max:=A[i];
Số này lớn nhất
Số này mới lớn nhất
ồ! Số này lớn hơn
Tìm ra số lớn nhất rồi!
thuật toán tìm max
4.5
6.0
7.0
8.0
9.5
Program vd1;
Uses crt;
Var
A: Array[1..100] of real;
i,n: integer;
Max,min: real;

BEGIN
Clrscr;
write(` Nhap vao so học sinh : `) ;
readln(n) ;
For i := 1 to n do
Begin
write(` Nhap diem Hs thu `,i,` : `) ;
readln(A[i]) ;
End;
Max:=A[1];
For i := 2 to n do
If A[i]>Max Then Max := A[i];
Writeln(` Diem lon nhat la `, Max:5:1) ;
Min:=A[1];
For i := 2 to n do
If A[i] Writeln(` Diem nho nhat la `, Min:5:1) ;
Readln ;
END.
Khai b¸o biÕn m¶ng
Nhập dữ liệu vào biến mảng
Tìm số lớn nhất và số nhỏ nhất










Nhap vao so hoc sinh :
7
Nhap diem hs thu 1 :
7.0
Nhap diem hs thu 2 :
9.0
Nhap diem hs thu 3 :
4.5
Nhap diem hs thu 4 :
6.0
Nhap diem hs thu 5 :
9.5
Nhap diem hs thu 6 :
8.0
Nhap diem hs thu 7 :
5.5
Diem lon nhat la 9.5
Diem nho nhat la 4.5
Chương trình chạy và cho kết quả như sau:
Tin học 8
Ghi nhớ!
Dữ liệu kiểu mảng là một tập hợp hữu hạn các phần tử được xắp xếp theo dãy và mọi phần tử đều có cùng một kiểu dữ liệu.
Việc gán giá trị, đọc giá trị và tính toán với các giá trị của một phần tử trong biến mảng được thực hiện thông qua chỉ số tương ứng của phần tử đó.
Sử dụng các biến kiểu mảng và câu lệnh lặp giúp cho việc viết chương trình được ngắn gọn và dễ dàng hơn.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...

Người chia sẻ: Hoàng Văn Thắng
Dung lượng: | Lượt tài: 2
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)