2013信息奥赛第十次课(循环一).pptVIP

直到循环（REPEAT－until语句） 用repeat-until 语句可以实现“直到型循环”。 repeat-until语句的含义是：“重复执行循环，直到指定的条件为真时为止”。 　　　 * * 题17：任意输入一个三位整数，再把它的次序打乱重新组合一个新的三位整数，使其值最大。 Input 输入只有一行，包括1个整数。 Output 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。 Sample Input 470 Sample Output 740 思路：把三位拆除出来，求出最大、中间、最小 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. b s g 输出“*****” writeln(‘*****’); 输出100行“*****” 输出100个 writeln（‘*****’） 循环 repeat 没有终结—死循环 until 条件成立 var s:integer; begin s:=0; s:=s+1; s:=s+1; writeln(s); end. 读程序写结果 repeat s:=1; s:=s+1; write(‘*****’); until s100 记录循环次数的变量s 输出100行“*****” 循环体 Repeat　　　语句1;　　　:　　　语句n; until 布尔表达式;其中repeat、until是Pascal保留字 repeat与until之间的所有语句称为循环体。 题目描述 编程求1+3+5+...+n 输入一行，只有一个整数n (1=n=9999) 这里n为奇数。 输出只有一行 样例输入 99 样例输出 2500 1020 题目描述 编程求1+3+5+...+n 输入一行，只有一个整数n (1=n=9999) 这里n为奇数。 输出只有一行 样例输入 99 样例输出 2500 s t n 　类型　　　　　数值范围　　　　占字节数　　 格式　shortint　　　-128..128　　　　　　1　　　?? 带符号8位　integer　 　-32768..32767　　　　　 2　　? 　带符号16位　longint　-2147483648..2147483647? 　4　　 ? 带符号32位 1020 重复要做的事情---累加 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.