pascal中学组题目，求打圈的题目讲解 是讲解！我知道答案。。。

5,
'a'<100,类型不同，不能比较
23.6<21,可以比较，结果为false，但这样的表达式没什么实际用处。
(1<2) and ('A'>'B'),可以比较，结果为false
5<x<8,pascal没有这样的表达式。

似乎第2第3都是可以成立的表达式。

2，
一元二次方程有个求根公式（写起来麻烦可以自己百度一下）。
所以pascal的表达式是：

x1:=(-b+sqrt(b*b-4*a*c))/(2*a)
x2:=(-b-sqrt(b*b-4*a*c))/(2*a)

5,
编码规则是字母表倒序对应转换。
所以首尾两字母的ASCII码值之和不变，即'A'的码值+‘Z’的码值=65+90=155,'B'的码值+‘Y’的码值=66+89=155，......以此类推。

所以原码变量为x,则密码的表达式是：
chr(155-ord(x))
意思是先用ord(x)得到x变量里那个字母的ASCII码值，再用155-那个字母的码值，得到逆序表中对应字母的码值。最后根据码值利用chr函数得到密码字母。

一道Pascal题，我知道答案，但为什么啊~

只要每一次最小就可以了。顺序是9-8-6-4

这样转换呀，太简单了吧，不过我没学过英语，下面的单词如果有错误请你自己修改一下：

var
dir:array[0..9] of string;
s:string;
i:integer;
begin
dir[0]:='zero';
dir[1]:='one';
dir[2]:='two';
dir[3]:='three';
dir[4]:='four';
dir[5]:='five';
dir[6]:='six';
dir[7]:='seven';
dir[8]:='eight';
dir[9]:='nine';
readln(s);
for i:1 to length(s) do
write(dir[ord(s[i])-ord('0')],' ');
end.

---

#宁食肿# pascal二维数组的题目要步骤和讲解 -
(17793185757)： var a:array[1..10,1..10]of integer; n,i,j,k,p:integer; begin readln(n); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=n*(i-1)+j; write(a[i,j]:3); end; writeln; end; for i:=1 to (n+1)div 2 do begin if odd(n)and(i=(n+1) div 2) then p:=n div 2 else p:=n; for j:=1 to ...

#宁食肿# 一道pascal语言的题,很简单的.求解!!!!
(17793185757)： CLS FOR a = 1 TO 50 \ 3 FOR b = 1 TO 50 \ 2 FOR c = 1 TO 28 IF a + b + c = 30 AND 3 * a + 2 * b + c = 50 THEN PRINT a; b; c: s = s + 1 NEXT c, b, a PRINT ＂S=＂; s END

#宁食肿# 求NOIP2011复赛普及组题目详解 PASCAL -
(17793185757)： 第一题注意负数,注意有可能出现-0(虽然我也不确定有没有);第二题一个单词一个单词地读(用空格隔断),读一个比较一个;第三题模拟,不断排序;(但我估计会超时) 第四题用分治,先寻找括号外的加号,没有的话就寻找括号外的乘号,把找到的那个地方的左右两边分别计算在合在一起.注意去括号,注意最后的递归边界.计算时住随时mod 10007(可以用数学的余数定律证明这样不会改变结果).但着也不能过全,递归到十二万多层就崩溃了.不过至少可以过一半

#宁食肿# 一道非常简单的pascal题目,求大师用最简洁的方法做一下,并解释一下,谢谢!题目:N只猴子选大王. -
(17793185757)： {n只猴子选大王,数到3的淘汰,剩2只时数1的为大王}var a:array[1..10000] of integer; {存放猴子序号} i,j,k,n,s:integer;begin readln(n); for i:=1 to n do a[i]:=i; k:=0; i:=0; repeat inc(i); if i>n then i:=1; if a[i]<>0 then inc(k); if (a[i]<>0)and(k mod 3=0) ...

#宁食肿# 关于Pascal的题目,求大神解答 -
(17793185757)： ① 2② 4③ not((Y[D,1]=4)or(Y[D,2]=4))、(Y[D,1]<>4)and(Y[D,2]<>4)④ HaveSame(A,B)⑤ HaveSame(B,C)⑥ 1NOIP拿过国一的路过~~……

#宁食肿# 求pascal题目详解 -
(17793185757)： 你要问什么呢? 这个程序的含义吗?var sum,i:integer; //定义了2个整形变量beginsum:=0; //sum初始化赋值为0 for i:=1 to 10 do //循环 1 到10if I mod 2<>0 then ,如果 I 除以2 的余数 不等于0 则sum:=sum+i; //将该值和SUM中原来的值相加 结果存到sum中writeln(sum); //输出sum 值 end.比如 3除 2 余 1 ,这个数满足 条件 就将3 和sum相加 结果存到sum 后输出

#宁食肿# 求一道pascal题的解 -
(17793185757)： 做一个a[0..10,0..10,0..10] 的数组 用来储存1000种不同的三位数的立方和 用链表把有前后关联的项连接起来 也可以用前向星类似的东西 最后以不变的点为头向前找 开个hash坐下标记 就可以了 脑袋...

#宁食肿# pascal语言题目 -
(17793185757)： 楼上不符要求,周长面积在一行正解:const pi=3.1415;var n,c,s:real;begin readln(n); c:=n*2*pi; s:=n*n*pi; write(c:0:2); write(＂ ＂); writeln(s:0:2);end.

#宁食肿# Pascal数组题. -
(17793185757)： var a:array[1..10000]of longint; n,min,i,j,tmp:longint;begin readln(n); for i:=1 to n do readln(a[i]); min:=maxlongint; j:=0; for i:=1 to n do if a[i]<min then begin m...

#宁食肿# 求一个 pascal 题目的详细解答,程序如下. -
(17793185757)： 先标行号1 const NUM=5;2 var n : integer;3 function r ( n:integer) : integer;4 var 5 i:integer;6 begin7 if n<=NUM then 8 begin9 r:=n;10 exit;11 end;12 for i:= 1 to NUM do13 if r( n- i )<0 then14 begin15 r:= i ;16 exit;17 end;18 r:= - 1 ;19 end;20 begin21 ...