Giao an hoc ki 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.
35187
THUẬT TỐ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
tố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ố ngun 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: