DOC

y:integer):integer

By Norman Torres,2015-02-04 21:11
96 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;

function add(x:integer ; y:integer):integer;

    var

     m:integer;

    begin

     m:=(x+y);

     writeln("x=",x);

     writeln("y=",y);

     add:=m;

    end;

    function func:real; const m=1,

     c='a';

    var

     x,y:integer;

    begin

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

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

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

    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;

     read(cccc,tem1);

     writeln("cccc=",cccc);

     tem:=5+add(add(2,3),3)+ 3.5*func +100.4324;

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

     swap;

     writeln("min=",min);

     writeln;

     tem:=add(2,3);

     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

     8 function add(x:integer ; y:integer):integer;

     9 var

     10 m:integer;

     11 begin

     12 m:=(x+y);

     13 writeln("x=",x);

     14 writeln("y=",y);

     15 add:=m;

     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

     66 read(cccc,tem1);

     67 writeln("cccc=",cccc);

     68

     69 tem:=5+add(add(2,3),3)+ 3.5*func +100.4324;

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

     71 swap;

     72 writeln("min=",min);

     73 writeln;

     74

     75 tem:=add(2,3);

     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