rostr1.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 29 行

var v :array[1..30] of string[50];
    u:array[1..30] of byte;
    aux,n,i:integer;
    t:string[50];
    ok:boolean;
begin
write('n=');readln(n);
for i :=1 to n do
               begin
               write('v[',i,']=');readln(v[i]);
               write('u[',i,']=');readln(u[i]);
               end;
repeat
ok:=true;
for i :=1 to n-1 do
   if v[i]>v[i+1] then
                  begin
                  t:=v[i];
                  v[i]:=v[i+1];
                  v[i+1]:=t;
                  aux:=u[i];
                  u[i]:=u[i+1];
                  u[i+1]:=aux;
                  ok:=false;
                  end;
until ok;
for i := 1 to n do
           writeln(v[i]:5,u[i]:5);
end.