关于pascal语言编程的一些问题

来源:百度知道 编辑:UC知道 时间:2024/05/28 09:02:58
我想输入一组数据,但数据个数不确定,怎么办?
还有关于可以解一元一次方程的程序,具体步骤可以给我参考一下吗?

楼上的在设置变量的时候也是不能知道要设几个数据的!
用指针类型的一维数组就OK了,要一个就开域一个不要就关掉,用指针类型的话开始设几百万、几千万个数据都无所谓,应为不开域就不占内存嘛,在程序里再设当末尾为某字符就跳出输入用break,这样就OK了
解一元一次方程的程序:
把等号左边的常数项加起来
把等号右边的常数项的和的负数加到左边
得到常数项 a

把等号左边的一次项系数加起来
把等号右边的一次项系数的和的负数加到左边
得到一次项系数 b

x= - a/b
就是先化成ax+b=0的一般形式然后用x=-a/b的求根公式解,一般形式的a、b由使用者输入,够简单吧
核心就是x=-a/b

eoln是判断是否到行尾的函数,用它来判断。
用文件输入时,则为eoln(文件变量)
示例(键盘输入)
i:=0;
while not eoln do
begin
read(a[i+1]);
i:=i+1;
end;
{这时i就是个数}

第二个问题……描述的有一点不清楚,不过应该就是对方程ax+b=0,输入a和b
program abc;
var a,b:real;
begin
readln(a,b);
if (a=0) and (b<>0) then writeln('No answer!') else
if (a=0) and (b=0) then writeln('So many answers!') else
writeln('x=',-1*b div a);
end;

输入数据,个数不确定,要存起来的话,用链表.