hãy sắp xếp các số có trong dãy số và chữ cái từ bé đến lớn trong pascal

0 bình luận về “hãy sắp xếp các số có trong dãy số và chữ cái từ bé đến lớn trong pascal”

1. Sắp xếp dãy số:

   uses crt;
   var a:array[1..1000000]of longint; n,i,t,j:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            for j:=1 to i-1 do
               if a[i]<a[j] then begin t:=A[I]; a[i]:=a[j]; a[j]:=t; end;
         end;
      for i:=1 to n do write(a[i],’ ‘);
   readln
   end.

   Sắp xếp chữ cái:

   uses crt;
   var a:string; i,j:longint; t:char;
   begin
   clrscr;
      write(‘s=’);readln(a);
      for i:=1 to length(a) do
            for j:=1 to i-1 do if a[i]<a[j] then begin t:=A[I]; a[i]:=a[j]; a[j]:=t; end;
      writeln(a);
   readln
   end.

   Bình luận

2. Dãy ký tự

   Program Sosanhkitu;

   Uses sysutils, uses;

   Var

   KT, N, i, j  : Longint;  

   b : string;

   a:array[1..10000] of string;

   begin

   Write(‘Nhap so chuoi N: ‘); Readln(N);

   i:=1;

   While i <= N do

   begin

   Write(‘Nhap chuoi ‘, i); Readln(a[i]);

   i:=i+1;

   end;

   i:=1;

   j:=2;

   while i <= N do

   begin

   KT:=CompareStr(a[i], a[j]);

   if KT > 0 then begin

   b:= a[i];

   a[i]:=a[j];

   a[j]:=b; end;

   i:=i+1;

   j:=j+1;

   end;

   Writeln(‘Cac chuoi sau sap xep la:’);

   j:=1;

   while j<= N do

   Begin

   Writeln(a[i]);

   i:=i+1;

   end;

   Readln;

   end.

   Số là

   Program sosanhso;

   Uses crt;

   Var a:array[1..1000] of integer;

   i, j, N: integer;

   Begin

   Writeln(‘Nhap so N’); Readln(N);

   i:=1;

   While i <= N do;

   begin Write(‘Nhap so thu’, i ); Readln(a[i]); i:=i+1;end;

   i:=1;

   j:=2;

   While i <= N do;

   begin

    if a[i] > a[j] then begin

   b:=a[i];

   a[i]:=a[j];

   a[j]:= b;

   end;

   i:=i+1;

   j:=j+1;

   end;

   i:=1;

   While i <= N do begin

   Writeln(a[i]);

   i:=i+1;

   end;

   end.

   ____________________________________
   Chỗ so sánh chữ mình không biết nó có bị lỗi hông nha vì mình chưa test

   Bình luận