№ 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
№ 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
№ 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
№ 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
№ 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
№ 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
№ 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
№ 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
№ 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
№ 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 оперирует:
• и с одномерными, и с двухмерными типами массивов.
на главную | база по специальностям | база по дисциплинам | статьи |
Другие статьи по теме