Thuật toán:

Câu 1: - Nhập a,b,n lần lượt là hệ số

           - Gán (n-b)/a cho x

           - In ra x

Câu 2: - Cho một biến i chạy từ 1 đến n, mỗi lần chạy cộng vào biến sum

            - In ra sum

Bài làm mẫu:

Program Typlex271;

Uses crt;

Var a,x,b,sum,i,n: longint;

Begin

//Cau 1

    Writeln('Nhap a,b,n lan luot la he so cua phuong trinh ax+b=n'); Readln(a); Read(b); Read(n);

    Writeln;

    x:=(n-b)/a

    Writeln('Nghiem cua phuong trinh tren la: ', x);

//Cau 2

    sum:=0;

    Writeln('Nhap n: '); Readln(n);

    For i:=1 to n do sum:=sum+i;

    Writeln('Tong cac so tu 1 den ',n,' la:',sum);

    Readln

End.

#Xin CTLHN, chúc bạn học tốt

Bài 1:

Bước 1: Nhập hai số thực a, b

Bước 2. Nếu a = 0

Bước 2.1. Nếu b ≠0 thì thông báo phương trình vô định, rồi kết thúc;

Bước 2.2. Nếu b = 0 thì gán x

Bước 3:  x

Bước 4. Đưa ra nghiệm x, rồi kết thúc.

Bài 2:

Bước 1: Nhập n và nhập dãy số

Bước 2: s←0; i←1;

Bước 3: s←s+a[i];

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất s

Bước 7: Kết thúc