exam.p 791 B

12345678910111213141516171819202122232425262728293031323334353637383940
  1. program example(output);
  2. {This program just demonstrates typical EM code.}
  3. type rec = record r1: integer; r2:real; r3: boolean end;
  4. var mi: integer; mx:real; r:rec;
  5. function sum(a,b:integer):integer;
  6. begin
  7. sum := a + b
  8. end;
  9. procedure test(var r: rec);
  10. label 1;
  11. var i,j: integer;
  12. x,y: real;
  13. b: boolean;
  14. c: char;
  15. a: array[1..100] of integer;
  16. begin
  17. j := 1;
  18. i := 3 * j + 6;
  19. x := 4.8;
  20. y := x/0.5;
  21. b := true;
  22. c := 'z';
  23. for i:= 1 to 100 do a[i] := i * i;
  24. r.r1 := j+27;
  25. r.r3 := b;
  26. r.r2 := x+y;
  27. i := sum(r.r1, a[j]);
  28. while i > 0 do begin j := j + r.r1; i := i - 1 end;
  29. with r do begin r3 := b; r2 := x+y; r1 := 0 end;
  30. goto 1;
  31. 1: writeln(j, i:6, x:9:3, b)
  32. end; {test}
  33. begin {main program}
  34. mx := 15.96;
  35. mi := 99;
  36. test(r)
  37. end.