DOC

# y:integer):integer

By Norman Torres,2015-02-04 21:11
107 views 0
x,y:integer;beginx:=3+5*(9/3);y:=(10);func:=( 4.7 + add(2,3) );end;procedure dummy();beginbegin end

In.txt

const a=45,b=27,aa=55;

var

max ,min:integer;

mm:integer;

tem:real;

tem1:integer;

cccc,abcd:char;

var

m:integer;

begin

m:=(x+y);

writeln("x=",x);

writeln("y=",y);

end;

function func:real; const m=1,

c='a';

var

x,y:integer;

begin

x:=3+5*(9/3);

y:=((((10))));

end;

procedure dummy(); begin

begin end;

begin begin begin end;end;end;

end;

function charfunc(x ,y:integer):char;

var

c1:char;

begin

c1:=x+y ;

charfunc:= (c1); end;

procedure swap(); var

temp:integer;

begin

temp:=max;

max:=min;

min:=temp;

writeln("max=",max); end;

begin

mm:='b';

abcd:='a';

write("char abcd is ",abcd);

writeln;

abcd:='c';

write("char abcd is ",abcd);

writeln;

min:=aa ;

max:= b;

writeln("cccc=",cccc);

writeln("tem=",(tem) );

swap;

writeln("min=",min);

writeln;

write(tem1);

writeln;

writeln(8888);

case tem1 of

0:

writeln(123);

1:

writeln(456);

+2:

writeln(789);

-3:

writeln(100);

end;

if(tem>=3) then

tem:=tem+1

else

tem:=tem-1;

writeln("tem=",tem);

max:= 32000;

writeln(max); end.

cccc:=charfunc(45, 52);

Prd.txt

y 2

Result.txt

char abcd is a char abcd is c cccc= y

x= 2

y= 3

x= 5

y= 3

x= 2

y= 3

tem= 147.382401 max= 55

min= 27

x= 2

y= 3

2

8888

789

tem= 6.000000

32000

223 steps

Out.txt()

0 const a=45,b=27,aa=55;

1 var

2 max ,min:integer;

3 mm:integer;

4 tem:real;

5 tem1:integer;

6 cccc,abcd:char;

7

9 var

10 m:integer;

11 begin

12 m:=(x+y);

13 writeln("x=",x);

14 writeln("y=",y);

16 end;

17

18 function func:real;

19 const m=1,

20 c='a';

21 var

22 x,y:integer;

23 begin

24 x:=3+5*(9/3);

25 y:=((((10))));

26 func:=( 4.7 + add(2,3) );

27 end;

28

29 procedure dummy();

30 begin

31 begin end;

32 begin begin begin

33 end;end;end;

34 end;

35

36 function charfunc(x ,y:integer):char;

37 var

38 c1:char;

39 begin

40 c1:=x+y ;

41 charfunc:= (c1);

42 end;

43

44 procedure swap();

45 var

46 temp:integer;

47 begin

48 temp:=max;

49 max:=min;

50 min:=temp;

51 writeln("max=",max);

52 end;

53

54 begin

55 mm:='b';

56 abcd:='a';

57 write("char abcd is ",abcd);

58 writeln;

59 abcd:='c';

60 write("char abcd is ",abcd);

61 writeln;

62

63 min:=aa ;

64 max:= b;

65

67 writeln("cccc=",cccc);

68

70 writeln("tem=",(tem) );

71 swap;

72 writeln("min=",min);

73 writeln;

74

76

77 write(tem1);

78 writeln;

79 writeln(8888);

80

81 case tem1 of

82

83 0:

84 writeln(123);

85 1:

86 writeln(456);

87 +2:

88 writeln(789);

89 -3:

90 writeln(100);

91 end;

92

93 if(tem>=3) then

94 tem:=tem+1

95 else

96 tem:=tem-1;

97

98 writeln("tem=",tem);

99 max:= 32000; 100 writeln(max); 101 end.

Code.txt()

0 0 2 7

1 1 2 5

2 1 2 6

3 52

4 38

5 24 2

6 28 0

7 1 2 5

8 29 1

9 63

10 24 2

11 28 2

12 1 2 6

13 29 1

14 63

15 0 2 0 16 1 2 7 17 38

18 33

19 0 2 5 20 24 3 21 24 5 22 24 9 23 24 3 24 58

25 57

26 52

27 38

28 0 2 6 29 24 10 30 38

31 0 2 0 32 25 1 33 18 19 34 24 2 35 24 3 36 19 6 37 3 1 2 38 26 0 39 54

40 38

41 33

42 32

43 0 2 7 44 1 2 5 45 1 2 6 46 52

47 38

48 0 2 0 49 1 2 7 50 38

51 33

52 0 2 5 53 1 1 5 54 38

55 0 1 5 56 1 1 6 57 38

58 0 1 6 59 1 2 5 60 38

61 24 4 62 28 4 63 1 1 5 64 29 1 65 63

66 32

67 0 1 7 68 24 98 69 38

70 0 1 11 71 24 97 72 38

73 24 13 74 28 8 75 1 1 11 76 29 4 77 63

78 0 1 11 79 24 99 80 38

81 24 13 82 28 21 83 1 1 11 84 29 4 85 63

86 0 1 6 87 24 55 88 38

89 0 1 5 90 24 27 91 38

92 0 1 10 93 27 4 94 0 1 9 95 27 1 96 24 5 97 28 34 98 1 1 10 99 29 4 100 63

101 0 1 8

102 24 5 103 18 19 104 18 19 105 24 2 106 24 3 107 19 6 108 24 3 109 19 6 110 52

111 25 2 112 18 23 113 19 4 114 60

115 26 1 116 54

117 25 3 118 54

119 38

120 24 4 121 28 39 122 1 1 8 123 29 2 124 63

125 18 33 126 19 4 127 24 4 128 28 43 129 1 1 6 130 29 1 131 63

132 63

133 0 1 8 134 18 19 135 24 2 136 24 3 137 19 6 138 26 0 139 38

140 1 1 9 141 29 1 142 63

143 24 8888 144 29 1 145 63

146 1 1 9 147 12 164 148 24 123 149 29 1 150 63

151 10 173 152 24 456 153 29 1 154 63

155 10 173 156 24 789 157 29 1 158 63

159 10 173 160 24 100 161 29 1 162 63

163 10 173 164 13 0 165 13 148 166 13 1 167 13 152 168 13 2 169 13 156 170 13 -3 171 13 160 172 10 0 173 1 1 8 174 24 3 175 26 0 176 44

177 11 185 178 0 1 8 179 1 1 8 180 24 1 181 26 0 182 54

183 38

184 10 191 185 0 1 8 186 1 1 8 187 24 1 188 26 0 189 55

Report this document

For any questions or suggestions please email
cust-service@docsford.com