PASCAL的问题
想了想...
1--
var
n,m:integer;
function f(n,m:integer):longint;
var
i,s:longint;{因为总和可能很大 所以用longint}
begin
for i:=n to m do inc(s,i); {inc(i,x)的意思是i:=i+x}
f:=s;{值赋给函数f}
end;
begin
readln(n,m);
write(f(n,m));{直接调用函数f 得到结果}
end.
2--
var
i:integer;
check:array[10..99]of boolean;{在这里定义布尔型数组来记录符不符合条件}
begin
for i:=10 to 99 do begin{因为是两位数 所以10~99}
for j:=2 to i-1 do if i mod j=0 then check[i]:=false;
{如果可以被非1和他本身的数整除就记录为false}
k:=(i div 10)+(i mod 10)*10;{k代表倒序i}
for j:=2 to j-1 do if j mod k=0 then check[i]:=false;{同上，若可被整除就记录false}
end;
for i:=10 to 99 do if check[i] then write(i,' ');{如果正确则输出i 这里用' '实现空格}
end.
想了半天呐...望采纳！
刚才没看到追问...把注解写上了。
pascal pascal pascal!!!!!!
不写-ORD('0')你得出的是ASCII 码，减后就是数字返回(序数类)序数.即'0'在哪?
请问C语言ASCII码方面的问题,有高手吗?
比如这句代码：c = cvWaitKey(10);if( (char) c == 27 )break;你查一下码表，就知道27对应的就是键盘的ESC，可是这个时候，在程序里你是没办法使用ESC的，所以就使用的ASCII的数字。可是，大多数时候，我们看到了数字，比如十进制的65，这对应的是A，我们在看文本的时候，还是字母方便一些，...
关于扩展ASCII码的疑问?
我不懂扩展的ASCII码是什么，但我想这个问题上，我觉得就是纯粹的ASCII码的问题 ‘0’的ASCII码是48：换成二进制就是00110000 ‘2’的ASCII码是50：换成二进制就是00110010 ‘8’的ASCII码是56：换成二进制就是00111000 上面最左边都打上了单引号，表示他们是字符，而不是数字，你看到的那个表示...
ASCII的换算问题
65D，是十进制的 65。6、5，分别是 十位、个位。41H ，是16进制数。4、1，分别是“16位”、个位。换算：4 * 16 + 1 = 65。
请教一个问题:字母B的ASCII码是多少?
字母B的ASCII码是十进制数是66.附ASCII码对照表 ASCII（American Standard Code for Information Interchange，美国标准信息交换代码）是基于拉丁字母的一套电脑编码系统，主要用于显示现代英语和其他西欧语言。它是现今最通用的单字节编码系统，并等同于国际标准ISO\/IEC 646。
ASCII问题
zjjzha的计算方法是不对的 -105的原码是补码取反加1 补码是10010111 取反是01101000 再加1是01101001,就是10进制的105 -105转化成二进制为10010111 因为ASKII码只有7位（最高位用于奇偶校验），也就是0010111 再转换回10进制就成了23了 因为计算中只能保存2进制，ASKII码的产生就是为了把字符转换成2...
ASCII问题
利用键盘事件即可获取所按键的ascii码,但如果想让它显示为对应的键名,需要另外的代码转换。附个vb示例：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Dim keyname As String keyas = Hex(KeyCode)Select Case keyas Case 70 keyname = "F1"Case 71 keyname = "F2"Case 72 ...
c++中的ASCII代码问题
在ASCII中小写字母比大写字母大了20H，你可以把小写字母的值减去20H就可以得到大写字母了 当然你也可以用uppercase()函数，在MSDN 中它的原型是：ios_base& uppercase (ios_base& str);
计算机ascii码,转换问题,求大神,要非常详细的过程
这就是进制转换，看不出和ASCII码有任何的关系 十进制转16进制，将原数不停地除以16，最后将所有余数倒序相连即可。2913÷16=182...1 182÷16=11...6 11÷16=0...11 将三个余数倒序相连得到结果B61。4353÷16=272...1 272÷16=17...0 17÷16=1...1 1÷16=0...1 将四个余数...
C语言ASCII编码的问题…
ascii只有128个 从内存的角度看,1B=8bit;1个bit能储存一个0或1,比如说033上的叹号 编译器将十进制的33转换成二进制的00100001放入内存 char占1B,int占4B 33二进制是00100001,289二进制是100100001 printf("%c%c\\n",c1,c2);时c1是int型,用了%c,所以只取最后的8位(00100001)既十进制的33,...
关于一个ASCII代码的问题
这些是不同的进制 1000001是二进制 65是十进制 41H是十六进制 其实这三个数是相等的，换算成十进制都是65 就是说 1000001B=65=41H
桐律澳广：[答案] 1 排序 2 字符串哈希 3 4 5 均为模拟扫描
望奎县19282231295： Pascal问题:有2*n的一个长方形方格,用一个1*2的骨牌铺满方格.例如n=3时,为2*3方格.此时用一个1*2的骨牌铺满方格,共有3种铺法输入说明:一行一... - ？
桐律澳广：[答案] var a:array[1..10000]of qword; i,n:longint; begin read(n); a[1]:=1;a[2]:=2; for i:=3 to n do a[i]:=a[i-1]+a[i-2]; write(a[n]); end.
望奎县19282231295： 一道非常简单的pascal问题,求用函数和过程一起来做.自然数a的因子指的是能整除a的所有数,但不含a本身.例如12的因子为1,2,3,4,6.若自然数a的因... - ？
桐律澳广：[答案] 用function做的求30000以内的所有＂亲和数＂: var n,i,j,k:longint; function yinzihe(n:longint):longint; var s,i,j:longint; begin s:=1; j:=trunc(sqrt(n)); for i:=2 to j-1 do if n mod i=0 then inc(s,i+n div i); if j*j=n then inc(s,j); yinzihe:=s end; begin for i:=2 to 30000 ...
望奎县19282231295： Pascal 问题!求高手解答!回答正确给分!!有一组数,由N个小于30000的整数组成,且收尾两个数相邻,编程找出相邻的K个数,其相加之和最大,并给... - ？
桐律澳广：[答案] 你用没给n,k的范围,但应该够.优化:vara:array[1..100000]of integer;i,j,k,l,n,max:longint;begin readln(n,k); for i:=1 to n do read(a[i]); for i:=1 to k mod n do max:=max+a[i]; for i:=1...
望奎县19282231295： 关于PASCAL的几个问题(主要关于树) - ？
桐律澳广： 首先是骑士游历里的问题,定义了常量数组,便于回溯时枚举下一步的走法.因为马是走“日”字的,而且是四个方向,所以第一维定义为4个方向,而它是走“日”字,不管是上下左右,最多一步只能移动2格,所以定义2. 建议你画一个格子图...
望奎县19282231295： pascal语言的一些问题 急!!!？
桐律澳广： 第一个问题, 8.肯定是非法数据 这在所有编译器都不过的,8.0 这个很容易想到啊. 3e+0.6 建议学一下科学计数法 e后面的代表多少次方 比如说 3e9 就是3*10的九次方,0.6是神马?e+12 没有前置 e前面必须有东西aEc 这是科学计数法的标准...
望奎县19282231295： 关于pascal的一些问题？
桐律澳广： var s:string; i,j:integer; t:char; begin readln(s); for i:=1 to 3 do for j:=3 downto i+1 do if s[j] > s[j-1] then begin t:=s[j-1];s[j-1]:=s[j];s[j]:=t end; writeln(s); readln; end.
望奎县19282231295： 关于pascal的问题题目如下将一根长为369cm的钢管截成长69cm和39cm的两种规格的钢管.在这两种规格的钢管至少各截一段的情况下,怎样截才能余料最... - ？
桐律澳广：[答案] 首先,在for x:=1 to (369-69) div 69 do 后,你忘了个 end; if r而n:=x; m:=y; 这句话可以不写,此时原程序也不用改,原答案也不会错.但改后的程序更好理解.
望奎县19282231295： 问个关于Pascal的问题？
桐律澳广： 如果按照NOIP的Pascal标准的话, 可以用SetLength函数来重新设定数组维度 比如你定义一个维度为10的数组 var i: array[0..9] of Integer; 然后你发现维度10貌似不够用, 想要扩大, 可以用SetLength函数 比如要扩大到20 SetLength(i, 20); 如果不允许的话, 可以使用楼上的第一种办法, 就是用最大维度的数组 Pascal里面用指针来动态声明数组并不是好办法 我主要就提供这两种办法 SetLength和最大维度
望奎县19282231295： pascal 的问题 - ？
桐律澳广： var i,num:Longint;begin num:=0; //num初始化 i:=105; //第一个7的倍数 while i<1000 do begin write(i,' '); //输出 num:=num+1; if (num mod 10 = 0) then writeln; //每输出完10个换行 i:=i+7; //i变成下一个7的倍数 end;end.
