信息奥赛十次课循环.ppt

信息奥赛十次课循环;program rm4; var x,g,s,b,y,t:integer; begin readln(x); g:=x mod 10; b:=x div 100; s:=x div 10 mod 10; if bs then begin t:=b;b:=s;s:=t; end; if bg then begin t:=b;b:=g;g:=t;end; if sg then begin t:=s;s:=g;g:=t;end; y:=b*100+ s*10+g; write(y); end.;program rm4; var x,g,s,b,y,t:integer; begin readln(x); g:=x mod 10; b:=x div 100; s:=x div 10 mod 10; if bs then begin t:=b;b:=s;s:=t; end; if bg then begin t:=b;b:=g;g:=t;end; if sg then begin t:=s;s:=g;g:=t;end; y:=b*100+ s*10+g; write(y); end.;输出“*****”;循环;var s:integer; begin s:=0; s:=s+1; s:=s+1; writeln(s); end.;repeat ;直到循环（REPEAT－until语句）;题目描述 编程求1+3+5+...+n 输入一行，只有一个整数n (1=n=9999) 这里n为奇数。 输出只有一行 样例输入 99 样例输出 2500;题目描述 编程求1+3+5+...+n 输入一行，只有一个整数n (1=n=9999) 这里n为奇数。 输出只有一行 样例输入 99 样例输出 2500;program ex20; var n,t,s:longint; begin readln(n); t:=1; s:=0; repeat s:=s+t; t:=t+2; until tn ; writeln(s); end.;1021: 【入门】编程求1+1/2+1/3+...+1/n 题目描述 编程求1+1/2+1/3+...+1/n 输入:输入一行，只有一个整数n(1=n=200) 输出:输出只有一行（这意味着末尾有一个回车符号），包括1个实数。(保留3位小数) 样例输入 5 样例输出 2.283 ;　函数标识符　　自变量类型　　　意义　　　　　结果类型 　　odd　　　　 整型　　　　　判断奇数　　　　布尔型 　　pred　　　　离散类型　　　求前趋　　　　　同自变量 　　succ　　　　离散类型　　　求后继　　　　　同自变量 　例：odd(1000)=false　　pred(2000)=1999　　succ(2000)=2001 　　　　odd(3)=true　　　　pred(x)=w　　　　succ(x)=y;1024: 【入门】打印小写字母表 题目描述 把英文字母表的小写字母按顺序和倒序打印出来。(每行13个) 输入 输出四行 样例输入 样例输出 abcdefghijklm nopqrstuvwxyz zyxwvutsrqpon mlkjihgfedcba;var ch:char; t:integer; begin ch:=a; t:=0; while ch=z do begin write(ch); inc(t); if t mod 13=0 then writeln; ch:=succ(ch); end; while cha do begin ch:=pred(ch); write(ch); inc(t); if t mod 13=0 then writeln; end; end.