问一个有关pascal语言的问题
发布网友
发布时间：2024-10-06 14:14
共3个回答
热心网友
时间：2024-10-15 22:31
writeln(i:i:6,i:3); 这句还错了
应该是writeln(i,i:6,i:3);
输出结果“
*
1234 12341234
1.234567800000000E+003 1234.567801234.56780
# #
abcdefg abcdefgabcdefg
TRUE TRUETRUE
”
输入一个三位数，将它反向输出的程序：
1.
var i,n:integer;a:array[1..3]of 0..9;
begin
read(n);a[1]:=n div 100;
a[2]:=n div 10 div 10;
a[3]:=n mod 10;
for i:=3 downto 1 do write(a[i]);
writeln;readln;
end.
2.
var i:integer;s:string[3];
begin
read(s);
for i:=length(s) downto 1 do
write(s[i]);
writeln;readln;
end.
热心网友
时间：2024-10-15 22:37
大哥...您这程序是错的啊...
第6行没有‘；’，这还是小事
第九行“b:boolean”是啥意思，定义变量的话应该写在说明部分，如果要赋值的话用赋值语句“:=”而且布尔变量的值只有True和False，第十行，我实在看不懂啊...如果是输出一个星号的话用writeln('*')啊
麻烦LZ改下，改完了我会第一时间回答的
-------------------------------------------------------------------------------
唉，ls好积极啊，况且输出结果的貌似回答得也很周全了，不过ls的那个程序实在有点...大材小用，再说了，字符串数组（就是string[i])我记得i应该是定义字符串的长度啊，没记得还有这作用
var a,b,c:char;
begin
readln(a,b,c);
writeln(c,b,a);
readln
end.
这不就完了吗...
热心网友
时间：2024-10-15 22:35
1234
1.2345678E+03 1234.567801234.56780
# #
abcdefg abcdefgabcdefg
TRUE TRUETRUE
