DOC

y:integer):integer

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

Report this document

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