用free pascal下载的简单的循环语句便一道题

来源：蜘蛛抓取(WebSpider) 时间：2012-05-26 12:30 标签： free pascal下载
用FREE PASCAL的repeat until循环编一道题_百度知道
用FREE PASCAL的repeat until循环编一道题
机读一个数，输出它的位数，再把这个数到这输出，如下面的过程
提问者采纳
end:writeln(i)！代码如下：vari！不过既然要求了.;repeatwrite(s[i]).:string.;until i=0:=length(s);beginreadln(s)，还是用一下吧这个貌似用for循环就能非常简洁地达到目的.;s.相当简单的题目啊.;i;dec(i)，根本就不需要直到型循环嘛
其他类似问题
为您推荐：
您可能关注的推广
pascal的相关知识
其他1条回答
vara:=a div 10,b，不能运行;i;end:=0;a;repeatwrite(a mod 10):integer:=i+1;a;repeatiprogram repeat，电脑上没FP;begin readln(a);writeln(i);until a=0,d,i.直接在解答框写的;until a=0:=a div 10，程序肯定是对的,c
两个变量就行了，干嘛顶五个，还有，我输出不是倒着输
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁free pascal for循环语句的问题_百度知道
free pascal for循环语句的问题
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ￥&&&&&&&&&￥&&&&& ￥￥￥&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& &&&&&&&&￥￥￥&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ￥&&&&&&&&&&&&&&&nbsp运用for语句使结果呈现出一个特别的图形如&&&nbsp
我有更好的答案
。怎么用for。？如果是现在这样的太没有规律了吧没看懂你要做的图形
可以用ASCLL码
其他类似问题
为您推荐：
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁关于PASCAL一道题：验证哥德巴赫猜想。_百度知道
关于PASCAL一道题：验证哥德巴赫猜想。
=falseprogram exap121_3_22:=a+2:integer);
f:='+&#39:=
writeln(j;;begin
if x&lt，到底出在什么地方;var
i:integer,&#39,a;begin
for j,b:=j-a:=f;function fa(x;=1，运行没有任何输出?各位帮我看看.这个程序;
for i:=6 to 100 do begin
if not odd(j) then begin
a: end,&#39:boolean:=2 to trunc(sqrt(x)) do
if x mod i=0 then begin f:=1;end,b);
until fa(a) and fa(b); end:=false
提问者采纳
我运行了有输出的建议你用freepascal2.0或者TP7别用其他的肯定有输出
其他类似问题
为您推荐：
哥德巴赫猜想的相关知识
其他3条回答
这个程序对的。按alt＋f5看结果
你的程序对的。按Alt＋F5看结果
这个是我编的，任意输入偶数。
prime,primel:
write('n');readln(n);
until not odd(n);
if n=4 then write (n,'=','2+2')
for j:=2 to trunc(sqrt(i)) do
if i/j=trunc(i/j) then
j:=trunc(sqrt(i));
if prime then
for j:=2 to trunc(sqrt(s)) do
if s/j=trunc(s/j) then
j:=trunc(sq...
你的程序对的。按Alt＋F5看结果,也可能是版本或系统问题，要是这样的话，就只能重新安装PASCAL，建议安装FREE PASCAL
这个是我编的，任意输入偶数。
prime,primel:
write('n');readln(n);
until not odd(n);
if n=4 then write (n,'=','2+2')
for j:=2 to trunc(sqrt(i)) do
if i/j=trunc(i/j) then
j:=trunc(sqrt(i));
if prime then
for j:=2 to trunc(sqrt(s)) do
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁free pascal的基本语句，赋值_百度知道
free pascal的基本语句，赋值
判断语句，那么就推出循环，使得while后面的判断条件不成立;begin
read(score)。 repeat until a=b：if (代数式 逻辑运算符 代数式)thenbeginend:
==60 then write(&#39：如果输入的数值小于60，在进行代数式的判断，如果判断的结果为真;) else
if (score&gt，从而推出循环;) else
if (score=100) then write('60) and (score&lt；而这里的条件是用来判断是否推出循环的赋值的操作。repeat循环是不管是否满足条件，或者说他们的运算结果等于真（true）时;for+循环变量i+：=+循环变量在第一次循环时的值+to+循环变量在终止之前最后一次循环的值+ do这种循环也叫做计数循环，一钟叫做goto 语句，然后运行完所有的end之前所有的语句，一直执行begin和end中间的语句，代表得了60分一下。在循环变量递增到一定次数之前循环将会继续，编写一个根据输入的分数判断学生学习情况的程序，直到被赋予了to 之后的值，那么输出You must be a chinese，循环就这样结束了;);Ni Ji Ge Le'变量+冒号+等号+代数式，那么输出
Ni Ji Ge Le:integer，用来判断上一条判断语句所判断的情况之外的情况； 限制性repeat和until 中间的程序体。如果判断的结果为真; 多重判断语句在end语句后面加上else语句.如果输入的数值等于100，那么在执行，代数式a或b一定要在循环体中被改变;You must be a Chinese&#39：a
，在判断条件。循环变量的值将在第一次循环时被赋值为to 之前的值（这个值可以使变量）;100) then write(&#39，是不被推荐的. program Student，也就是说通过一个循环变量来计数。程序员们习惯的用字母i来命名循环变量，while循环是先进性条件的判断，要求. 什么时候加括号什么时候加begin end没问题吧 有问题的话追问吧 循环语句 一共有4中 其中三种是可以被用到的，现执行程序体，那么输出You are A PIG如果输入的数值在61到99之间;You are A PIG&#39。（和while循环相比,然后在之后的每一次循环时被赋予一个比上一次大1的值;
if score&lt。在这种循环模式中，让循环变量不断的递增。至少我学了几年还没写过一句goto 语句 1 for循环for i := 1 to 100 就是说 当a=b(或者任何的 代数式 + 逻辑运算符 + 代数式)满足条件，for循环发现没有更大的值可以赋给循环变量i了。 while 循环 while a=b dobeginend。例如
其他类似问题
为您推荐：
pascal的相关知识
其他1条回答
a:=b;将b的值赋给a（a是变量）
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁09free pascal教程_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者
评价文档：
09free pascal教程
f​r​e​e​ ​p​a​s​c​a​l​教​程
大小：46.50KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢

我要回帖

更多关于 free pascal下载 的文章

 

随机推荐