UC知道怎样用文件算法算加减乘除法?
来源：百度知道 编辑：UC知道 时间：2024/05/15 10:06:32
是pascal语言,有的多多帮忙!!!!写出过程!!!
第一位的回答者，不好意思，是用数组算法，将文件读进书组数组，然后用数组算出，有点麻烦啊！！我给一段读进数组代码，你只要写加减乘除过程，最主要的是成乘除法啊！！其他2个不那么重要．
var a,b,c:array[1..201] of integer;
fuhao:char;
bcd,acd,jcd:integer;
procedure duru();
var fin:text;
ch:char;
begin
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
fillchar(c,sizeof(c),0);
assign(fin,'duru.txt');
reset(fin);
read(fin,ch); acd:=0;
while (ch>='0') and (ch<='9') do
begin
inc(acd);
a[acd]:=ord(ch)-ord('0');
read(fin,ch);
end;
fuhao:=ch;
read(fin,ch); bcd:=0;
while (ch>='0') and (ch<='9') do
begin
inc(bcd);
b[bcd]:=ord(ch)-ord('0');
read(fin,ch);
end;
close(fin);
end;
第一位的回答者，不好意思，是用数组算法，将文件读进书组数组，然后用数组算出，有点麻烦啊！！我给一段读进数组代码，你只要写加减乘除过程，最主要的是成乘除法啊！！其他2个不那么重要．
var a,b,c:array[1..201] of integer;
fuhao:char;
bcd,acd,jcd:integer;
procedure duru();
var fin:text;
ch:char;
begin
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
fillchar(c,sizeof(c),0);
assign(fin,'duru.txt');
reset(fin);
read(fin,ch); acd:=0;
while (ch>='0') and (ch<='9') do
begin
inc(acd);
a[acd]:=ord(ch)-ord('0');
read(fin,ch);
end;
fuhao:=ch;
read(fin,ch); bcd:=0;
while (ch>='0') and (ch<='9') do
begin
inc(bcd);
b[bcd]:=ord(ch)-ord('0');
read(fin,ch);
end;
close(fin);
end;
program jia(jian,cheng,chu);
var a,b:longint;
input,output:text;
begin
assign(input,'infile.txt');
assign(output,'outfile.txt');
reset(input);
readln(a,b);
close(input);
rewrite(output);
writeln(a+b(a-b,a*b,a/b);
close(output); {关闭输出文件很重要！！！}
end.
程序的第一行和第十一行的格式都为： 加法的语句（减法的语句，乘法的语句，除法的语句）；