Question

cho file nhap.txt gồm hai dòng :

dòng 1: ghi số n (số chẵn)

dòng 2: ghi n số nguyên

em hãy tạo mảng A là n phần tử số nguyên lấy từ file nhap.txt, tạo mảng B bằng cách cộng hai phần tử liền kề của mảng A, mảng C tạo ra bằng cách loại đi những phần không phải là số chính phương của mảng B.

kết quả ghi ra file xuat.txt như sau:

dòng 1: ghi các phần tử mảng A

dòng 2: ghi các phần tử mảng B

dòng 3: ghi các phần tử mảng C

Answer 1

uses crt;
const finp='nhap.txt';
fout='xuat.txt';
type mang=array[1..10000] of longint;
var f:text;
n:longint;
a:mang;

{-----------------------------------------------------}
procedure doc;
var i:longint;
begin
assign(f,finp);
reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
end;

{-----------------------------------------------------------------}
procedure ghi;
begin
assign(f,fout);
rewrite(f);
end;

{--------------------------------------------------------------}
function scp(x:longint):boolean;
begin
if sqr(round(sqrt(x)))=x then scp:=true
else scp:=false;
end;

{-------------------------------------------------------------}
procedure xuly;
var i,k:longint;
b:mang;
begin
for i:=1 to n do write(f,a[i],' ');
writeln(f);
k:=0;
for i:=1 to n do
if i mod 2<>0 then
begin
inc(k);
b[k]:=a[i]+a[i+1];
end;
for i:=1 to k do write(f,b[i],' ');
writeln(f);
for i:=1 to k do
if (b[i]>0) and (scp(b[i])) then write(f,b[i],' ');
end;

{--------------------------------------------------------}
begin
doc;
ghi;
xuly;
close(f);
end.