1樓：
no.1
vara,b,c:integer;
begin
a:=1;
b:=12;
c:=123;
writeln(a);
writeln(b);
writeln(c);
writeln('**********====');
writeln(a:3);
writeln(b:3);
writeln(c:3);
end.
no.2
varn,i:integer;
begin
readln(n);
for i:=1 to 4 do
begin
write(n mod 10);
n:=n div 10;
end;
writeln;
end.
no.3
vari:integer;
s:string;
begin
s:='pascal';
for i:=1 to 6 do
write(chr(ord(s[i])-ord('a')+ord('a')));
writeln;
end.
no.4
vars:real;
begin
readln(s);
writeln(s:0:0);
writeln(trunc(s),' ',s-trunc(s):0:0);
writeln(round(s));
end.
to 樓上
你的程式有問題……
1、在noip的比賽裡輸出檔案的末尾都要有一個回車2、你第四題如果直接打writeln(a）的話，會成為科學計數法to 問問題的人
我的電腦是vista，開freepascal不是很方便……我是用記事本編的……沒有編譯
2樓：匿名使用者
1.writeln(a);
writeln(b);
write(c);
writeln(a:3);
writeln(b:3);
write(c);
2.read(x);
a:=x mod 10;
x:=x div 10;
b:=x mod 10;
x:=x div 10;
c:=x mod 10;
d:=x div 10;
x:=a*1000+b*100+c*10+d;
write(x);
3.for i:=1 to 6 do
begin
read(ch);
ch:=chr(ord(ch)-32);
write(ch);
end;
4.read(a);
writeln(a);
writeln(trunc(a),' ',a-trunc(a));
write(round(a);
用free pascal編譯程序，請各位幫幫忙，要對的，最好快一點，高分懸賞，有兩道題，會多少是多少
1 program prsssoject1 varn integer procedure find n integer vari integer begin if n 2 then for i 2 to n div 2 1 dobegin if n mod i 0 then begin writel...
free pascal問題，用函式和過程解。謝謝
1 var a,b,c,s integer procedure max a,b,c integer var s integer var tmp integer begin if a b then tmp a a b b tmp if a c then tmp a a c c tmp if b c t...
作文高手麻煩進來幫我完成作業
分數誘人，雖然我們可以幫你完成一次作業，但是我們不能幫你完成所有作業。作文這東西還是要靠積累的。這種有關名人的文章讀一讀是有好處的，這不僅是應付作業，他可以是你的情操得到培養，到了大學你就會慢慢明白了。菜市場裡，一個個小販在攤位上吆喝 招徠顧客，一個個顧客在攤位上挑挑揀揀，到處充滿了討價還價之聲，熙...