Программирование на языке высокого уровня Паскаль - ответы
Количество вопросов - 323
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,j,k : integer;begin k := 0; j := 4; for i := 1 to 8 do if abs(a[i]) >j then inc(k); write(k)end.
var Buf:array[1..20] of word; f: file;begin assign(f, 'bfile.dat'); reset(f, 6); Blockread(f, Buf, 6); …Сколько байтов будет считано из файла?
A := 2;if В <= 4 thenC := 1elseC := 0;A := C;
type tarr = array [1 ..10] of real; tzap = record c : real; a : tarr;end;var x : array [1 .. 10] of tzap;Укажите синтаксически правильные варианты обращения к полям записи:
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := a[1]; for i := 2 to 8 do if a[i] >k then k := a[i]; write(k)end.
a b a <операция> bfalse false false false true true true false true true true true
var i:word; t:single; begin i := 1; t := 5; write ('/', t:3:1, i, i:2, '/'); end.
var k:integer; x:real; begin k := 2; x := 3; write ('[',x:4:2, k,']'); end.
A := 2;if В <= 4 then begin C := 1 endelse begin C := 0;A := C;end;
if В <= 4 thenC := 1else C := 0;A := C;
a:=1;if (b>0) and (b<3) then a:=3 elseif b>5 then a:=5;
var k,m : integer;begink:=3; m:=0;while k>0 do begindec(k);inc(m);end;end;
var k,m : word;beginm:=0;for k:=1 to 2 doinc(m); inc(m);end;
const x : integer = 1;var i : integer;beginfor i := 1 to 4 do begin if (i = 3) then continue else if (i = 4) then break; inc(x);end;end.
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := abs(a[8]); for i := 1 to 8 do if abs(a[i]) < k then k := abs(a[i]); write(k)end.
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,j,k : integer;begin k := 0; j := 4; for i := 1 to 8 do if a[i] >j then k := abs(a[i]); write(k)end.
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := 1; for i := 1 to 8 do if a[i] = 0 then k := i; write(k)end.
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := 1; for i := 8 downto 1 do if a[i] = 0 then k := i; write(k)end.
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,j,k : integer;begin k := 0; j := 4; for i := 1 to 8 do if abs(a[i]) >j then k := a[i]; write(k)end.
var a : array[1..3,1..4] of integer;var i,j,k : integer;begin for i := 1 to 3 do for j := 1 to 4 do read(a[i,j]); k:=0; for j := 1 to 4 do for i := 1 to 3 do if a[i,j]=0 then k:=j write(k)end.
type tarr = array [1 ..10] of real; tzap = record a : real; c : tarr;end;var x : tzap;Укажите синтаксически правильные варианты обращения к полям записи:
type tarr = array [1 ..10] of real; tzap = record c : real; a : tarr;end;var x : array [1 .. 10] of tzap;Укажите синтаксически правильные варианты обращения к полям записи:
var Buf:array[1..100] of real; f: file;begin assign(f, 'bfile.dat'); reset(f, 30); Blockread(f, Buf, 2); …Сколько байтов будет считано из файла?
var Buf:array[1..100] of integer; f: file;begin assign(f, 'bfile.dat'); reset(f, 10); Blockread(f, Buf, 4); …Сколько байтов будет считано из файла?
var Buf:array[1..10] of single; f: file;begin assign(f, 'bfile.dat'); reset(f, 4); Blockread(f, Buf, 2); …Сколько байтов будет считано из файла?
var a,b,c,d: integer;Procedure P( a: integer; var c: integer; var d: integer);var b: integer;begin a:=5; c:=7; b:=9;end;begin a:=1; c:=1; b:=1; P(a,c,b); write (a,'|',c,'|',b)end.
var a: string;Procedure P( var a: char; d: char);begin a:='в'; d:='д';end;begin a:='глаз'; P(a[1],a[4]); write (a)end.
var a,b: string;Procedure P( var a: string; b: string);begin a[1]:=b[1]; b[2]:=a[2];end;begin a:='abcd'; b:= 'opr'; P(a,b); write (a,b)end.
type tarr = array[1..10] of real; parr = ^tarr;var p : parr;Укажите правильный вариант обращения к третьему элементу массива:
type tarr = array[1..10] of real; parr = ^tarr;var p : parr;Укажите правильный вариант обращения к третьему элементу массива:
type tzap = record x: array[1..10] of real; end; pzap = ^tzap;var p : pzap;Укажите правильный вариант обращения к третьему элементу массива:
type A = Object Y : Integer; end;var a1:A; a2:^A;Укажите правильные способы обращения к полям этих объектов:
type T = Object Y : Integer; end;var x: T; z: ^T;Укажите правильные способы обращения к полям этих объектов:
type T = Object Y : Integer; function P ( Z : integer):integer; end;var a:^T; i: integer; c: char;Укажите правильный способ обращения к методу P этого объекта:
type A = Object Y : Integer; end; B = Object (A) Z,T : Integer; end;var a1:A; b1:B;Сколько байтов в памяти занимают все поля объекта b1 ?
type A = Object Y : Integer; end; B = Object (A) Z,T : Integer; end;var b1:B;Укажите правильные способы обращения к полям объекта:
type A = Object procedure foo; end; B = Object (A) procedure foo; end;pb = ^B;var a1:^A; begina1 := New(pB); a1^.foo;Процедура foo какого объекта будет вызвана?
var a,b,c,d: integer;Procedure P( var a,c,d: integer);var b: integer;begin a:=5; c:=7; b:=9;end;begin a:=1; b:=1; c:=1; P(a,b,c); write (a,'|',b,'|',c)end.
var a : array[1..3,1..4] of integer;var i,j,k : integer;begin for i := 1 to 3 do for j := 1 to 4 do read(a[i,j]); k:=0; for i := 1 to 4 do for j := 1 to 3 do if a[j,i]=0 then k:=i end; write(k)end.
var a,b: string;Procedure P( a,b: string);var c: string;begin c:=a; a:=b; b:=c;end;begin a:='abc'; b:= 'pr'; P(a,b); write (a,b)end.
a b a <операция> bfalse false false false true false true false false true true true
var a : array[1..3,1..4] of integer;var i,j,k : integer;begin for i := 1 to 3 do for j := 1 to 4 do read(a[i,j]); for i := 1 to 3 do begin k := 0; for j := 1 to 4 do if a[i,j] >0 then inc(k); end; write(k)end.
a:=1;if (b<0) or (b>1) then a:=3;if b>5 then a:=5;
var Buf:array[1..10] of single; f: file;begin assign(f, 'bfile.dat'); reset(f, 4); Blockread(f, Buf, 5); …Сколько байтов будет считано из файла?
var k,m : word;beginm:=1;for k:=3 to 1 do inc(m);end;
a b a <операция> bfalse false false false true true true false true true true false
var k:byte; x:real; begin k := 2; x := 1; write ('*', '*',x:4:1, k:k, '* *'); end.
A := 2;if В <= 4 thenC := 1else begin C := 0;A := C;end;
var k,m : integer;begink:=3; m:=0;while k<0 dodec(k);inc(m);end;
var k,m : word;beginm:=1;for k:=3 downto 1 do;inc(m);end;
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := abs(a[8]); for i := 1 to 8 do if abs(a[i]) >k then k := abs(a[i]); write(k)end.
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,j,k : integer;begin k := 0; j := 4; for i := 1 to 8 do if abs(a[i]) >j then k := a[i]; write(k)end.
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,j,k : integer;begin k := 0; j := 4; for i := 1 to 8 do if a[i] >j then k := abs(a[i]); write(k)end.
type tarr = array [1 ..10] of real; tzap = record a : real; c : tarr;end;var x : tzap;Укажите синтаксически правильные варианты обращения к полям записи:
type tarr = array [1 ..10] of real; tzap = record a : real; c : tarr;end;var x : tzap;Укажите синтаксически правильные варианты обращения к полям записи:
type tarr = array [1 ..10] of real; tzap = record c : real; a : tarr;end;var x : array [1 .. 10] of tzap;Укажите синтаксически правильные варианты обращения к полям записи:
var Buf:array[1..100] of integer; f: file;begin assign(f, 'bfile.dat'); reset(f, 10); Blockread(f, Buf, 3); …Сколько байтов будет считано из файла?
var Buf:array[1..100] of real; f: file;begin assign(f, 'bfile.dat'); reset(f, 30); Blockread(f, Buf, 3); …Сколько байтов будет считано из файла?
var a,b,c,d: integer;Procedure P( var a: integer; c: integer; var d: integer);var b: integer;begin a:=5; c:=7; d:=9;end;begin a:=1; b:=1; c:=1; P(a,b,c); write (a,'|',b,'|',c)end.
type tarr = array[1..10] of real; parr = ^tarr;var p : parr;Укажите правильный вариант обращения к третьему элементу массива:
type tarr = array[1..10] of real; parr = ^tarr;var p : parr;Укажите правильный вариант обращения к третьему элементу массива:
type tzap = record x: array[1..10] of real; end; pzap = ^tzap;var p : pzap;Укажите правильный вариант обращения к третьему элементу массива:
type tzap = record x: array[1..10] of real; end; pzap = ^tzap;var p : pzap;Укажите правильный вариант обращения к третьему элементу массива:
type T = Object Y : Integer; procedure P ( Z : integer); end;var a:^T;Укажите правильный способ обращения к методу P этого объекта:
type A = Object Y : Integer; end; B = Object (A) Z : Integer; end;var a1:A; b1:B;Сколько байтов в памяти занимают все поля объекта b1 ?
type A = Object Y : Integer; end; B = Object (A) Z,T : Integer; end;var b1:B;Укажите правильные способы обращения к полям объекта:
type A = Object constructor Init; procedure foo; virtual; end; B = Object (A) procedure foo; virtual; end;pb = ^B;var a1:^A; begina1 := New(pB); a1^.foo;Процедура foo какого объекта будет вызвана?
var Buf:array[1..20] of word; f: file;begin assign(f, 'bfile.dat'); reset(f, 6); Blockread(f, Buf, 4); …Сколько байтов будет считано из файла?
type tarr = array[1..10] of real; parr = ^tarr;var p : parr;Укажите правильный вариант обращения к третьему элементу массива:
type tzap = record x: array[1..10] of real; end; pzap = ^tzap;var p : pzap;Укажите правильный вариант обращения к третьему элементу массива:
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := 1; for i := 8 downto 1 do if a[i] = 0 then k := i; write(k)end.
var a,b,c,d: integer;Procedure P( a: integer; var c: integer; var d: integer);var b: integer;begin a:=5; c:=7; b:=9;end;begin a:=1; b:=1; c:=1; P(b,a,c); write (a,'|',b,'|',c)end.
type A = Object Y : Integer; end; B = Object (A) Z,T : Integer; end;var b1:B;Укажите правильные способы обращения к полям объекта:
type A = Object Y : Integer; end;var a1:A; a2:^A;Укажите правильные способы обращения к полям этих объектов:
var k:byte; y:real; begin k := 4; y := 2; write ('* *' ,k, y:k:2,' *'); end.
var i:word; t:single; begin i := 2; t := 2; write ('/', t:4:1, i:3, i, '/'); end.
var k,m : word;begink:=3; m:=0;while k<3 do begininc(k);inc(m);end;end;
const x : integer = 1;var i : integer;beginfor i := 1 to 4 do begin inc(x); if (i = 4) then break else if (i = 3) then continue;end;end.
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := a[8]; for i := 1 to 8 do if a[i] < k then k := a[i]; write(k)end.
type tarr = array [1 ..10] of real; tzap = record c : real; a : tarr;end;var x : array [1 .. 10] of tzap;Укажите синтаксически правильные варианты обращения к полям записи:
type tarr = array [1 ..10] of real; tzap = record c : real; a : tarr;end;var x : array [1 .. 10] of tzap;Укажите синтаксически правильные варианты обращения к полям записи:
var a,b: string;Procedure P( a: string; var b: string);begin a[1]:=b[1]; b[2]:=a[2];end;begin a:='abcd'; b:= 'opr'; P(a,b); write (a,b)end.
type T = Object Y : Integer; end;var x: T; z: ^T;Укажите правильные способы обращения к полям этих объектов:
type T = Object Y : Integer; function P ( Z : integer):integer; end;var a:^T; i: integer; c: char;Укажите правильный способ обращения к методу P этого объекта:
var k,m : word;begink:=0; m:=0;while k<3 doinc(k);inc(m);end;
type tarr = array [1 ..10] of real; tzap = record a : real; c : tarr;end;var x : tzap;Укажите синтаксически правильные варианты обращения к полям записи:
type tarr = array [1 ..10] of real; tzap = record c : real; a : tarr;end;var x : array [1 .. 10] of tzap;Укажите синтаксически правильные варианты обращения к полям записи:
type tzap = record x: array[1..10] of real; end; pzap = ^tzap;var p : pzap;Укажите правильный вариант обращения к третьему элементу массива:
type A = Object Y : Integer; procedure X ( Z : integer); end;var a2:^A;Укажите правильный способ обращения к методу X этого объекта:
type A = Object Y : Integer; end; B = Object (A) Z,T : Integer; end;var b1:B;Укажите правильные способы обращения к полям объекта:
var a : array[1..3,1..4] of integer;var i,j,k : integer;begin for i := 1 to 3 do for j := 1 to 4 do read(a[i,j]); for i := 1 to 4 do begin k := 0; for j := 1 to 3 do if a[j,i] >0 then inc(k); end; write(k)end.
a:=1;if b<1 then a:=2;if b>5 then a:=3;
a:=1;if (b>0) and (b<2) then a:=3;if b>5 then a:=5;
var k,m : word;beginm:=1;for k:=1 to 2 do begininc(m); inc(k,2); end;end;
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := 0; for i := 1 to 8 do if a[i] < 0 then k := k + i; write(k)end.
var a: string;Procedure P( a: char; var d: char);begin a:='в'; d:='c';end;begin a:='глаз'; P(a[1],a[4]); write (a)end.
const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,j,k : integer;begin k := 0; j := 2; for i := 1 to 8 do if a[i] < j then inc(k); write(k)end.