例题：编写程序，求实数x的n（非负整数）次幂运算的程序。要求使用while语句。   程序代码如下所示： program cql(input,output); var c,n:integer;s,x:real; begin write('input n,x:'); read(n,x); c:=0; s:=1; while c

例题：使用while语句编写程序，求出100以内的偶数的和。   程序代码如下所示： program cql(input,output); var i:integer;s:real; begin s:=0; i:=2; while i<=100 do begin s:=s+i; i:=i+2; end; write('s=',s:8:2); end. 最后的结果是：2550.00...

例题：使用while循环语句，编写程序求100以内的奇数的和。   程序代码如下； program cql(input,output); var i:integer;s:real; begin s:=0; i:=1; while i<=99 do begin s:=s+i; i:=i+2; end; write('s=',s:8:2); end. 最终结果为：2500.00...

例题：使用while循环语句求10的阶乘（10！）   程序代码如下： program cql(input,output); var i:integer;s:real; begin s:=1; i:=1; while i<=10 do begin s:=s*i; i:=i+1; end; writeln; write('s=',s:8:1); end. 最后的运行结果是：3628800.0...

例题：求使用while循环语句求1到100的和。   程序代码如下：   program cql(input,output); var i:integer;s:real; begin s:=0; i:=1; while i<=100 do begin s:=s+i; i:=i+1; end; writeln; write('s=',s:8:1) end.   最后...

例题： 使用while循环编写一个密码程序，知道输入a9时，才退出循环   程序代码： program c1(input,output); var x,y:char; const a=1; begin   while a=1 do begin write('please input a password:'); read(x,y); if (x='a')and(y='9') ...

while循环的语法是这样的：   while <条件> do begin 循环体 end (注意：此处的end后面无点，如果此end下面还有语句则此处要有分好。)     语法说明： 1、当满足<条件>时执行循环，每个循环完了之后会跳转到while处（而不是begin处...

例题：从键盘上输入三个数，对它们进行比较，判断出谁最大，并将结果显示在屏幕上。 解法一： program bj(input,output); var x,y,z,a:real; begin write('please input 3 numbers:'); read(x,y,z); if x>=y then a:=x else a:=y; if a>=z then write('the biggest n...

上一篇文章说了case语句的语法和功能，这一篇文章就针对case语句提供一个例题，供大家练习用： 例题： 编写程序将学生成绩的百分制分数转换成等级字符输出： 100~90为A级 89~80为B级 79~70为C级 69~60是D级 59~0是E级 当输入一个成绩后，则输出它对应的等级字母。  ...

在实际问题中，常常需要从若干种情况中选择其一执行，如果采用if嵌套结构，程序逻辑复杂性增加，减弱可读性，降低执行效率，为此pascal语言提供了一种多情况分支选择手段：case语句。   case语句的语法是这样的： case <选择表达式> of 情况标号表1：语句1；...