Ответы к тесту/контрольной: Программирование на языке Pascal

Какие вершины взвешенного графа, заданного этой матрицей смежности, принадлежат к 10-периферии относительно вершины a? a b c d fa 0 3 10 0 0b 3 0 5 0 0c 10 5 0 2 4d 0 0 2 0 2f 0 0 4 2 0

В текстовом файле f указатель находится в начале последней строки, состоящей только из пробельных символов. Какие из перечисленных ниже функций вернут TRUE в этой ситуации?

Тип данных boolean является

Метод быстрой сортировки является:

Какое значение получит переменная a после выполнения такой программы? var a: byte;proc p1(k: byte);proc p2(var t: byte); begin t:= t*2 end;var a: byte; begin a:= 1; k:= 5; p2(a); end;begin a:= 10; p1(a);end.

Какое значение будет храниться в поле a записи r1 после выполнения следующего блока? var a: longint; r1: record a: word; ... end; r2: record a: integer; ... end;begin a:= 0; with r1 do begin a:= 1000; with r2 do begin a:= 1000; r1.a:= -a; end; r2.a:= -100; end; a:= 100;end.

В текстовом файле f указатель находится в самом конце предпоследней строки, а последняя строка - пустая. Какие из перечисленных ниже функций вернут TRUE в этой ситуации?

Типы данных real и integer являются:

Свойство алгоритма, позволяющее ему решать множество однотипных задач, различающихся лишь входными данными, называется:

Какой тип будет иметь результат выражения a+b при a:byte, b:shortint?

Идентификатор, описанный после ключевого слова label, является именем:

Постройте дерево бинарного поиска (дерево сортировки) для входной последовательности чисел 7 2 5 1 8 3 6 4 9 13 11 10 12, а затем распечатайте вершины этого дерева в порядке обхода в ширину. Какая последовательность чисел получится?

В какой последовательности распечатает вершины графа, заданного этим списком смежности, процедура обхода в ширину? (Обход начинается с вершины a, производится в алфавитном порядке.)a: b db: d ff: c d gd: h gh: g

В какой последовательности распечатает вершины графа, заданного этим списком смежности, процедура прямого обхода? (Обход начинается с вершины a, производится в алфавитном порядке.)a: b db: d ff: c d gd: h gh: g

Меню – это:

Какое из приведенных ниже сообщений о неправильном вводе лучше всего подходит для организации дружественного интерфейса?

Приглашение – это:

Для того, чтобы скомпилировать только те модули программы, которые оказались затронуты внесенными изменениями, нужно воспользоваться командой:

Постройте дерево бинарного поиска (дерево сортировки) для входной последовательности чисел 7 2 5 1 8 3 6 4 9 13 11 10 12, а затем распечатайте вершины этого дерева в порядке обратного обхода. Какая последовательность чисел получится

Какие переменные будут существовать во время выполнения подпрограммы p2? program prog;var a: byte;procedure p1; var a: byte; begin ... end;procedure p2; function f: boolean; var a: byte; begin ... end; var a: byte; begin ... end;

Какая последовательность символов будет содержаться в файле f: file of char после выполнения следующего отрывка программы: rewrite(f);for c:= '0' to '9' do write(f,c); {c: char}seek(f,5);read(f,c);write(f,c);seek(f,3);truncate(f);seek(f,9);write(f,c);

Чтобы иметь возможность считывать информацию из текстового файла, его нужно открыть при помощи команды

Метод сортировки простыми вставками с барьером является:

Какой тип будет иметь результат выражения a+b при a:word, b:integer?

Какие вершины орграфа, заданного этим списком смежности, принадлежат ко второму уровню относительно вершины a?a: d f gb: dd: c fg: hh: f

С текстовыми файлами могут работать файловые переменные, описанные следующим образом:

Сколько нетерминальных вершин содержится в полном бинарном дереве высоты 3?

Свойство алгоритма, позволяющее в каждый момент его исполнения однозначно определить оператор, который будет выполнен следующим, называется:

Какую операцию реализует приведенный ниже программный отрывок? for i:= 1 to N do set_res[i]:= (set1[i] or set2[i])and not set2[i]

Какие из приведенных ниже подпрограмм вычисляют биномиальный коэффициент (Сnk = n!/k!(n-k)!) определяемый следующим образом: Сnk = 0, если k > n;Сnk = 1, если k = 0 или k = n;Сnk = Сn-1k + Сn-1k-1 в остальных случаях.

Описанные ниже подпрограммы function C: boolean; forward;function D: boolean; forward;procedure A; begin x:= c(x); y:= d(y); end;function B: boolean; begin a; end;function C; begin z:= b(z); end;function D; begin z:= b(z); end;

С бинарными файлами могут работать файловые переменные, описанные следующим образом:

Типы данных double и real являются:

Какой оператор нужно вставить вместо [???], чтобы приведенный ниже отрывок программы правильно менял местами третий и четвертый элементы двусвязного линейного списка, заданного указателем на голову head?{type ssylka = ^spisok; spisok = record znach: array[1..1000]of integer; next,prev: ssylka end;var head,p: ssylka;}p:= head^.next^.next;p^.prev^.next:= p^.next;p^.next:= p^.next^.next;p^.prev^.next^.next:= p;p^.next^.prev^.prev:= p^.prev; [???];p^.prev:= p^.prev^.next;

Какие вершины взвешенного графа, заданного этой матрицей смежности, принадлежат к 10-периферии относительно вершины a? a b c d fa 0 5 0 7 0b 5 0 8 4 0c 0 8 0 6 0d 7 4 6 0 3f 0 0 0 3 0

Какие значения будет принимать переменная z, в зависимости от значений переменной а? z:= 0;if a>10 then if a>100 then if a>1000 then z:= 1 else z:= -1 else z:= 10;

Какие значения будут храниться в переменных s и k после считывания из текстового файла f строки 'Олегов Олег Олегович 1962' при помощи команды readln(f,s,k); {s: string[22], k:byte =0}

Для работы с типизированными указателями предназначены процедуры

Какой цвет текста получится на экране, если использоватьlightmagenta * blue - brown

Для того, чтобы скомпилировать все без исключения модули программы, нужно воспользоваться командой:

Какие переменные может использовать секция внешних связей модуля B?unit A; unit C; unit F; interface interface interface uses C,D; uses D,F; var f; var a; var c; implementationimplementation implementation uses A; uses F; uses B; var ff; var aa; var cc; end;end; end;unit B; unit D; interface interface uses C; var d; var b; implementationimplementation uses B; uses D; var dd; var bb; end; end;

Какой алгоритм реализует приведенная ниже программа?const nnn=10000;type s1 = ^s2; s2 = record n,k,v: integer; next: s1; end;var f: text; head,p,q: s1; x,i,kr,vr,nxt,kol_ver: integer; a: array[1..nnn] of integer;begin assign(f,'in'); reset(f); readln(f,kol_ver); new(head); with head^ do readln(f,n,k,v); head^.next:= nil; while not eof(f) do begin new(q); with q^ do readln(f,n,k,v); q^.next:= nil; if q^.v <= head^.v then begin q^.next:= head; head:= q; continue end; p:= head; while p^.next<>nil do begin if q^.v > p^.next^.v then p:= p^.next else begin q^.next:= p^.next; p^.next:= q; break; end; end; if p^.next = nil then p^.next:= q; end; close(f);p:=head;while p<>nil do beginwrite(p^.v,' '); p:=p^.next;end;writeln('*'); for i:= 1 to kol_ver do a[i]:= 0; kr:= 0; vr:= 0; nxt:= 0; p:= head; while (p^.next <> nil)and(kra[k] then begin x:= a[k]; for i:= 1 to kol_ver do if a[i]=x then a[i]:=a[n]; inc(vr,v) end; p:= next end; writeln(vr)end.

В несвязном графе, каждая компонента связности которого является деревом, содержится 15 вершин и 10 ребер. Сколько в нем компонент связности?

На сколько компонент связности распадается граф, содержащий семь вершин, если он задан таким списком ребер?a b a cb cc hf d

Какой оператор нужно вставить вместо [???], чтобы приведенный ниже отрывок программы правильно создавал двусвязный линейный список, получая значения из непустого текстового файла f?{type ssylka = ^spisok; spisok = record znach: integer; next,prev: ssylka end;var head,p: ssylka;}new(head);read(f,head^.znach);head^.prev:= nil;p:= head;while not eof(f) do begin new(p^.next); read(f,p^.next^.znach); [???]; end;p^.next:= nil;p:= tail;

Для выделения памяти в процессе работы программы предназначены процедуры

Какие из приведенных ниже подпрограмм вычисляют k-e число Фибоначчи, определяемое следующим образом:fib1 = 1;fib2 = 1;fibn = fibn-1+ fibn-2, для всех n>2.

Описанные ниже подпрограммы function C: boolean; forward;function D: boolean; forward;procedure A; begin x:= c(x); y:= d(y); end;function B: boolean; begin x:= c(x); end;function C; begin z:= c(z); end;function D; begin z:= d(z); end;

Динамическая структура данных, у которой в каждый момент времени доступны первый и последний элементы, причем добавлять новые элементы можно только в конец структуры, а удалять - только из ее начала, называется:

Какое из объявлений открытого параметра-массива является правильным?

После завершения работы подпрограммы значение переданной в нее переменной-аргумента не может измениться, если соответствующий параметр был:

Чтобы иметь возможность записывать информацию в бинарный файл, его нужно открыть при помощи команды

Какое значение будет храниться в поле a записи r1 после выполнения следующего блока? var a: integer; r1: record a: byte; ... end; r2: record a: shortint; ... end;begin a:= 0; with r1 do begin r2.a:= -10; with r2 do begin a:= 100; r1.a:= -a; end end; a:= 100;end.

Сколько полей содержится в записи employee? type data = record day: 1..31; month: 1..12; year: 1900.. 2100; end; employee = record name: string[20]; date_entering: data; case trade_union: boolean of true: (date_enter: data; leader: boolean); false: (manager: boolean); end;

Какие значения будут храниться в переменных s и k после считывания из текстового файла f строки 'Иванов Иван Иванович 1945' при помощи команды readln(f,s,k); {s: string[22], k:byte =0}

Чтобы иметь возможность записывать информацию в текстовый файл, его нужно открыть при помощи команд

Какую операцию реализует приведенный ниже программный отрывок? for i:= 1 to N do set_res[i]:= set1[i] or set2[i]

Какой из вариантов расстановки скобок в выражении a + b or c shl a * c - a mod b > a не меняет порядок выполнения операций?

Тип данных real является

К каким типам относится описанная ниже константа?const a: integer = 1000

Строка, начинающаяся символами {$, является:

Идентификатор, описанный после ключевого слова const, является именем:

Какие последовательности символов являются правильными идентификаторами (с точки зрения компилятора языка Pascal)?

Какой раздел модуля содержит описания тех подпрограмм, которые были объявлены как доступные другим модулям?

Чтобы иметь возможность считывать информацию из бинарного файла, его нужно открыть при помощи команды

Какие из приведенных ниже отрывков программ хорошо структурированы?1) procedure step(v,k: byte; r: longint);var j: byte;begin if r < min then if k = N-1 then min:= r else for j:= 1 to N do if (sm[v,j]<>0)and(mark[j]=0) then begin mark[j]:= 1; step(j,k+1,r+sm[v,j]); mark[j]:= 0 end;end;2) for i:= 1 to N-1 dobeginfor x:= 1 to N doif (sm[last,x]<>0)and(not done[x])then dist[x]:= min(dist[x],dist[last]+sm[last,x]);min_dist:= MaxLongInt;for x:= 1 to N doif (not done[x])and(min>dist[x])then begin min_dist:= dist[x];last:= x; end;done[last]:= true;end;3)while head<>nil do begin with head^.e^ do if from^.dist+len < toward^.dist then begin toward^.dist:= from^.dist + len; enqueue(toward,queue,head); end; next_head:= head ^.next; dispose(head); head:= next_head end;4) procedure infix(var p: ukaz);begin read(c); case c of '(' : begin new(p); infix(p^.left) end; '+','-',*','/' : begin p^.symbol:= c; infix(p^.right) end; ')' : {ничего не делаем}; else begin p^.symbol:= c; p^.right:= nil; p^.left:= nil; end; end;end;

Какую высоту будет иметь дерево синтаксического анализа для выражения(a+b)*(c*d-k)-((m+n)/s*(t+y)*(z-x))

Метод сортировки простым выбором является:

Какой стандартной функции или процедуре обработки строк эквивалентен следующий программный отрывок?{s: string; i,k,t: byte}res:= ''; t:= length(s);if i > t then i:= t+1;for j:= 1 to i-1 do res:= res + s[j];for j:= i+k-1 to t do res:= res + s[j];

Какие вызовы функции function f(const a:byte; var s:real; t:boolean):real; являются неправильными с точки зрения компилятора языка Pascal?

Строка, начинающаяся символами {*, является:

Какие вершины орграфа, заданного этим списком смежности, принадлежат к третьему уровню относительно вершины b?a: db: a c fc: dd: h gf: d

Какое значение будет храниться в переменной а:shortint после выполнения следующего программного отрывка?{b: char; p: ^shortint}b:= ‘Б’;p:= addr(b);a:= p^;

Динамическая структура данных, у которой в каждый момент времени доступен только последний элемент, причем добавлять и удалять элементы можно только на конце структуры, называется:

Процесс выполнения программы на специально подобранных входных данных и сравнения полученных результатов с эталонными называется

Какие переменные будут существовать во время выполнения подпрограммы p1? program prog;var a: byte;procedure p1; function f: boolean; var a: byte; begin ... end; var a: byte; begin ... end;procedure p2;var a: byte; begin ... end;

Какие из вариантов расстановки скобок в выражении a and b shr c mod a + c * a shl - b div a не меняют порядок выполнения операций?

Какой алгоритм реализует приведенная ниже программа?type vertices = ^vertex; edges = ^edge; vertex = record id,dist: integer; incidence: edges; next: vertices; end; edge = record from,toward: vertices; len: integer; next: edges; end; ptr_edges = ^ptr_edge; ptr_edge = record e: edges; next: ptr_edges; end;var i,j,len,source_id: integer; g,source: vertices; queue,head,next_head: ptr_edges; f: text;function new_vertex(i: integer; g: vertices): vertices;var v: vertices;begin new(v); v^.id:= i; v^.dist:= maxint; v^.incidence:= nil; v^.next:= g; new_vertex:= vend;function find_vertex(i: integer; g: vertices): vertices;var v: vertices;begin v:= g; while (v<>nil)and(v^.id<>i) do v:= v^.next; find_vertex:= vend;function find_edge(j: integer; n: edges): edges;var e: edges;begin e:= n; while (e<>nil)and(e^.toward^.id<>j) do e:= e^.next; find_edge:= eend;procedure new_edge(i,j,len: integer; var g: vertices);var vi,vj: vertices; eij: edges;begin vi:= find_vertex(i,g); if vi = nil then begin g:= new_vertex(i,g); vi:= g end; vj:= find_vertex(j,g); if vj = nil then begin g:= new_vertex(j,g); vj:= g end; eij:= find_edge(j,vi^.incidence); if eij = nil then begin new(eij); eij^.from:= vi; eij^.toward:= vj; eij^.len:= len; eij^.next:= vi^.incidence; vi^.incidence:= eij endend;procedure enqueue(v: vertices; var q,h: ptr_edges);var e: edges; pe: ptr_edges;begin e:= v^.incidence; while e<>nil do begin new(pe); pe^.e:= e; pe^.next:= nil; if q = nil then h:= pe else q^.next:= pe; q:= pe; e:= e^.next endend;procedure print_vertices(g: vertices);var v: vertices;begin v:= g; while v<>nil do begin writeln(source_id,' -> ',v^.id,' : ',v^.dist); v:= v^.next endend;procedure dispose_edges(n: edges);var e,e_next: edges;begin e:= n; while e<>nil do begin e_next:= e^.next; dispose(e); e:= e_next endend;procedure dispose_vertices(g: vertices);var v,v_next: vertices;begin v:= g; while v<>nil do begin v_next:= v^.next; dispose_edges(v^.incidence); dispose(v); v:= v_next; end;end;begin assign(f,'in'); reset(f); readln(f,source_id); {в первой строке записана начальная вершина} g:= nil; while not eof(f) do begin readln(f,i,j,len); {граф задан списком ребер: от, до, длина} new_edge(i,j,len,g); new_edge(j,i,len,g); end; source:= find_vertex(source_id,g); source^.dist:= 0; queue:= nil; head:= nil; enqueue(source,queue,head); while head<>nil do begin with head^.e^ do if from^.dist+len < toward^.dist then begin toward^.dist:= from^.dist + len; enqueue(toward,queue,head); end; next_head:= head ^.next; dispose(head); head:= next_head end; print_vertices(g); dispose_vertices(g);end.

Сколько операций умножения будет произведено при выполнении этого цикла, если k = 10? for i:= 2*k to 5*k do a:= a*2

Какая последовательность символов будет содержаться в файле f: file of char после выполнения следующего отрывка программы: rewrite(f);for c:= 'a' to 'p' do write(f,c); {c: char}seek(f,10);read(f,c);write(f,c);seek(f,15);truncate(f);write(f,c);

Сколько полей содержится в записи man? type data = record day: 1..31; month: 1..12; year: 1900.. 2100; end; man = record name: string[20]; date_birth: data; case citizen: boolean of true: (birth_place: string[20]); false: (country: string[20]; date_came: data); end;

Какое значение будет храниться в переменной а:integer после выполнения следующего программного отрывка?{b: string; p: ^word}b:= ‘ААББВВГГДД’;p:= addr(b[7]);a:= p^;

К каким типам относится описанная ниже константа?const a = 100000000000

Какой метод сортировки реализует этот фрагмент программы? for i:= 1 to n-1 do begin x:= a[i+1]; l:= 1; r:= i; while l<=r do begin s:= (l+r)div 2; if a[s]