Sắp xếp, tìm kiếm

Bài 1. Viết chương trình Pascal Kiểm tra số nhập vào có phải là số hay không?

Program Kiem_tra_so;

Label tt;

Var

St:String;

So:Real;

Dung:Integer;

tiep:Char;

Begin

Repeat

Writeln('KIEM TRA SO NHAP VAO');

Writeln('    -----------');

tt:Write('-Nhap mot so: ');

Readln(St);

Val(St,So,Dung);

If Dung = 0 Then

Writeln('  +Ban da nhap mot so: ',So:8:2)

Else

Writeln('  +Khong phai so, xin nhap lai:');

Until Dung = 0;

Writeln;

Write('-Co tiep tuc khong (C/K) ');

Readln(Tiep);

If UpCase(Tiep)='C' Then

Goto tt;

End.

Bài 2. Viết chương trình tìm số đảo của một số nguyên dương .   Ví dụ:  Số = 12345 Số đảo = 54321

Program TIM_SO_DAO; USES crt;

VAR n:LONGINT;

FUNCTION daoso(n: LONGINT):LONGINT; VAR s:STRING;

ch:CHAR; i,l,code:INTEGER; kq:LONGINT;

BEGIN

       str(n,s);

       FOR i:=1 TO length(s) DIV 2  DO

    BEGIN

       ch:=s[i]; s[i]:=s[length(s)-i+1]; 

       s[length(s)-i+1]:=ch; 

    END;

       val(s,kq,code);

       daoso:=kq; 

END;

BEGIN

      Clrscr;

    Writeln(' TIM SO DAO CUA MOT SO'); 

    Writeln('--------------------------------------'); 

    Write('Nhap so can tim dao n= ');readln(n); 

    Writeln('So dao cua ',n,' la: ', daoso(n)); Readln;

END.

Bài 3. Viết chương trình nhập một N phần tử, tìm phần tử lớn nhất và phần tử nhỏ nhất.

VAR n, i,j,t,max,min: INTEGER;  S:longit;

a: ARRAY [1..50] OF INTEGER;

BEGIN
    Write('Nhap N '); Readln(n);
      FOR i:= 1 TO N DO
        BEGIN
          Write('[A',i,'] = ');Readln(A[i]);
        END;

  Write('Day so ban nhap la: ');
      FOR i:=1 TO N DO
      Write(a[i]:4);readln;
      Write('Day so sap xep lai: ');
      FOR i:=1 TO n-1 DO
      FOR j:=i+1 TO n DO
        IF a[i] > a[j] THEN
        BEGIN
        t:=a[i]; a[i]:= a[j]; a[j]:=t;
        END;
      FOR i:=1 TO N DO
      Write(a[i]:4);Readln;
      Min:=a[1]; Max:=a[1];
      S:=0;

      BEGIN
      IF min > a[i] THEN min:=a[i];
      IF max < a[i] THEN max:=a[i];
      END; 
      Write('So nho nhat la ',min);readln;
      Write('So lon nhat la ',max);readln
END.

Bài 4. Viết chương trình nhập một N phần tử, sắp xếp lại dãy giảm dần, tính giá trị trung bình của dãy số

PROGRAM Day_So_Giam_Dan;
USES Crt;
VAR s,n,i,j,t:INTEGER;
a:ARRAY[1..20] OF INTEGER;

BEGIN
Clrscr;
Writeln('SAP XEP DAY SO:');
Write('Nhap so phan tu cua day n = '); Readln(n); 

FOR i:=1 TO n DO
BEGIN
Write('a[',i,']= ');
Readln(a[i]);
END;

{Sap xep day so giam dan} 

FOR i:=1 TO n-1 DO
FOR j:=i+1 TO n DO
IF a[i]<a[j] THEN
BEGIN
t:=a[i]; a[i]:=a[j]; a[j]:= t;
END;

Writeln(' Day sau khi sap xep giam dan la:');
FOR i:=1 TO n DO
Write(a[i]:4); Readln;

{Tinh trung binh day}
s:=0;
FOR i:=1 TO n DO s:=s+a[i];
Writeln('Gia tri trung binh la: ',s/n:6:2);
Readln
END.

PROGRAM Day_So;

USES crt;

    VAR t,n,x,i,j,dem:INTEGER;

        a:ARRAY[1..20] OF INTEGER;

BEGIN   

    Clrscr;

      Writeln('SAP XEP DAY SO:');

      Write('Nhap so phan tu cua day n = '); Readln(n); 

      FOR i:=1 TO n DO

        BEGIN

          Write('a[',i,']= ');

          Readln(a[i]);

        END;

{sap xep day so} 

      FOR i:=1 TO n-1 DO

      FOR j:=i+1 TO n DO

       IF a[i]>a[j] THEN

       BEGIN

          t:=a[i];

          a[i]:=a[j];

          a[j]:=t;

       END;

         Writeln('Day sau khi sap xep la:'); 

           FOR i:=1 TO n DO

         Write(a[i]:3); Readln;

{Nhap vao mot so dem so lan xuat hien} 

      Write('Nhap vao so x='); Readln(x);

          dem:=0;

         FOR i:=1 TO n DO

         IF a[i]=x THEN dem:=dem+1;

      Write('So lan xuat hien cua ',x,' la: ',dem); Readln;

{Cac phan tu nho hon hoac bang x} 

      Writeln('Cac phan tu <= ',x,' la:'); 

         FOR i:=1 TO n DO

         IF a[i]<=x THEN

      Write(a[i]:3); Readln;

END.