王朝知道

分享

 

01.pascal编程问题
program question;function f(n:integer):float;var i:integer; r:float;begin r:=302; for i:=2 to n do begin r:= r + (i / (float)(i+3)) end;end;begin writeln("result : ", f(1314));...查看完整版>>pascal编程问题02.pascal编程问题
Randomize;x:= m + random(n-m);的确是这样randomize 初始化随机发生器random(X) 生成一个小于 X 的随机数...查看完整版>>pascal编程问题03.pascal编程问题
用ord函数和read过程判断空格read(c);if c=#32 then ……（退出，比如break）也许你是repeat……until的，就repeat……read(c);……until c<>#32;...查看完整版>>pascal编程问题04.一个pascal编程问题！！
咋简单,刚开始学循环就做过了一、赖皮型的，你又没说循环Program print;begin writeln('1'); writeln('2 3'); writeln('4 5 6'); writeln('7 8 9 0'); write('1 2 3 4 5-')end.二、正式的，偶要悬赏分。。。Pro...查看完整版>>一个pascal编程问题！！05.pascal一道编程问题？？
我弄到了标准程序，如下：var a: array[1..10,1..10] of byte; t:longint; m,n,k:integer; h,z : array[1..10] of byte;procedure sub(s,x,e : byte);var y,i,j : byte;begin if s > m then inc(t) else...查看完整版>>pascal一道编程问题？？06.pascal编程方面的问题
An available example with "if":program if_example;var num:integer;beginwriteln('Input a score:');readln(num);if num>100 then writeln('error!') elseif num>=90 then writeln('Got A') elseif num>...查看完整版>>pascal编程方面的问题07.pascal~编程问题~急
1是字符串处理,建议你去看看书,我只能说,这个题目很神经,在赋值,替换,就是修改字符串,很基本……看下书就会懂了2你可以尝试先模拟一下，这个要结合输入理解，是三个01串……我不太记得了：）...查看完整版>>pascal~编程问题~急08.PASCAL编程问题求解（中手，高手们帮忙啊）
program pii;vari:integer;s,pi:real;beginpi:=1;for i:=1 to 500do begin s:=((2*i)/(2*i-1))*((2*i)/(2*i+1)); pi:=pi*s;end;pi:=pi*2;write(pi:3:2);readln;end....查看完整版>>PASCAL编程问题求解（中手，高手们帮忙啊）09.pascal 编程
这是个数学问题如果知道三角形三边长，a,b,c，可以用海伦公式：p:=(a+b+c)/2;S:=Sqrt(p*(p-a)*(p-b)*(p-c));//注意，pascal的赋值语句有冒号但是请注意，这里的p,a,b,c都是浮点数，计算机计算浮点数会产生浮点误差，...查看完整版>>pascal 编程10.pascal 编程题
program cao;var l,m,b,c,d,e,f,g:longint; a:array[1..10000]of boolean;begin f:=0; fillchar(a,sizeof(a),true); read(l,m); for b:=1 to m do begin read(c,d); for e:=c to d do a:=false; e...查看完整版>>pascal 编程题

 

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。