1.1 综合测试

1.1.1 快速排序

  • PASCAL-S源程序 ```pascal program quicksort(input,output); var n,i:integer; a:array[0..100000] of integer;

procedure kp(l,r:integer); var i,j,mid:integer; begin if l>=r then exit; i:=l;j:=r;mid:=a[(l+r) div 2]; repeat begin while a[i]mid do j:=j-1; if i<=j then begin a[0]:=a[i];a[i]:=a[j];a[j]:=a[0]; i:=i+1;j:=j-1; end end until i>j; kp(l,j); kp(i,r) end;

begin read(n); for i:=1 to n do read(a[i]); kp(1,n); for i:=1 to n do write(a[i],’ ‘); end.

  2. - 预期结果
  4.        没有词法、语法、语义错误，正确生成快速排序的C程序，可以用C编译器正确编译，并正确运行。<br />       C程序运行时，先读入一个数字n表示待排序的数字个数，再输入n个数字。最后输出从小到大排序的结果。<br /> 
  6. - 输出的C程序
  7. ```cpp
  8. //Head files
  9. #include<stdio.h>
  10. #include<stdbool.h>
  12. //Overall constant definiton
  14. //Overall variable definition
  15. int n;
  16. int i;
  17. int a[100001];
  19. //Subprogram declaration
  20. void quicksort();
  21. void kp(int l, int r);
  23. //Main function
  24. int main()
  25. {
  26.     quicksort(); 
  27.     return 0; 
  28. }
  30. //Subprogram definition
  31. void quicksort()
  32. {
  33.     scanf("%d", &n);
  34.     for(i = 1; i <= n; i++)
  35.         scanf("%d", &a[i]);
  36.     kp(1, n);
  37.     for(i = 1; i <= n; i++)
  38.         printf("%d%c", a[i], ' ');
  39. }
  41. void kp(int l, int r)
  42. {
  43.     int i;
  44.     int j;
  45.     int mid;
  46.     if(l >= r)
  47.         return;
  48.     i = l;
  49.     j = r;
  50.     mid = a[(l + r) / 2];
  51.     do
  52.     {
  53.         while(a[i] < mid)
  54.             i = i + 1;
  55.         while(a[j] > mid)
  56.             j = j - 1;
  57.         if(i <= j)
  58.         {
  59.             a[0] = a[i];
  60.             a[i] = a[j];
  61.             a[j] = a[0];
  62.             i = i + 1;
  63.             j = j - 1;
  64.         }
  65.     }
  66.     while(!(i > j));
  67.     kp(l, j);
  68.     kp(i, r);
  69. }


  • 控制台输出及运行结果

image.png

  • 结果分析

编译程序各部分均为发现错误，且成功生成C代码，通过编译生成可执行程序。快速排序运行结果正确，所有数字按照从小到大的顺序进行了输出。

1.1.2 最大公因数

  • PASCAL-S源程序

    program example(input,output);
var n,i,x,y:integer;
function gcd(a,b:integer):integer;
begin
  if b=0 then gcd:=a
  else gcd:=gcd(b,a mod b);
end;
begin
 read(n);
 for i:= 1 to n do
 begin
     read(x,y);
     writeln(gcd(x,y))
 end;
end.


  • 预期结果

没有词法、语法、语义错误，正确生成求最大公因数的C程序，可以用C编译器正确编译，并正确运行。
C程序运行时，先读入一个数字n表示待求最大公因数的数字对数，再输入n对数字，每对数字有一个输出，表示这对数字的最大公因数。

  • 输出的C程序 ```cpp //Head files

    include

    include

//Overall constant definiton

//Overall variable definition int n; int i; int x; int y;

//Subprogram declaration void example(); int gcd(int a, int b);

//Main function int main() { example(); return 0; }

//Subprogram definition void example() { scanf(“%d”, &n); for(i = 1; i <= n; i++) { scanf(“%d%d”, &x, &y); printf(“%d\n”, gcd(x, y)); } }

int gcd(int a, int b) { if(b == 0) return (a); else return (gcd(b, a % b)); } ```

  • 控制台输出及运行结果

image.png

  • 结果分析

编译程序各部分均为发现错误，且成功生成C代码，通过编译生成可执行程序。求最大公因数运行结果正确。