11 thuật toán cơ bản

Một số thuật toán cơ bản

{ Bài 1 Thuật toán tráo cốc }

Uses Crt;
Var A,B,C : Integer;
Begin
Clrscr;
Write(`Nhap so A : `);
Readln(A);
Write(`Nhap so B : `);
Readln(B);
C := A;
A := B;
B := C;
Writeln(`A = `,A:5,#13#10`B = `,B:5);
Readln;
End.

{ Bài 2 Tìm phần tử nhỏ nhất trong dãy }

Uses Crt;
Const Max = 10;
Var j : Integer;
A : Array[1 .. Max] of Integer;
Begin
Clrscr;
For j:=1 to Max do
Begin
Write(`A[`,j:2,`] = `);
Readln(A[j]);
End;
j := 2;
Repeat
If A[j] < A[1] then A[1] := A[j];
Inc(j);
Until j>Max;
Writeln(`So nho nhat la `,A[1]);
Readln;
End.

{ Bài 3 Duyệt dãy theo thứ tự , tìm phần tử X }

Uses Crt;
Const Max = 10;
Var i,X : Integer;
A : Array[1..Max] of Integer;
Procedure Baoco;
Begin
Writeln(X,` co trong day `);
Readln;
Halt;
End;
Procedure Khongco;
Begin
Writeln(X,` khong co trong day `);
Readln;
End;
Begin
Clrscr;
Write(`Nhap X = `); Readln(X);
Writeln(`Nhap day A `);
For i:=1 to Max do
Begin
Write(`A[`,i:2,`] = `);
Readln(A[i]);
End;
i := 1;
While i<= Max do
Begin
If A[i] = X then Baoco { Trong Baoco co lenh Halt }
Else Inc(i);
End;
If i>max then Khongco;
End.
{ Bài 4 Sắp xếp dãy bằng phương pháp Nổi bọt - Phương pháp sắp xếp kém nhất }

Uses Crt;
Const Max = 10;
Var N : Integer;
A : Array[1..Max] of Integer;
Procedure Nhap;
Var i : Integer;
Begin
Write(`Nhap N = `);
Readln(N);
For i:=1 to N do
Begin
Write(`A[`,i:2,`] = `);
Readln(A[i]);
End;
End;
Procedure Hien;
Var i : Integer;
Begin
For i:=1 to N do
Write(A[i]:5);
Writeln;
End;
Procedure Traococ( Var x,y : Integer);
Var c : Integer;
Begin
c := x;
x := y;
y := c;
End;

Procedure KieuFor;
Var i,j : Integer;
Begin
For i:=1 to N-1 do
For j:=i+1 to N do
If A[i] > A[j] then Traococ(A[i],A[j]);
Hien;
End;
BEGIN
Clrscr;
Nhap;
KieuFor;
Readln;
END.

{ Bài 5 Phương pháp Lùa bò vào chuồng ! }

Uses Crt;
Const Max = 32000;
M = 10;
Var x,N : Integer;
A : Array[1..M] of Integer;
B : Array[1..Max] of Boolean;
Procedure Nhap;
Var i : Integer;
Ok : Boolean;
Begin
Write(`Nhap N = `);
Repeat
{$I-} Readln(N); {$I+}
Until (IoResult=0) and (N<=10) and (N>0);
Writeln(`Nhap mang `,N,` so nguyen duong : `);
For i:=1 to N do
Begin
Write(`A