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.

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 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

*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 .

C

B

B.

Hoán đổi giá trị hai biến x và y

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)

Lời giải :

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 

1: Hoán đổi giá trị hai biến x và y

Chúng ta sẽ gán biến trung gian tam cho x, xong rồi gán biến trung gian tam đó cho y; rồi sau đó gán y ngược lại cho x, và xuất kết quả ra-đó chính là x và y sau khi hoán đổi cho nhau.

2: Tìm giá trị lớn nhất của dãy A

Chúng ta sẽ gán biến ln cho a[1], sau đó sẽ quét qua các phần tử trong mảng xem thử có phần tử nào lớn hơn ln thì gán ln cho phần tử đó. Sau cùng xuất ln ra, ta được số lớn nhất cần tìm.