有哪些信誉好的足球投注网站- 1、本文档共3页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
1第一课阅读程序
三. 阅读程序写结果（共4题，每题8分，共32分）
阅读程序的基本方法是——写变量值表
1.
var
a, b: integer;
function work(a, b: integer): integer;
begin
if a mod b 0 then
work := work(b, a mod b)
else
work := b;
end;
begin
read(a, b);
writeln(work(a, b));
end.
输入：20 12
输出：_____
2.
var
a, b: array[0..2] of integer;
i, j, tmp: integer;
begin
for i := 0 to 2 do
read(b[i]);
for i := 0 to 2 do
begin
a[i] := 0;
for j := 0 to i do
begin
inc(a[i], b[j]);
inc(b[a[i] mod 3], a[j]);
end;
end;
tmp := 1;
for i := 0 to 2 do
begin
a[i] := a[i] mod 10;
b[i] := b[i] mod 10;
tmp := tmp * (a[i] + b[i])
end;
writeln(tmp);
end.
输入：2 3 5
输出：_______
3.
const c = 2009;
var
n, p, s, i, j, t: integer;
begin
read(n, p);
s := 0;
t := 1;
for i := 1 to n do
begin
t := t * p mod c;
for j := 1 to i do
s := (s + t) mod c;
end;
writeln(s);
end.
输入：11 2
输出：______
4.
var
a: string;
n: integer;
procedure getnext(var str: string);
var
l, i, j, k: integer;
temp: char;
begin
l := length(str);
k := l - 1;
while (k = 1) and (str[k] str[k + 1]) do
dec(k);
i := k + 1;
while (i = l) and (str[i] str[k]) do
inc(i);
temp := str[k];
str[k] := str[i - 1];
str[i - 1] := temp;
for i := l downto k + 1 do
for j := k + 1 to i - 1 do
if str[j] str[j + 1] then
begin
temp := str[j];
str[j] := str[j + 1];
str[j + 1] := temp;
end;
end;
begin
read(a);
read(n);
while n 0 do
begin
getnext(a);
dec(n);
end;
write(a);
end.
输入：NOIP 3
输出：_______
inc两种用法:
1.inc(integer)
inc(a)等于a:=a+1;
例:
i := 100;
inc(i);
结果:i等于101
2.inc(integer,integer)
inc(a,b)等于a:=a+b;
例:
i:=100;
inc(i,20);
结果:i等于120
L见书中关于字符串的相关内容，P101
文档评论（0）