Вопрос Что выведет оператор Writeln в результате действия программы?
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,у=25.00}
2
Вопрос Что выведет оператор Writeln в результате действия программы?
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,у=108}
3
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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)
name Процедуры
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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&#)
name Локальные и глобальные переменные
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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)
0
Вопрос Что выведет оператор Writeln в результате действия программы?
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)
name Параметры-значения и параметры-переменные
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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)
0
Вопрос Что выведет оператор Writeln в результате действия программы?
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)
name Работа со строковыми функциями
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
Program prover;
const a='IVANOVPETROV';
var
a1: string; n1: integer;
begin
a1:=a; n1:=4;
insert('ALFA',a1,n1); writeln(a1);
end.
Ответ(IVAALFANOVPETROV)
3
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
Program prover;
const a='IVANOVPETROV';
var
a1: string; n2: integer;
begin
a1:=a; n2:=5;
n2:=pos('VPE',a1); writeln(n2);
end.
Ответ(6)
7
Вопрос Что выведет оператор Writeln в результате действия программы?
Program prover;
var
a1: string;
begin
a1:=UpCase('i')+UpCase('V')+UpCase('a')+UpCase('N')+UpCase('o')+UpCase('V'); writeln(a1);
end.
Ответ(IVANOV)
name Работа со стандартными функциями
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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
Вопрос Что выведет оператор Writeln в результате действия программы?
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)
0
Вопрос Что выведет оператор Writeln в результате действия программы?
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)
name Работа с файлами
#{#menu#size06
Вопрос Указать, какие файлы должны существовать к моменту запуска этой программы?
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.
#vars 1) my_file1.txt
#vars 2) my_file2.txt
#varn 3) my_file3.txt
#vars 4) my_file4.txt
#vars 5) my_file5.txt
#varn 6) my_file6.txt
2
#{#menu#size06
Вопрос Указать, какие файлы должны существовать к моменту запуска этой программы?
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.
#vars 1) my_file1.txt
#vars 2) my_file2.txt
#vars 3) my_file3.txt
#vars 4) my_file4.txt
#varn 5) my_file5.txt
#varn 6) my_file6.txt
3
#{#menu#size06
Вопрос Указать, какие файлы должны существовать к моменту запуска этой программы?
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.
#vars 1) my_file1.txt
#varn 2) my_file2.txt
#vars 3) my_file3.txt
#vars 4) my_file4.txt
#varn 5) my_file5.txt
#vars 6) my_file6.txt
4
#{#menu#size06
Вопрос Указать, будут созданы вновь в результате выполнения программы?
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.
#varn 1) my_file1.txt
#varn 2) my_file2.txt
#vars 3) my_file3.txt
#vars 4) my_file4.txt
#varn 5) my_file5.txt
#varn 6) my_file6.txt
5
#{#menu#size06
Вопрос Указать, какие файлы будут созданы вновь в результате выполнения программы?
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.
#vars 1) my_file1.txt
#varn 2) my_file2.txt
#varn 3) my_file3.txt
#vars 4) my_file4.txt
#varn 5) my_file5.txt
#varn 6) my_file6.txt
6
#{#menu#size06
Вопрос Указать, какие файлы открыты для считывания из них данных?
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.
#varn 1) my_file1.txt
#vars 2) my_file2.txt
#vars 3) my_file3.txt
#varn 4) my_file4.txt
#varn 5) my_file5.txt
#varn 6) my_file6.txt
7
#{#menu#size06
Вопрос Указать, какие файлы открыты для дополнения в них данных?
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.
#vars 1) my_file1.txt
#vars 2) my_file2.txt
#varn 3) my_file3.txt
#varn 4) my_file4.txt
#varn 5) my_file5.txt
#varn 6) my_file6.txt
8
#{#menu#size06
Вопрос Указать, какие файлы открыты для дополнения в них данных?
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.
#varn 1) my_file1.txt
#vars 2) my_file2.txt
#vars 3) my_file3.txt
#varn 4) my_file4.txt
#varn 5) my_file5.txt
#varn 6) my_file6.txt
9
#{#menu#size06
Вопрос Указать, какие файлы открыты для записи в них данных?
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.
#vars 1) my_file1.txt
#varn 2) my_file2.txt
#varn 3) my_file3.txt
#vars 4) my_file4.txt
#vars 5) my_file5.txt
#vars 6) my_file6.txt
name Система MathCad
Вопрос Tabl
#Text " Задана матрица
#math [А]:=[matE(3,3,3,5,7,8,3,1,4,6,7)]
Какое число выведет на экран последовательность
А[(1,2)]= при ORIGIN=0?
"
Ответ(6)
2
Вопрос Tabl
#Text "Наберите последовательность на клавиатуре для задания переменной h с пределами изменения от 1.3 до 10.5 с шагом 0.1?
"
Ответkey,=+ end(h:1.3,1.4;10.5)
3
Вопрос Наберите последовательность на клавиатуре для задания мнимой единицы i ?
Ответ(i:|-1)
4
#{#menu#size05
Вопрос Какая функция из перечисленных ниже возвращает вектор вторых производных при сплайн-интерполяции и кубической экстраполяции:
#varn 1) linterp
#vars 2) cspline
#varn 3) pspline
#varn 4) lspline
#varn 5) interp
5
Вопрос Задана квадратная матрица М. Наберите на клавиатуре последовательность для присваивания квадратной матрице G обратной матрицы М.
Ответ(G:M^-1)
6
Вопрос Tabl
#Text"
Задана матрица:
#math [А]:=[matE(3,4,3,5,7,4,8,3,1,5,4,6,7,8)]
Какое значение возвратит функция cols(M) ?"
Ответ(4)
7
Вопрос Чему равно значение ORIGIN (нижнее значение индекса) по умолчанию?
Ответ(0)
8
#{#menu#size05
Вопрос С какими типами массивов оперирует система MathCad ?
#varn 1) только с одномерными
#varn 2) только с двумерными
#varn 3) только с трехмерными
#vars 4) и с одномерными, и с двухмерными
#varn 5) с одномерными и с трехмерными
#