Bài thực hành 7. Xử lí dãy số trong chương trình

PHÒNG GIÁO DỤC ĐÀO TẠO NGHI XUÂN
TRƯỜNG TRUNG HỌC CƠ SỞ NGUYỄN TRÃI
MÔN: TIN HỌC 8
CHÀO MỪNG THẦY CÔ VỀ DỰ GIỜ
Ôn tập lý thuyết
Câu 1: Hãy cho biết dữ liệu của mảng là gì?
Dữ liệu kiểu mảng là một tập hữu hạn các phần tử có thứ tự và mọi phần tử đều có cùng một kiểu dữ liệu.

Câu 2: Viết cú pháp khai báo mảng trong Pascal:
Var : array [..] of ;
Trong đó: + Tên biến mảng: do người dùng tự đặt.
+ Array: từ khóa
+ Chỉ số đầu, chỉ số cuối: 2 số nguyên thỏa mãn Chỉ số đầu<= chỉ số cuối.
+ Kiểu dữ liệu: số nguyên, số thực.

Câu 3: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất và số nhỏ nhất của dãy số. N cũng được nhập từ bàn phím.
* Xác định bài toán:
Input: n, dãy số nguyên A1, A2, ..., An;
Output: Số lớn nhất, số nhỏ nhất của dãy số.
* Thuật toán:
Bước 1: Max:=A1; Min:=A1; i:=1;
Bước 2: i:=i+1;
Bước 3: Nếu i>n thì chuyển đến bước 5.
Bước 4: Nếu Ai>Max thì Max:=Ai;
Nếu AiQuay lại bước 2;
Bước 5: Kết thúc thuật toán.
* Viết chương trình:
Program MaxMin;
Var i,n, Max, Min: integer;
A:array[1..100] of integer;
BEGIN
Write(‘Nhap do dai cua day so N= ’); Readln(n);
Writeln(‘Nhap cac phan tu cua day so: ’);
For i:=1 to N do
Begin
Write(‘A[‘,i,’]= ’); Readln(A[i]);
End;
Max:=A[1]; Min:=A[1];
For i:=2 to N do
begin if Max If Min>A[i] then Min:=A[i];
End;
Writeln(‘So lon nhat cua day la Max= ‘, Max);
Writeln(‘So nho nhat cua day la Min= ’, Min);
Readln
END.
Thực hành
Yêu cầu: Hiểu và viết được chương trình với thuật toán tìm giá trị lớn nhất và giá trị nhỏ nhất cả một dãy số.
BTVN:
- Viết chương trình tính tổng của dãy số (nâng cao: tổng số âm, tổng số dương).
- Xem trước nội dung bài thực hành 7 trong sgk để tiết sau làm trên máy.
Bài học kết thúc