Tin học Lập trình pascal

[ĐứcNhật!]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

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

 

[Hải Ham Học]

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

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<=n-k+1) 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.
---xong nhé---tên file tùy chọn--