求pascal程序！！！ 保龄球实时计分

Pascal程序输出结果是。。。求说明。。谢谢~

这个实在是太简单了，连排序都不需要，用哈希数组就行。
如果能确保输入数没有重复，就用第一个，不能就用第二个程序。
Program ASCII;
var
s:string;
a:array[48..122] of boolean;;
i,l:integer;
begin
fillchar(a,sizeof(a),false);
readln(s);
l:=length(s);
for i := 1 to l do
a[ord(s[i])]:=true；
for i := 48 to 122 do
if a[i] then
write(chr(i),' ')
end.
第二个程序：
Program ASCII;
var
s:string;
a:array[48..122] of integer;;
i,j,l:integer;
begin
fillchar(a,sizeof(a),0);
readln(s);
l:=length(s);
for i := 1 to l do
inc(a[ord(s[i])]);
for i := 48 to 122 do
if a[i]>0 then
for j := 1 to a[i] do
write(chr(i),' ')
end.

用1，2，3，4，5表示五个座位的顺时针顺序，用i,j,k,l,m表示赵、钱、孙、李、周五人，对i,j,k,l,m用五层嵌套从1到5循环。
要满足以下几个条件，则为正确结果：
1、i,j,k,l,m互不相等
2、i-j的绝对值不为1
3、（k-j+5）模5不为0
4、（l-j+5）模5不为0
5、（j-k+5）模5不为0
6、（k-l+5）模5不为0
以上回答你满意么？

program bowling;
//By 灰天飞雁 htfy96@qq.com 转载请保留此行
var
  c:char;
  round,state,i,sum:longint;
  a:array[0..13,0..2] of longint;  //A[i,j]:第i轮第j次滚球砸倒数,跳过或未砸中均为0
  clear,ans:array[0..13] of longint; //clear:第i轮的扔球情况 1第一次clear 2第二次clear 0两次之后仍未clear
  begin
  assign(input,'bowling.in');
  assign(output,'bowling.out');
  reset(input);
  rewrite(output);
  fillchar(a,sizeof(a),0);
  fillchar(clear,sizeof(clear),0);
  round:=1; state:=1;
  while not eoln do
    begin
    read(c);
    if c<>' ' then
      begin
      if c='/' then        //clear了
        if state=1 then      //第一次clear
          begin
          clear[round]:=1;
          a[round,1]:=10;
        end
        else
          begin
          clear[round]:=2;
          a[round,2]:=10-a[round,1];     //第二次clear,这一次砸中数通过计算得到
        end
      else
        a[round,state]:=ord(c)-ord('0');    //未clear
      if (clear[round]>0) or (state=2) then begin inc(round);state:=1; end else inc(state);  //砸完了或者已经经过2次就进入下一轮
    end;
  end;
  readln;
  for i:=1 to 10 do
    begin
    case clear[i] of
      1:if clear[i+1]<>1 then ans[i]:=10+a[i+1,1]+a[i+1,2] else ans[i]:=10+10+a[i+2,1]; //这一轮一次clear,+下两次砸球.若clear[i+1]不为1则 代表下一轮砸了2次, 为1则代表砸了1次,还需加上下下轮第一次砸球
      2:ans[i]:=10+a[i+1,1];    //两次clear。只要clear就能砸3次，因此加上下一轮第1次
      0:ans[i]:=a[i,1]+a[i,2]; //未clear，只记本轮分
    end;
    if i<10 then write(ans[i],' ') else writeln(ans[i]);
  end;
  sum:=0;
  for i:=1 to 10 do
    begin
    inc(sum,ans[i]);
    if i<10 then write(sum,' ') else writeln(sum);
  end;
  close(input);
  close(output);
end.

基础题好好想

---

禹州市17745285849： PASCAL的程序代码 - ？
苑慧严辞： 这道题有两种算法,第一种是用for语句,第二种是用递归(不知道楼主学了没有),具体见下:一、for语句 参考程序:var f:array[0..10000]of longint; //数组开到多少自己定(我是开到10000,要注意从0开始) n,x,i:longint; begin readln(n,x); ...

禹州市17745285849： 输入n个整数,计算它们之和. 求pascal程序 - ？
苑慧严辞： program ex01; var n, s, a: integer; begin readln(n); s := 0; for i := 1 to n dobegin Read(a); Inc(s, a); end; writeln(s); readln; end.

禹州市17745285849： 求一个PASCAL程序 - ？
苑慧严辞： 用筛选法求1~N之间的所有素数.分析:对于数组flag[1..n],先初始化假设全为true.首先flag[1]=false,接着从数组中找到第1个为true的数flag[2],那么在2以后的所有数中,将2的倍数的数赋值为false.接着再从数组中找到下一个为true的3,将3...

禹州市17745285849： PASCAL源程序 跪求 - ？
苑慧严辞： 简单DP var s:string; c:char; max,min:array[1..20,1..20] of longint; i,j,l,n,e:longint; opr:array[1..20] of char; function cal(x,y:longint; c:char):longint; begin if c='+' then exit(x+y); exit(x*y); end; begin repeat s:=''; read(c); n+=1; repeat s:=s+c; read(c); until ...

禹州市17745285849： 求一个Pascal的程序？
苑慧严辞： 楼主的题目要求是 让用户输入两个数字和一个符号(+ - *没有除号), 再输入结果 然后让电脑判断计算的是否正确, 理解无误吧, 楼主的题目就是这样写的 给出程序var a, b, res, ires: Double; c: Char; begin Write('Please input two numbers: '); ...

禹州市17745285849： 编写一个Pascal程序计算圆周率 - ？
苑慧严辞： 给出几个程序,楼主选一个吧:var x,i,j:extended; begin x:=4; i:=3; repeat j:=i*i; x:=x*((j-1)/j); i:=i+2; until i>5E8; /*计算到i>5亿为止*/ writeln(x:0:18); /*输出计算的结果*/ writeln(PI:0:18) /*输出Pascal储存的常量结果*/ end.{$N+} var i:longint; pi,j:...

禹州市17745285849： 算式求解(pascal程序)？
苑慧严辞： 输出格式错了,刚修改过 var n,i,j,p:integer; s,s1,s3:string; s2:char; begin readln(s);{用字符串输入} n:=1; repeat inc(n);{寻找运算符的位置,从1开始是为了避免把第一个数前的符号当成要进行的运算} until (s[n]='+')or(s[n]='-')or(s[n]='*')or(s[n]='/')...

禹州市17745285849： 求pascal编程练习题及答案. - ？
苑慧严辞： 循环:for i:=1 to n do read(a[i]); 选择:if x>0 then writeln(k+x) else writeln(x-k); array:循环里 顺序:x:=2; y:=3; write(x+y); 望采纳

禹州市17745285849： 求一个PASCAL程序,请使用二分查找发 - ？
苑慧严辞： 二分查找……应该很容易看懂的吧我就不写注释了~望采纳谢谢!var a:array [1..1000000] of string; s:string; n:longint; function search(st:string;low,high:longint):longint; var mid:longint; begin mid:=(low+high) shr 1; if low<=high then begin if st=a[mid] ...

禹州市17745285849： 写出简单的pascal语言程序,在线等~ - ？
苑慧严辞： var a,b,c:integer; s:real; begin readln(a,b,c); s:=(a+b+c)div 3; c:=a*b*c; writeln(s:5:3); writeln(c); end.