Giáo án học kì 2

BƯỚC 1: GÁN A(0, I(1;
BƯỚC 2: A( 1/I(I+2);
BƯỚC 3: I(I+1.
BƯỚC 4: NẾU I <= N, QUAY LẠI BƯỚC 2.
BƯỚC 5: GHI KẾT QUẢ A VÀ KẾT THÚC THUẬT TOÁN

Bài tập 1: Nhập vào n số nguyên từ bàn phím, tìm số lớn nhất trong dãy số vừa nhập.
3 5 1 8 7
THUẬT TOÁN:
Bước 1. Nhập số n.
Bước 2. MAX( (32768, i(1.
Bước 3. Nhập số thứ i và gán giá trị đó vào biến A.
Bước 4. Nếu Max < A, Max ( A.
Bước 5. i(i + 1.
Bước 6. Nếu i ≤ n, quay lại bước 3.
Bước 7. Thông báo kết quả Max là số lớn nhất và kết thúc thuật toán.

CHƯƠNG TRÌNH:
Program tim_max;
Uses crt;
Var i, n, max, A : integer;
Begin
Clrscr;
Writeln(‘nhap vao n’); readln(n);
max:=-23768;
For i:= 1 to n do
Begin
Writeln(‘nhap vao so thu ’,i); readln(A);
If maxEnd;
Writeln(‘so lon nhat la’,max); readln;
End.
Bài tập 2: Viết chương trình Pascal nhập n số nguyên từ bàn phím và ghi ra màn hình số các số dương trong các số đó.
2 -4 5 -1 -5 7
CHƯƠNG TRÌNH: