神马品牌网amdr5m315能玩什么游戏:关于Tp,求助啊！
来源：百度文库 编辑：神马品牌网 时间：2024/05/14 17:48:58
各位高手，用Tp做啊！帮帮忙啊！
1.计算1+2+3+4+……+100的和（用循环）
2.任意输入小于10的数n，计算2的N次方。
1.计算1+2+3+4+……+100的和（用循环）
2.任意输入小于10的数n，计算2的N次方。
第一个:
program sum;
var
n, m: Integer;
begin
m := 0;
for n := 1 to 100 do m := m + n;
Writeln('The sum is: ', m);
end.
第二个:
program power;
var
p, n, m: Integer;
begin
Write('Input a number less than 10: ');
Readln(n);
p := 2;
for m := 2 to n do p := p * 2;
Writeln('The result is: ', p);
end.
注意第2个程序, p我用的是整型, 因为2的10次方只有1024, 所以不会溢出; 假如数字大的话, 应该用实型.