NOIP2009T1 多项式输出

weixin_30835923

于 2013-10-26 08:00:00 发布

阅读量60

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/qilinart/articles/3388897.html

本文介绍了一个使用Pascal语言编写的程序，该程序读取输入文件中的系数并生成对应的多项式表达式。程序首先从文件'poly.in'中读取多项式的次数n，然后读取n+1个系数，最后将多项式表达式输出到文件'poly.out'。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
    a,i,j,n:longint;
begin
    assign(input,'poly.in'); reset(input);
    assign(output,'poly.out'); rewrite(output);
    readln(n);
    for i:=n downto 0 do
    begin
        read(a);
        if a=0 then continue
        else if a<0 then begin write('-'); a:=-a; end
        else if i<n then write('+');

        if a>1 then write(a);

        if i=1 then write('x')
        else if i>1 then write('x^',i)
        else if a=1 then write(1);
    end;
    writeln;
    close(input); close(output);
end.