Информатика-2
Кафедра ПрЭ
Муравьев А.И.
Томск-2001

Функции. Результат действия программы.

№ 1

Program prim1;
    var a1,a2: integer;
    function func(x1,x2: integer): real;
     begin
        func:=x1/x2+x1;
     end;
    begin
      a1:=20; a2:=4; writeln('y=',func(a1,a2):5:2);
    end.

• y=25.00

№ 2

Program prim1;
    var a1,a2: integer;
    function func(x1,x2: integer): integer;
     begin
        func:=x1*x2+x1+x2*2;
     end;
    begin
      a1:=20; a2:=4; writeln('y=',func(a1,a2):3);
    end.

• y=108

№ 3

Program prim1;
    var a1,a2: string;
    function func(x1,x2: string): string;
     begin
        func:=x1+'.'+x2;
     end;
    begin
      a1:='IVANOV'; a2:='TOMSK'; writeln('y=',func(a1,a2));
    end.

• y=IVANOV.TOMSK

№ 4

Program prim1;
    var a1,a2: integer;
    function func(x1,x2: integer): char;
     begin
        if (x1>5) and (x2<=8) then func:='F' else func:='R';
     end;
    begin
      a1:=20; a2:=10; writeln('y=',func(a1,a2));
    end.

• y=R

№ 5

Program prim1;
    var a1,a2: integer;
    function func(x1,x2: integer): boolean;
     begin
        if (x1=5) or (x2>7) then func:=false else func:=true;
     end;
    begin
      a1:=20; a2:=4; if func(a1,a2) then writeln(a2,';',a1)
               else writeln(a1,';'a2);
    end.

• 4;20

№ 6

Program prim1;
    var a1,a2: integer;
    function func(x1,x2: integer): string;
     begin
        if x1=x2 then func:='DDDD' else func:='FFFF';
     end;
    begin
      a1:=10; a2:=100; 
      if func(a1,a2)='DDDD'
      then writeln ('FFFF') else writeln('DDDD');

    end.

• DDDD

№ 7

Program prim1;
    var c1,c2: char;
    function func(x1,x2: char): string;
     begin
        func:=x1+x1+x2+x1+x2+x2;
     end;
    begin
      c1:='D'; c2:='4'; writeln('y=',func(c1,c2));
    end.

• y=DD4D44

№ 8

Program prim1;
    var a1,a2: integer;
    function func(x1,x2: integer): char;
     begin
        if x1<x2 then func:='D' else func:='F';
     end;
    begin
      a1:=4; a2:=10; writeln(func(a1,a2),func(a2,a1),func(a1,a2));
    end.

• DFD

№ 9

Program prim1;
    var a1,a2: integer;
    function func(x1,x2: integer): boolean;
     begin
        if x1>x2 then func:=true else func:=false;
     end;
    begin
      a1:=44; a2:=14; writeln('y=', func(a1,a2));
    end.

• y=TRUE

Процедуры. Результат действия программы.

№ 1

Program prim1;
 const n=3;
 type mass=array[1..n,1..n] of integer;
 var a1,a2:integer; m:mass; s:integer;
 
 procedure proc_prim(n1:integer;mm:mass;var ss:integer);
 var i,j:integer;
  begin
  for i:=1 to n1 do for j:=1 to n1 do ss:=ss+mm[i,j];
  end;
 begin
  m[1,1]:=1; m[1,2]:=5; m[1,3]:=2;
  m[2,1]:=-5; m[2,2]:=4; m[2,3]:=8;
  m[3,1]:=-9; m[3,2]:=6; m[3,3]:=18;
  s:=4; proc_prim(n,m,s); writeln(s);
 end.

• 34

№ 2

Program prim1;
 const n=3;
 type mass=array[1..n,1..n] of integer;
 var a1,a2:integer; m:mass; s:integer;
 
 procedure proc_prim(n1:integer;mm:mass;var ss:integer);
 var i,j:integer;
  begin
  for i:=1 to n1 do for j:=1 to n1 do ss:=ss+mm[i,i];
  end;
 begin
  m[1,1]:=1; m[1,2]:=5; m[1,3]:=2;
  m[2,1]:=-5; m[2,2]:=4; m[2,3]:=8;
  m[3,1]:=-9; m[3,2]:=6; m[3,3]:=18;
  s:=4; proc_prim(n,m,s); writeln(s);
 end.

• 73

№ 3

Program prim1;
 const n=3;
 type mass=array[1..n,1..n] of integer;
 var a1,a2:integer; m:mass; s:integer;
 
 procedure proc_prim(n1:integer;mm:mass;var ss:integer);
 var i,j:integer;
  begin
  for i:=1 to n1 do for j:=1 to n1 do ss:=ss+mm[j,i];
  end;
 begin
  m[1,1]:=1; m[1,2]:=5; m[1,3]:=2;
  m[2,1]:=-5; m[2,2]:=4; m[2,3]:=8;
  m[3,1]:=-9; m[3,2]:=6; m[3,3]:=18;
  s:=4; proc_prim(n,m,s); writeln(s);
 end.

• 34

№ 4

Program prim1;
 const n=3;
 type mass=array[1..n,1..n] of integer;
 var a1,a2:integer; m:mass; s:integer;
 
 procedure proc_prim(n1:integer;mm:mass;var ss:integer);
 var i,j:integer;
  begin
  for i:=1 to n1 do for j:=1 to n1 do ss:=ss+mm[1,j];
  end;
 begin
  m[1,1]:=1; m[1,2]:=5; m[1,3]:=2;
  m[2,1]:=-5; m[2,2]:=4; m[2,3]:=8;
  m[3,1]:=-9; m[3,2]:=6; m[3,3]:=18;
  s:=4; proc_prim(n,m,s); writeln(s);
 end.

• 28

№ 5

Program prim1;
 const n=3;
 type mass=array[1..n,1..n] of integer;
 var a1,a2:integer; m:mass; s:integer;
 
 procedure proc_prim(n1:integer;mm:mass;var ss:integer);
 var i,j:integer;
  begin
  for i:=1 to n1 do for j:=1 to n1 do ss:=ss+mm[i,j];
  end;
 begin
  m[1,1]:=1; m[1,2]:=5; m[1,3]:=2;
  m[2,1]:=-5; m[2,2]:=4; m[2,3]:=8;
  m[3,1]:=-9; m[3,2]:=6; m[3,3]:=18;
  s:=6; proc_prim(n,m,s); writeln(s);
 end.

• 36

№ 6

Program prim1;
 const n=3;
 type mass=array[1..n,1..n] of integer;
 var a1,a2:integer; m:mass; s:integer;
 
 procedure proc_prim(n1:integer;mm:mass;var ss:integer);
 var i,j:integer;
  begin
  for i:=1 to n1 do for j:=1 to n1 do ss:=ss+mm[i,j];
  end;
 begin
  m[1,1]:=1; m[1,2]:=5; m[1,3]:=2;
  m[2,1]:=-5; m[2,2]:=4; m[2,3]:=8;
  m[3,1]:=-9; m[3,2]:=6; m[3,3]:=18;
  s:=0; proc_prim(n,m,s); writeln(s);
 end.

• 30

№ 7

Program prim1;
 const n=3;
 type mass=array[1..n,1..n] of char;
 var a1,a2:integer; m:mass; s: string;
 
 procedure proc_prim(n1:integer;mm:mass;var ss:string);
 var i,j:integer;
  begin
  for i:=1 to n1 do for j:=1 to n1 do ss:=ss+mm[i,j];
  end;
 begin
  m[1,1]:='A'; m[1,2]:='G'; m[1,3]:='R';
  m[2,1]:='5'; m[2,2]:='Y'; m[2,3]:='W';
  m[3,1]:='U'; m[3,2]:='&'; m[3,3]:='#';
  s:=''; proc_prim(n,m,s); writeln(s);
 end.

• AGR5YWU&#

Локальные и глобальные переменные. Результат действия программы.

№ 1

Program prim1;
 var a1,a2:integer; b1,b2:real; c1,c2:char; s1,s2:string;
 procedure pr1;
  var c,c1:char; a,a1:integer; b,b1:real; s2,ss:string;
  begin
   a1:=30; b:=5.5; a2:=7; b1:=b+2; ss:='XYZ'; s1:=ss+s1+'DF'; s2:=c2;
   writeln(a1:2,a2:1,b1:3:1,s1:8,s2:1);
  end;
 begin
  a1:=4; a2:=20; b1:=5.7; b2:=12.4; c1:='3'; c2:='R';
  s1:='HJK'; s2:='RT6'; pr1;
 end.

• 3077.5XYZHJKDFR

№ 2

Program prim1;
 var a1,a2:integer; b1,b2:real; c1,c2:char; s1,s2:string;
 procedure pr1;
  var c,c1:char; a,a1:integer; bb:real; s2,ss:string;
  begin
   a1:=10; a2:=17; bb:=10.4; b2:=bb-4; ss:=''; s1:=ss+s1+'DF';
   writeln(a1:2,a2:2,b1:3:1,s1:4);
  end;
 begin
  a1:=8; a2:=2; b1:=20.3; b2:=2.7; c1:='W'; c2:='5';
  s1:='FJ'; s2:='56L'; pr1;
 end.

• 101720.3FJDF

№ 3

Program prim1;
 var a1,a2:integer; b1,b2:real; c1,c2:char; s1,s2:string;
 procedure pr1;
  var c,c1:char; a1,a2:integer; b1:real; s2:string;
  begin
   a1:=8; b2:=0.2; a2:=33; b1:=2; s1:='WWW'; s2:='RR'; s1:=s1+s2+'DF';
   writeln(a1,a2,b1:3:1,s1,s2);
  end;
 begin
  a1:=14; a2:=2; b1:=0.7; b2:=2.4; c1:='R'; c2:='U';
  s1:='KJH'; s2:='YYY'; pr1;
 end.

• 8332.0WWWRRDFRR

№ 4

Program prim1;
 var a1,a2:integer; b1,b2:real; c1,c2:char; s1,s2:string;
 procedure pr1;
  var c,c1:char; a:integer; b,b1:real; ss:string;
  begin
   a1:=1; a:=44; c1:='N'; b:=15.2; a2:=a; b1:=2.2 ss:='QQW';
   writeln(a1,a2,b1:3:1,c2,s1,s2);
  end;
 begin
  a1:=4; a2:=20; b1:=5.7; b2:=12.4; c1:='3'; c2:='R';
  s1:='R'; s2:='MS-DOS'; pr1;
 end.

• 1442.2RRMS-DOS

№ 5

Program prim1;
 var a1,a2:integer; b1,b2:real; c1,c2:char; s1,s2:string;
 procedure pr1;
  var c,c2:char; a1:integer; b1:real; ss:string;
  begin
   a1:=122; b1:=5; a2:=88; b1:=22; ss:='11'; s2:='22';
   writeln(a1,a2,b1:4:1,s1,s2);
  end;
 begin
  a1:=41; a2:=21; b1:=33.3; b2:=2.4; c1:='G'; c2:='G';
  s1:='JJK'; s2:='LLI'; pr1;
 end.

• 1228822.0JJK22

№ 6

Program prim1;
 var a1,a2:integer; b1,b2:real; c1,c2:char; s1,s2:string;
 procedure pr1;
  var c:char; a:integer; b1:real;
  begin
   a1:=0; a:=7; b1:=b2+2; b2:=b1;
   writeln(a1,a2,b1:3:1,b2:3:1,s1,s2);
  end;
 begin
  a1:=4; a2:=20; b1:=5.7; b2:=12.4; c1:='3'; c2:='R';
  s1:='FFFF'; s2:='HJKL'; pr1;
 end.

• 0202.02.0FFFFHJKL

№ 7

Program prim1;
 var a1,a2:integer; b1,b2:real; c1,c2:char; s1,s2:string;
 procedure pr1;
  var c,c1:char; b,b1:real; s2,ss:string;
  begin
   a1:=2; b1:=5.5; s1:=s1; s2:='RRT';
   writeln(a1,a2,b1:3:1,b2:4:1,s1,s2);
  end;
 begin
  a1:=4; a2:=20; b1:=5.7; b2:=12.4; c1:='3'; c2:='R';
  s1:='HJK'; s2:='RT6' pr1;
 end.

• 2205.512.4HJKRRT

№ 8

Program prim1;
 var a1,a2:integer; b1,b2:real; c1,c2:char; s1,s2:string;
 procedure pr1;
  var c,c1:char; a,a1:integer; b,b1:real; s2:string;
  begin
   a1:=30; b:=5.5; a2:=7; b1:=b+2; s2:='DDD'+'FFF';
   writeln(a1,a2,b1:3:1,s2);
  end;
 begin
  a1:=4; a2:=20; c1:='3'; c2:='R';
  pr1;
 end.

• 3077.5DDDFFF

№ 9

Program prim1;
 var a1,a2:integer; b1,b2:real; c1,c2:char; s1,s2:string;
 procedure pr1;
  var c,c1:char;
  begin
   a1:=30; a2:=7; b1:=b1+2; s1:='ZZZ';
   writeln(a1,a2,b1:4:1,s1,s2);
  end;
 begin
  a1:=9; a2:=10; b1:=11.1; b2:=12.2; c1:='4'; c2:='5';
  s1:='123'; s2:='456'; pr1;
 end.

• 30713.1ZZZ456

№ 10

Program prim1;
 var c1,c2:char; s1,s2:string;
 procedure pr1;
  var a1,a2:integer; b1,b2:real;
  begin
   a1:=3; b2:=25.5; a2:=73; b1:=33; s1:='ZYX'; s2:='XYZ';
   writeln(a1,a2,b1:4:1,s1,s2);
  end;
 begin
  c1:='3'; c2:='R';
  s1:='GG'; s2:='LL'; pr1;
 end.

• 37333.0ZYXXYZ

Параметры-значения и параметры-переменные. Результат действия программы.

№ 1

Program prim1;
 var x1,x2:integer; y1,y2:real; c1,c2:char; s1,s2:string;
 procedure pr1(var xx1:integer;var xx2:integer;var cc1:char;cc2:char);
  begin
    xx1:=72; xx2:=xx1+5; cc1:='T'; cc2:='D';
  end;
 begin
  x1:=34; x2:=555; c1:='F'; c2:='S';
  pr1(x1,x2,c1,c2); writeln(x1,x2,c1,c2);
 end.

• 7277TS

№ 2

Program prim1;
 var x1,x2:integer; y1,y2:real; c1,c2:char; s1,s2:string;
 procedure pr1(xx1:integer; var xx2:integer; var cc1:char;cc2:char);
  begin
   xx1:=22; xx2:=xx1+5; cc1:='T'; cc2:='D'; 
  end;
 begin
  x1:=4; x2:=20; c1:='3'; c2:='R';
  pr1(x1,x2,c1,c2); writeln(x1,x2,c1,c2);
 end.

• 427TR

№ 3

Program prim1;
 var x1,x2:integer; y1,y2:=real; c1,c2:char; s1,s2:string;
 procedure pr1(var xx1:integer;var xx2:integer;var ss1:string;ss2:string);
  begin
   xx1:=2; xx2:=xx1+24; ss1:='TTTT'; ss2:='DDDD';
  end;
 begin
  x1:=24; x2:=2; c1:='R'; c2:='4'; s1:='TOMSK'; s2:='TUSUR';
  pr1(x1,x2,s1,s2); writeln(x1,x2,s1,s2);
 end.

• 226TTTTTUSUR

№ 4

Program prim1;
 var x1,x2:integer; y1,y2:real; c1,c2:char; s1,s2:string;
 procedure pr1(var xx1,xx2:integer; var cc1:char;cc2:char);
  begin
   xx1:=5; xx2:=55; cc1:='5'; cc2:='6';
  end;
 begin
  x1:=77; x2:=88; c1:='9'; c2:='8';
  pr1(x1,x2,c1,c2); writeln(x1,x2,c1,c2);
 end.

• 55558

№ 5

Program prim1;
 var x1,x2:integer; c1,c2:char; s1,s2:string;
 procedure pr1(var xx1,xx2:integer; var cc1,cc2:char);
  begin
   xx1:=33; xx2:=44; cc1:='5'; cc2:='6'; 
  end;
 begin
  x1:=7; x2:=8; c1:='2'; c2:='1';
  pr1(x1,x2,c1,c2); writeln(x1,x2,c1,c2);
 end.

• 334456

№ 6

Program prim1;
 var x1,x2:integer; bb:boolean; c1,c2:char; s1,s2:string;
 procedure pr1(xx1,xx2:integer; cc1:char; var bb1:boolean);
  begin
   xx1:=123; xx2:=456; cc1:='W'; bb:=false;
  end;
 begin
  x1:=4; x2:=20; c1:='3'; c2:='R'; bb:=true;
  pr1(x1,x2,c1,bb);
  if bb then writeln(x1,x2,c1) else writeln(c1,x1,x2);
 end.

• 3420

№ 7

Program prim1;
 var x1,x2:integer; bb:boolean; c1,c2:char; s1,s2:string;
 procedure pr1(xx1,xx2:integer; cc1:char; var bb1:boolean);
  begin
   xx1:=123; xx2:=456; cc1:='3'; bb:=true;
  end;
 begin
  x1:=4; x2:=20; c1:='3'; c2:='R'; bb:=true;
  pr1(x1,x2,c1,bb);
  if bb then writeln(x1,x2,c1) else writeln(c1,x1,x2);
 end.

• 4203

№ 8

Program prim1;
 var c1,c2:char; s1,s2:string;
 procedure pr1(var cc1:char;cc2:char;var ss1:string;ss2:string);
  begin
   cc1:='2'; cc2:='5'; ss1:='12345'; ss2:='54321';
  end;
 begin
  c1:='4'; c2:='3'; s1:='3333'; s2:='4444';
  pr1(c1,c2,s1,s2); writeln(c1,c2,s1,s2);
 end.

• 23123454444

№ 9

Program prim1;
 var x1,x2:integer; s1,s2:string;
 procedure pr1(var xx1,xx2:integer;ss1,ss2:string);
  begin
   xx1:=22; xx2:=xx1+5; ss1:='34567'; ss2:='DD65DD';
  end;
 begin
  x1:=41; x2:=2; s1:='3'; s2:='R'+'3'+s1;
  pr1(x1,x2,s1,s2); writeln(x1,x2,s1,s2);
 end.

• 22273R33

№ 10

Program prim1;
 var x1,x2:integer; y1,y2:real; c1,c2:char; s1,s2:string;
 procedure pr1(var xx1:integer;xx2:integer;var cc1,cc2:char);
  begin
   xx1:=22; xx2:=5; cc1:='Y'; cc2:='X'
  end;
 begin
  x1:=282; x2:=828; c1:='X'; c2:='Y';
  pr1(x1,x2,c1,c2); writeln(x1,x2,c1,c2);
 end.

• 22828YX

Работа со строковыми функциями. Результат действия программы.

№ 1

Program prover;
  const a='IVANOVPETROV';
 var
  
  a1: string; n1,n2: integer;
  begin
  a1:=a; n1:=4; n2:=5;
  delete(a1,n1,n2); writeln(a1);
  end.

• IVATROV

№ 2

Program prover;
  const a='IVANOVPETROV';
 var
  
  a1: string; n1: integer;
  begin
  a1:=a; n1:=4; 
  insert('ALFA',a1,n1); writeln(a1);
  end.

• IVAALFANOVPETROV

№ 3

Program prover;
  const a='IVANOVPETROV';
 var
  
  a1: string; n1,n2: integer;
  begin
  a1:=a; n1:=4; n2:=5;
  writeln(copy(a1,n1,n2));
  end.

• NOVPE

№ 4

Program prover;
  const a='IVANOVPETROV';
 var
  
  a1,a2: string; 
  begin
  a1:=a; a2:=concat('ALFA',copy(a1,5,6),'OMEGA');
  writeln(a2);
  end.

• ALFAOVPETROMEGA

№ 5

Program prover;
  const a='IVANOVPETROV';
 var
  
  a1: string; n1,n2: integer;
  begin
  a1:=a; n1:=4; n2:=5;
  writeln(length(copy(a1,n1,n2+7)));
  end.

• 9

№ 6

Program prover;
  const a='IVANOVPETROV';
 var
  
  a1: string; n2: integer;
  begin
  a1:=a; n2:=5;
  n2:=pos('VPE',a1); writeln(n2);
  end.

• 6

№ 7

Program prover;
 var
  
  a1: string; 
  begin
   a1:=UpCase('i')+UpCase('V')+UpCase('a')+UpCase('N')+UpCase('o')+UpCase('V'); writeln(a1);
  end.

• IVANOV

Работа со стандартными функциями. Результат действия программы.

№ 1

Program prover;
 var
  n1,n2,x1,x2:integer; a1,a2,y1,y2:real; c1,c2:char;
  begin  
  n1:=22; n2:=9; a1:=23.71; a2:=12.12; c1:='D';
  x1:=round(a1+a2); dec(x1,7); writeln(x1);
  end.

• 29

№ 2

Program prover;
 var
  n1,n2,x1,x2:integer; a1,a2,y1,y2:real; c1,c2:char;
  begin  
  n1:=22; n2:=9; a1:=23.71; a2:=12.12; c1:='D';
  x1:=trunc(a1-a2); inc(x1,5); writeln(x1);
  end.

• 16

№ 3

Program prover;
 var
  n1,n2,x1,x2:integer; a1,a2,y1,y2:real; c1,c2:char;
  begin  
  n1:=22; n2:=9; a1:=23.71; a2:=12.12; c1:='D';
  c2:=Succ(c1); writeln(c2);
  end.

• E

№ 4

Program prover;
 var
  n1,n2,x1,x2:integer; a1,a2,y1,y2:real; c1,c2:char;
  begin  
  n1:=22; n2:=9; a1:=23.71; a2:=12.12; c1:='D';
  c2:=Pred(c1); writeln(c2);
  end.

• C

№ 5

Program prover;
 var
  n1,n2,x1,x2:integer; a1,a2,y1,y2:real; c1,c2:char;
  begin  
  n1:=22; n2:=9; a1:=23.71; a2:=12.12; c1:='D';
  writeln(odd(n1+n2-1));
  end.

• FALSE

№ 6

Program prover;
 var
  n1,n2,x1,x2:integer; a1,a2,y1,y2:real; c1,c2:char;
  begin  
  n1:=22; n2:=9; a1:=23.71; a2:=12.12; c1:='D';
  writeln(frac(a1-a2):4:2);
  end.

• 0.59

№ 7

Program prover;
 var
  n1,n2,x1,x2:integer; a1,a2,y1,y2:real; c1,c2:char;
  begin  
  n1:=22; n2:=9; a1:=23.71; a2:=12.12; c1:='D';
  writeln(a1-a2+frac(a1+a2):5:2);
  end.

• 12.42

№ 9

Program prover;
 var
  n1,n2,x1,x2:integer; a1,a2,y1,y2:real; c1,c2:char;
  begin  
  n1:=22; n2:=9; a1:=23.71; a2:=12.12; c1:='D';
  x2:=n1+n2; inc(x2,22); writeln(trunc(x2+1.65));
  end.

• 54

№ 10

Program prover;
 var
  n1,n2,x1,x2:integer; a1,a2,y1,y2:real; c1,c2:char;
  begin  
  n1:=22; n2:=9; a1:=23.71; a2:=12.12; c1:='D';
  writeln(trunc(a1)+round(a2));
  end.

• 35

Работа с файлами.

№ 1
Какие файлы должны существовать к моменту запуска этой программы?

Program filer;
 Var i,j:integer;
 f1,f2,f3,f4,f5,f6:text;
 begin
 assign(f1,'my_file1.txt');  assign(f2,'my_file2.txt');
 assign(f3,'my_file3.txt');  assign(f4,'my_file4.txt');
 assign(f5,'my_file5.txt');  assign(f6,'my_file6.txt');
  append(f1); rewrite(f2);  reset(f3);  append(f4);
  reset(f5);  rewrite(f6);
 end.

• my_file1.txt
• my_file2.txt
• my_file4.txt
• my_file5.txt

№ 2
Какие файлы должны существовать к моменту запуска этой программы?

Program filer;
 Var i,j:integer;
 f1,f2,f3,f4,f5,f6:text;
 begin
 assign(f1,'my_file1.txt');  assign(f2,'my_file2.txt');
 assign(f3,'my_file3.txt');  assign(f4,'my_file4.txt');
 assign(f5,'my_file5.txt');  assign(f6,'my_file6.txt');
  append(f2); rewrite(f6);  reset(f5);  append(f4);
  reset(f1);  rewrite(f3);
 end.

• my_file1.txt
• my_file2.txt
• my_file3.txt
• my_file4.txt

№ 3
Какие файлы должны существовать к моменту запуска этой программы?

Program filer;
 Var i,j:integer;
 f1,f2,f3,f4,f5,f6:text;
 begin
 assign(f1,'my_file1.txt');  assign(f2,'my_file2.txt');
 assign(f3,'my_file3.txt');  assign(f4,'my_file4.txt');
 assign(f5,'my_file5.txt');  assign(f6,'my_file6.txt');
  append(f5); rewrite(f3);  reset(f1);  append(f2);
  reset(f6);  rewrite(f4);
 end.

• my_file1.txt
• my_file3.txt
• my_file4.txt
• my_file6.txt

№ 4
Какие файлы будут созданы вновь в результате выполнения программы?

Program filer;
 Var i,j:integer;
 f1,f2,f3,f4,f5,f6:text;
 begin
 assign(f1,'my_file1.txt');  assign(f2,'my_file2.txt');
 assign(f3,'my_file3.txt');  assign(f4,'my_file4.txt');
 assign(f5,'my_file5.txt');  assign(f6,'my_file6.txt');
  append(f1); rewrite(f2);  reset(f3);  append(f4);
  reset(f5);  rewrite(f5);
 end.

• my_file3.txt
• my_file4.txt

№ 5
Какие файлы будут созданы вновь в результате выполнения программы?

Program filer;
 Var i,j:integer;
 f1,f2,f3,f4,f5,f6:text;
 begin
 assign(f1,'my_file1.txt');  assign(f2,'my_file2.txt');
 assign(f3,'my_file3.txt');  assign(f4,'my_file4.txt');
 assign(f5,'my_file5.txt');  assign(f6,'my_file6.txt');
  append(f2); rewrite(f1);  reset(f6);  append(f4);
  reset(f3);  rewrite(f5);
 end.

• my_file1.txt
• my_file4.txt

№ 6
Какие файлы открыты для считывания из них данных?

Program filer;
 Var i,j:integer;
 f1,f2,f3,f4,f5,f6:text;
 begin
 assign(f1,'my_file1.txt');  assign(f2,'my_file2.txt');
 assign(f3,'my_file3.txt');  assign(f4,'my_file4.txt');
 assign(f5,'my_file5.txt');  assign(f6,'my_file6.txt');
  append(f6); rewrite(f6);  reset(f4);  append(f3);
  reset(f2);  rewrite(f1);
 end.

• my_file2.txt
• my_file3.txt

№ 7
Какие файлы открыты для дополнения в них данных?

Program filer;
 Var i,j:integer;
 f1,f2,f3,f4,f5,f6:text;
 begin
 assign(f1,'my_file1.txt');  assign(f2,'my_file2.txt');
 assign(f3,'my_file3.txt');  assign(f4,'my_file4.txt');
 assign(f5,'my_file5.txt');  assign(f6,'my_file6.txt');
  append(f1); rewrite(f2);  reset(f3);  append(f4);
  reset(f5);  rewrite(f5);
 end.

• my_file1.txt
• my_file2.txt

№ 8
Какие файлы открыты для дополнения в них данных?

Program filer;
 Var i,j:integer;
 f1,f2,f3,f4,f5,f6:text;
 begin
 assign(f1,'my_file1.txt');  assign(f2,'my_file2.txt');
 assign(f3,'my_file3.txt');  assign(f4,'my_file4.txt');
 assign(f5,'my_file5.txt');  assign(f6,'my_file6.txt');
  append(f2); rewrite(f1);  reset(f6);  append(f4);
  reset(f3);  rewrite(f5);
 end.

• my_file2.txt
• my_file3.txt

№ 9
Какие файлы открыты для записи в них данных?

Program filer;
 Var i,j:integer;
 f1,f2,f3,f4,f5,f6:text;
 begin
 assign(f1,'my_file1.txt');  assign(f2,'my_file2.txt');
 assign(f3,'my_file3.txt');  assign(f4,'my_file4.txt');
 assign(f5,'my_file5.txt');  assign(f6,'my_file6.txt');
  append(f6); rewrite(f6);  reset(f4);  append(f3);
  reset(f2);  rewrite(f1);
 end.

• my_file1.txt
• my_file4.txt
• my_file5.txt
• my_file6.txt

Система MathCad.

№ 1
Задана матрица

Последовательность А[(1,2)]= при ORIGIN=0 выведет на экран число:
• 6

№ 2
Наберите последовательность на клавиатуре для задания переменной h с пределами изменения от 1.3 до 10.5 с шагом 0.1:
• h:1.3,1.4;10.5

№ 3
Наберите последовательность на клавиатуре для задания мнимой единицы:
• i:|-1

№ 4
Вектор вторых производных при сплайн-интерполяции и кубической экстраполяции возвращает функция:
• cspline

№ 5
Задана квадратная матрица М. Наберите на клавиатуре последовательность для присваивания квадратной матрице G обратной матрицы М.
• G:M^-1

№ 6
Задана матрица:

Функция cols(M) возвратит значение:
• 4

№ 7
Значение ORIGIN (нижнее значение индекса) по умолчанию:
• 0

№ 8
Система MathCad оперирует:
• и с одномерными, и с двухмерными типами массивов.