Cho mảng A có n phần tử. Nhập số k. Viết chương trình chuyển k phần tử từ đầu dãy về cuối dãy (Dùng file) #Pascal

0 bình luận về “Cho mảng A có n phần tử. Nhập số k. Viết chương trình chuyển k phần tử từ đầu dãy về cuối dãy (Dùng file) #Pascal”

1. var f2,f1:text;
   a,b,c:array[1..10000] of integer;
   i,j,n,k:integer;
   procedure nhap;
   begin
   assign(f1,’baitap.inp’);
   reset(f1);
   read(f1,n,k);

   for i:=1 to n do read(f1,a);
   close(f1);
   end;
   procedure xuly;
   begin
   for i:=1 to k do b:=a;
   j:=1;
   for i:=k+1 to n do
   begin
   c[j]:=a;
   inc(j);
   end;
   i:=1;
   while (i<=k) do
   begin
   a:=c;
   inc(i);
   end;
   j:=n-k+1;i:=1;
   while (j<=n) do
   begin
   a[j]:=b;
   inc(i);inc(j);
   end;
   end;
   procedure xuat;
   begin
   assign(f2,’baitap.out’);
   rewrite(f2);
   for i:=1 to n do writeln(f2,a);
   close(f2);
   end;
   begin
   nhap;
   xuly;
   xuat;
   end.

   Bình luận

2. var f2,f1:text;
   a,b,c:array[1..10000] of integer;
   i,j,n,k:integer;
   procedure nhap;
   begin
   assign(f1,’baitap.inp’);
   reset(f1);
   read(f1,n,k);
   for i:=1 to n do read(f1,a);
   close(f1);
   end;
   procedure xuly;
   begin
   for i:=1 to k do b:=a;
   j:=1;
   for i:=k+1 to n do
   begin
   c[j]:=a;
   inc(j);
   end;
   i:=1;
   while (i<=k) do
   begin
   a:=c;
   inc(i);
   end;
   j:=n-k+1;i:=1;
   while (j<=n) do
   begin
   a[j]:=b;
   inc(i);inc(j);
   end;
   end;
   procedure xuat;
   begin
   assign(f2,’baitap.out’);
   rewrite(f2);
   for i:=1 to n do writeln(f2,a);
   close(f2);

   Bình luận