UC知道Pascal编程的问题，高手进！！！
来源：百度知道 编辑：UC知道 时间：2024/05/11 04:25:45
我现在编了一个程序，是对比两组电话号码的
在a文件有一些电话号码
在b文件也有一些电话号码，但是没有a文件电话号码全
现在要把b文件没有而a文件又有的电话号码剔出来
输出到一个txt文件里去
下面是我编的程序
Program Juangshin;
var
i,k,j,g:integer;
a,b:char;
s:array[1..10000] of char;
input1,input2,output:text;
str1,str2:string[20];
begin
assign(output,'dat.txt');
g:=0;
write('请输入作为被比较组的TXT文件(务必使用英文，在20个字节之内，并带后缀名):');
readln(str1);
write('请输入作为比较组的TXT文件(务必使用英文，在20个字节之内，并带后缀名):');
readln(str2);
write('请输入作为比较组的TXT文件的号码总数：');
readln(k);
assign(input1,str1);
assign(input2,str2);
reset(input2);
while not eof(input2) do
begin
while not eoln(input2) do
begin
for i:=1 to k do
read(input2,s[i]);
end;
readln(input1);
end;
reset(input1);
while not eof(input1
在a文件有一些电话号码
在b文件也有一些电话号码，但是没有a文件电话号码全
现在要把b文件没有而a文件又有的电话号码剔出来
输出到一个txt文件里去
下面是我编的程序
Program Juangshin;
var
i,k,j,g:integer;
a,b:char;
s:array[1..10000] of char;
input1,input2,output:text;
str1,str2:string[20];
begin
assign(output,'dat.txt');
g:=0;
write('请输入作为被比较组的TXT文件(务必使用英文，在20个字节之内，并带后缀名):');
readln(str1);
write('请输入作为比较组的TXT文件(务必使用英文，在20个字节之内，并带后缀名):');
readln(str2);
write('请输入作为比较组的TXT文件的号码总数：');
readln(k);
assign(input1,str1);
assign(input2,str2);
reset(input2);
while not eof(input2) do
begin
while not eoln(input2) do
begin
for i:=1 to k do
read(input2,s[i]);
end;
readln(input1);
end;
reset(input1);
while not eof(input1
program temvp;
var
e:array[1..10000]of integer;
a,z,i,j,k,m:integer;
function zhi(i:integer):boolean;
var
t:integer;
begin
for t:=2 to i-1 do if i mod t=0 then exit(false);
exit(true);
end;
begin
readln(a);m:=a;k:=1;
if zhi(a)then begin write(a,'=',a);halt;end
else repeat
for i:=2 to a-1 do if a mod i=0 then begin e[k]:=i;k:=k+1;a:=a div i;end;
until zhi(a)=true;
e[k]:=a;
for i:=1 to k-1 do
for j:=i+1 to k do if e[i]>e[j]then begin z:=e[i];e[i]:=e[j];e[j]:=z;end;
write(m,'=');
for i:=1 to k-1 do write(e[i],'*');write(e[k]);
end.