a: Thuật toán sẽ thực hiện 5 vòng lặp

Kết thúc thì S=0

b: uses crt;

var i,s,n:integer;

begin

clrscr;

s:=20;

n:=1;

while (s>=5) do 

begin

n:=n+1;

s:=s-n;

end;

writeln(s);

readln;

end.

Thuật toán đổi giá trị theo thứ tự có giá trị không giảm:

Bước 1: Nhập giá trị của x, y.

Bước 2: Nếu x > y thì chuyển tới bước 3. Ngược lại chuyển tới bước 4.

Bước 3: Tráo đổi giá trị của x và y.

Thuật toán tráo đổi giá trị:

Bước 1: Khai báo một biến cùng kiểu dữ liệu với x,y là tg.

Bước 2: Gán giá trị tg:=a;

Bước 3: Gán giá trị a:=b;

Bước 4: Gán giá trị b:=tg;

Bước 4: Kết thúc thuật toán.

Thuật toán liệt kê:

- Bước 1: Nhập x và y

- Bước 2: Kiểm tra nếu x>y thì in ra y rồi in ra x

- Bước 3: Kiểm tra nếu x<y thì in ra x rồi in ra y

- Bước 4: Nếu x=y thì in ra x và y

- Bước 5: Kết thúc thuật toán

tham khảo

*Thuật toán :

B1: nhập 2 biến x,y
B2: Nếu x<y tráo đổi gía trị của x và y, chuyển đến bước 3 . Nếu y < x thì 2 số đã theo thứ tự có giá trị không giảm, chuyển đến bước 3
B3: In ra kết qủa x, y và kết thúc thuật toán .

Thuật toán đổi giá trị theo thứ tự có giá trị không giảm:

Bước 1: Nhập giá trị của x, y.

Bước 2: Nếu x > y thì chuyển tới bước 3. Ngược lại chuyển tới bước 4.

Bước 3: Tráo đổi giá trị của x và y.

Thuật toán tráo đổi giá trị:

Bước 1: Khai báo một biến cùng kiểu dữ liệu với x,y là tg.

Bước 2: Gán giá trị tg:=a;

Bước 3: Gán giá trị a:=b;

Bước 4: Gán giá trị b:=tg;

Bước 4: Kết thúc thuật toán.

Thuật toán đổi giá trị theo thứ tự có giá trị không giảm:

Bước 1: Nhập giá trị của x, y.

Bước 2: Nếu x > y thì chuyển tới bước 3. Ngược lại chuyển tới bước 4.

Bước 3: Tráo đổi giá trị của x và y.

Thuật toán tráo đổi giá trị:

Bước 1: Khai báo một biến cùng kiểu dữ liệu với x,y là tg.

Bước 2: Gán giá trị tg:=a;

Bước 3: Gán giá trị a:=b;

Bước 4: Gán giá trị b:=tg;

Bước 4: Kết thúc thuật toán.

uses crt;

var s,n:integer;

begin

clrscr;

s:=20;

n:=1;

while s>=5 do 

begin

n:=n+1;

s:=s-n;

end;

writeln(s);

readln;

end.

Thuật toán sẽ chạy 5 vòng lặp

Kết thúc thì S=0

Program hoan_doi;

uses crt;

var x,y,temp:Integer;

begin

x:=3;y:=7;

Writeln('Gia tri cua x truoc khi doi: ',x);

Writeln('Gia tri cua y truoc khi doi: ',y);

temp:=x;

x:=y;

y:=temp;

Writeln('Gia tri cua x sau khi hoan doi: ',x);

Writeln('Gia tri cua y sau khi hoan doi: ',y);

Readln();

end.

Mô tả: Khai báo 3 biến kiểu số nguyên

-Ta gán 3 cho biến x, gán 7 cho biến y

-Sau đó gán giá trị của biến x cho biến temp (để lưu trữ giá trị của biến x);

-Ta gán giá trị của biến y cho biến x (lúc này giá trị của biến x đã bị đổi);

-Rồi gán giá trị của biến temp cho biến y (Giá trị không bị thay đổi theo biến x bởi vì trước khi thay đổi giá trị của biến x thành giá trị của biến y ta đã gán giá trị trước đó của biến x cho biến temp)