Программирование на языке высокого уровня Паскаль

Упражнение 1:

Номер 1

С переменными, относящимися к перечисляемому типу данных, можно выполнять операции:

Ответ:

(1) присваивания

(2) сложения

(3) вывода на экран

(4) отношения

Номер 2

С переменными, относящимися к перечисляемому типу данных, можно выполнять операции:

Ответ:

(1) присваивания

(2) сложения

(3) умножения на константу

(4) сравнения на равенство и неравенство

Номер 3

При описании массива тип индекса может быть:

Ответ:

(1) вещественным

(2) типа byte

(3) интервальным

(4) любым

Упражнение 2:

Номер 1

При описании массива тип индекса может быть:

Ответ:

(1) типа integer

(2) перечисляемым

(3) типа byte

(4) любым

Номер 2

Выберите все правильные утверждения.

Ответ:

(1) под величину типа string отводится 256 байт

(2) величины типа string можно сравнивать между собой

(3) величины типа string можно складывать друг с другом

(4) величины типа string можно вычитать друг из друга

(5) результат сравнения величин типа string имеет тип string

Номер 3

Выберите все правильные утверждения.

Ответ:

(1) под величину типа string[10] отводится 10 байт

(2) под величину типа string[10] отводится 11 байт

(3) в переменной типа string[10] можно хранить строку длиной не менее 10 символов

(4) величину типа string[10] можно складывать только с величиной типа string[10]

(5) можно изменить значение отдельного символа в строке

Упражнение 3:

Номер 1

Выберите все правильные утверждения.

Ответ:

(1) величины типа string можно сравнивать между собой

(2) под величину типа string[10] отводится 10 байт

(3) величины типа string можно складывать и умножать

(4) в элементе строки с номером 0 хранится фактическая длина строки

(5) 0 является признаком конца строки

Номер 2

Выберите все правильные утверждения.

Ответ:

(1) под величину типа string отводится 255 байт

(2) 'abc' < 'abc '

(3) 'ab'+'c' = 'abc'

(4) в элементе строки с номером 0 хранится количество байт, отведенное под строку

(5) для вывода строки на экран нужно организовать цикл по ее элементам

Номер 3

Какое число получится в результате работы программы? 
    
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.

Ответ:

(1) 9

(2) 8

(3) 10

(4) 7

Упражнение 4:

Номер 1

Какое число получится в результате работы программы? 
    
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.

Ответ:

(1) 7

(2) 8

(3) 9

(4) 10

Номер 2

Какое число получится в результате работы программы? 
    
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.

Ответ:

(1) -8

(2) -7

(3) -9

(4) -10

Номер 3

Какое число получится в результате работы программы? 
    
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.

Ответ:

(1) 1

(2) 0

(3) -1

(4) -2

Упражнение 5:

Номер 1

Какое число получится в результате работы программы? 
    
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.

Ответ:

(1) -6

(2) -7

(3) -8

(4) -9

Номер 2

Какое число получится в результате работы программы? 
    
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.

Ответ:

(1) 8

(2) 7

(3) 6

(4) 5

Номер 3

Какое число получится в результате работы программы? 
    
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.

Ответ:

(1) 3

(2) 2

(3) 1

(4) 0

Упражнение 6:

Номер 1

Какое число получится в результате работы программы? 
    
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.

Ответ:

(1) 3

(2) 4

(3) 5

(4) 6

Номер 2

 Какое число буден выведено в результате работы программы?
    
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.

Ответ:

(1) 2

(2) 3

(3) 4

(4) 5

Номер 3

Какое число получится в результате работы программы? 
    
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.

Ответ:

(1) 3

(2) 2

(3) 1

(4) 0

Упражнение 8:

Номер 1

Какую величину вычисляет программа? 
    
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.

Ответ:

(1) сумму номеров отрицательных элементов массива

(2) сумму отрицательных элементов массива

(3) количество отрицательных элементов массива

(4) количество номеров отрицательных элементов массива

Номер 2

Какую величину вычисляет программа? 
    
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.

Ответ:

(1) номер первого элемента, равного нулю

(2) номер последнего элемента, равного нулю

(3) количество элементов, равных нулю

(4) элемент массива, номер которого равен нулю

Номер 3

Какую величину вычисляет программа? 
    
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.

Ответ:

(1) максимальный по модулю элемент массива

(2) первый из элементов массива, больший, чем 4

(3) первый из элементов массива, больший по модулю, чем 4

(4) модуль последнего из элементов массива, больших, чем 4

(5) модуль первого из элементов массива, больших, чем 4

Упражнение 9:

Номер 1

Какую величину вычисляет программа? 
    
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.

Ответ:

(1) первый из элементов массива, больший, чем 4

(2) первый из элементов массива, больший по модулю, чем 4

(3) модуль последнего из элементов массива, больших, чем 4

(4) модуль первого из элементов массива, больших, чем 4

(5) последний из элементов массива, больший по модулю, чем 4

Номер 2

Какую величину вычисляет программа? 
    
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.

Ответ:

(1) количество положительных элементов массива

(2) количество положительных элементов массива в каждой строке

(3) количество положительных элементов массива в последней строке

(4) количество положительных элементов массива в последнем столбце

(5) количество положительных элементов массива в первой строке

Номер 3

Какую величину вычисляет программа? 
    
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.

Ответ:

(1) количество положительных элементов массива

(2) количество положительных элементов массива в каждой строке

(3) количество положительных элементов массива в каждом столбце

(4) количество положительных элементов массива в последней строке

(5) количество положительных элементов массива в последнем столбце

Упражнение 10:

Номер 1

Какую величину вычисляет программа? 
    
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.

Ответ:

(1) номер первого из столбцов массива, содержащих хотя бы один элемент, равный 0

(2) номер последнего из столбцов массива, содержащих хотя бы один элемент, равный 0

(3) количество положительных элементов массива в каждом столбце

(4) номер первой из строк массива, содержащих хотя бы один элемент, равный 0

(5) номер последней из строк массива, содержащих хотя бы один элемент, равный 0

Номер 2

Какую величину вычисляет программа? 
    
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.

Ответ:

(1) номер первого из столбцов массива, содержащих хотя бы один элемент, равный 0

(2) номер последнего из столбцов массива, содержащих хотя бы один элемент, равный 0

(3) количество положительных элементов массива в каждом столбце

(4) номер первой из строк массива, содержащих хотя бы один элемент, равный 0

(5) номер последней из строк массива, содержащих хотя бы один элемент, равный 0

Номер 3

Даны описания: 
    
type	tarr = array [1 ..10] of real;
	tzap = record
		a : real;
		c : tarr;
end;
var	x : tzap;
    
Укажите синтаксически правильные варианты обращения к полям записи:

Ответ:

(1) x[1].tzap

(2) x.a

(3) a.x

(4) x[1].c

Упражнение 11:

Номер 1

Даны описания: 
    
type	tarr = array [1 ..10] of real;
	tzap = record
		a : real;
		c : tarr;
end;
var	x : tzap;
    
Укажите синтаксически правильные варианты обращения к полям записи:

Ответ:

(1) tzap.tarr[1]

(2) x.c[1]

(3) tzap.a

(4) a.tzap

Номер 2

Даны описания: 
    
type	tarr = array [1 ..10] of real;
	tzap = record
		a : real;
		c : tarr;
end;
var	x : tzap;
    
Укажите синтаксически правильные варианты обращения к полям записи:

Ответ:

(1) x.a[1]

(2) x.a

(3) x.c[1]

(4) x.tzap

Номер 3

Даны описания: 
    
type	tarr = array [1 ..10] of real;
	tzap = record
		a : real;
		c : tarr;
end;
var	x : tzap;
    
Укажите синтаксически правильные варианты обращения к полям записи:

Ответ:

(1) x.tarr[1]

(2) a.x

(3) x[1].c

(4) x.c[1]

(5) tzap.tarr[1]

Упражнение 12:

Номер 1

Даны описания: 
    
type	tarr = array [1 ..10] of real;
	tzap = record
		c : real;
		a : tarr;
end;
var	x : array [1 .. 10] of tzap;
    
Укажите синтаксически правильные варианты обращения к полям записи:

Ответ:

(1) c.x[1]

(2) x[1].a[1]

(3) a.x[1]

(4) x.c[1]

Номер 2

Даны описания: 
    
type	tarr = array [1 ..10] of real;
	tzap = record
		c : real;
		a : tarr;
end;
var	x : array [1 .. 10] of tzap;
    
Укажите синтаксически правильные варианты обращения к полям записи:

Ответ:

(1) tzap[1].tarr[1]

(2) x[1].c

(3) tzap.a[1]

(4) x.a.tzap

Номер 3

Даны описания: 
    
type	tarr = array [1 ..10] of real;
	tzap = record
		c : real;
		a : tarr;
end;
var	x : array [1 .. 10] of tzap;
    
Укажите синтаксически правильные варианты обращения к полям записи:

Ответ:

(1) x.tarr[1]

(2) x[1].a[1]

(3) x[1].c

(4) tzap[1].tarr[1]

Упражнение 13:

Номер 1

Даны описания: 
    
type	tarr = array [1 ..10] of real;
	tzap = record
		c : real;
		a : tarr;
end;
var	x : array [1 .. 10] of tzap;
    
Укажите синтаксически правильные варианты обращения к полям записи:

Ответ:

(1) c.x[1]

(2) x[1].a[1]

(3) x[1].c

(4) x[a]

Номер 2

Даны описания: 
    
type	tarr = array [1 ..10] of real;
	tzap = record
		c : real;
		a : tarr;
end;
var	x : array [1 .. 10] of tzap;
    
Укажите синтаксически правильные варианты обращения к полям записи:

Ответ:

(1) a.x[1]

(2) x.a[1]

(3) x[1].c

(4) tzap[1].tarr[1]

Номер 3

Даны описания: 
    
type	tarr = array [1 ..10] of real;
	tzap = record
		c : real;
		a : tarr;
end;
var	x : array [1 .. 10] of tzap;
    
Укажите синтаксически правильные варианты обращения к полям записи:

Ответ:

(1) x.c[1]

(2) x[1].a[1]

(3) x[1].c

(4) x.tarr[1]

Упражнение 14:

Номер 1

Дан фрагмент программы: 
    
var Buf:array[1..100] of real;   f: file;
begin
  assign(f, 'bfile.dat'); reset(f, 30);
  Blockread(f, Buf, 2); …
    
Сколько байтов будет считано из файла?

Ответ:

(1) 3000

(2) 30

(3) 60

(4) 2

(5) 100

(6) 200

Номер 2

Дан фрагмент программы: 
    
var Buf:array[1..100] of integer;   f: file;
begin
  assign(f, 'bfile.dat'); reset(f, 10);
  Blockread(f, Buf, 3); …
    
Сколько байтов будет считано из файла?

Ответ:

(1) 1000

(2) 10

(3) 3

(4) 100

(5) 30

(6) 300

Номер 3

Дан фрагмент программы: 
    
var Buf:array[1..20] of word;   f: file;
begin
  assign(f, 'bfile.dat'); reset(f, 6);
  Blockread(f, Buf, 6); …
    
Сколько байтов будет считано из файла?

Ответ:

(1) 120

(2) 20

(3) 6

(4) 36

Упражнение 15:

Номер 1

Дан фрагмент программы: 
    
var Buf:array[1..10] of single;   f: file;
begin
  assign(f, 'bfile.dat'); reset(f, 4);
  Blockread(f, Buf, 5); …
    
Сколько байтов будет считано из файла?

Ответ:

(1) 50

(2) 4

(3) 5

(4) 10

(5) 20

(6) 40

Номер 2

Дан фрагмент программы: 
    
var Buf:array[1..100] of real;   f: file;
begin
  assign(f, 'bfile.dat'); reset(f, 30);
  Blockread(f, Buf, 3); …
    
Сколько байтов будет считано из файла?

Ответ:

(1) 3000

(2) 3

(3) 30

(4) 90

(5) 100

(6) 300

Номер 3

Дан фрагмент программы: 
    
var Buf:array[1..100] of integer;   f: file;
begin
  assign(f, 'bfile.dat'); reset(f, 10);
  Blockread(f, Buf, 4); …
    
Сколько байтов будет считано из файла?

Ответ:

(1) 1000

(2) 4

(3) 10

(4) 40

(5) 100

(6) 400

Упражнение 16:

Номер 1

Дан фрагмент программы: 
    
var Buf:array[1..20] of word;   f: file;
begin
  assign(f, 'bfile.dat'); reset(f, 6);
  Blockread(f, Buf, 4); …
    
Сколько байтов будет считано из файла?

Ответ:

(1) 120

(2) 4

(3) 6

(4) 20

(5) 24

(6) 80

Номер 2

Дан фрагмент программы: 
    
var Buf:array[1..10] of single;   f: file;
begin
  assign(f, 'bfile.dat'); reset(f, 4);
  Blockread(f, Buf, 2); …
    
Сколько байтов будет считано из файла?

Ответ:

(1) 40

(2) 2

(3) 4

(4) 8

(5) 10

(6) 20

Номер 3

Выберите правильное утверждение:

Ответ:

(1) запись должна состоять из полей различных типов

(2) тип поля записи может быть любым, кроме файлового

(3) запись можно вывести на экран, указав в списке вывода ее имя

(4) записи одного типа можно сравнивать на равенство и неравенство

Упражнение 17:

Номер 1

Выберите все правильные утверждения.

Ответ:

(1) поле записи, в свою очередь, может быть записью

(2) записи одного типа можно присваивать друг другу

(3) имена полей в разных записях не могут совпадать

(4) поле записи не может быть массивом

Номер 2

Выберите все правильные утверждения.

Ответ:

(1) запись должна состоять из полей различных типов

(2) тип поля записи может быть любым, кроме файлового

(3) поле записи, в свою очередь, может быть записью

(4) поле записи не может быть массивом

Номер 3

Выберите правильное утверждение:

Ответ:

(1) запись можно вывести на экран, указав в списке вывода ее имя

(2) записи одного типа можно сравнивать на равенство и неравенство

(3) записи одного типа можно присваивать друг другу

(4) имена полей в разных записях не должны совпадать

Упражнение 18:

Номер 1

Выберите все правильные утверждения.

Ответ:

(1) бестиповой файл можно открыть для чтения и записи одновременно

(2) запись в компонентный файл выполняется с помощью процедуры blockwrite

(3) при записи в компонентный файл для каждой переменной выполняется преобразование в символьную форму представления

(4) текстовый файл можно открыть для добавления информации в конец

Номер 2

Выберите все правильные утверждения.

Ответ:

(1) прямой доступ применяется ко всем типам файлов

(2) бестиповой файл состоит из блоков разной длины

(3) компонентный файл состоит из блоков одинаковой длины

(4) текстовый файл состоит из блоков одинаковой длины

Номер 3

Выберите все правильные утверждения.

Ответ:

(1) бестиповой файл хранит данные во внутреннем представлении

(2) текстовый файл можно открыть для чтения и записи одновременно

(3) длина компонентного файла должна задаваться на этапе компиляции

(4) для описания компонентного файла применяется ключевое слово file

Упражнение 19:

Номер 1

Выберите все правильные утверждения.

Ответ:

(1) размером буфера ввода-вывода можно управлять

(2) размер буфера ввода-вывода задается в опциях компилятора

(3) компонентный файл состоит из блоков одинаковой длины

(4) бестиповой файл можно открыть для чтения и записи одновременно

Номер 2

Выберите все правильные утверждения.

Ответ:

(1) текстовый файл можно открыть для добавления информации в конец

(2) бестиповой файл состоит из блоков разной длины

(3) прямой доступ применяется к бестиповым и компонентным файлам

(4) при записи в компонентный файл для каждой переменной выполняется преобразование в символьную форму представления

Номер 3

Выберите все правильные утверждения.

Ответ:

(1) бестиповой файл хранит данные во внутреннем представлении

(2) запись в бестиповой файл выполняется с помощью процедуры blockwrite

(3) при записи в бестиповой файл для каждой переменной выполняется преобразование в символьную форму представления

(4) для описания бестипового файла применяется ключевое слово file

Программирование на языке высокого уровня Паскаль - тест 3