@Dreew

	Комментарий модератора
	п.5.16. Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

Ребят помогите пожалуйста, завтра экзамен помогите решить 20 билетов, мне вроде бы сказали задачки не сложные. Пожалуйста! Заранее Благодарен!

Билет 1
1 Списки: общая организация, основные функции.
2 Решить задачу:
Представлен фрагмент программы, обрабатывающей одномерный целочисленный массив с индексами от 0 до 10. Известно, что в начале выполнения этого фрагмента в массиве находилась возрастающая последовательность чисел, то есть A[0] < A[1] < … < A[10]. Какое наибольшее значение может иметь переменная s после выполнения данной программы?
s := 15;
n := 10;
for i:=0 to n-1 do begin
s:=s+A[i]-A[i+1]+3
end;

Билет 2
1 Двунаправленные списки: общая организация, основные функции
2 Решить задачу:
Представлен фрагмент программы, обрабатывающей одномерный целочисленный массив с индексами от 0 до 10. Известно, что в начале выполнения этого фрагмента в массиве находилась возрастающая последовательность чисел, то есть A[0] < A[1] < … < A[10]. Какое наименьшее значение может иметь переменная s после выполнения данной программы?
s := 32;
n := 10;
for i:=0 to n-1 do begin
s:=s+A[i+1]-A[i]+1
end;

Билет 3
1 Сортировка. Основные алгоритмы сортировки.
2 Решить задачу:
представлен фрагмент программы, обрабатывающей одномерный целочисленный массив с индексами от 0 до 10. Известно, что в начале выполнения этого фрагмента в массиве находилась возрастающая последовательность чисел, то есть A[0] < A[1] < … < A[10]. Какое наибольшее значение может иметь переменная s после выполнения данной программы?
s := 27;
n := 10;
for i:=0 to n-1 do begin
s:=s+A[i]-A[i+1]+2
end;

Билет 4
1 Быстрая сортировка Хоара.
2 Решить задачу:
В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 8, 4, 3, 0, 7, 2, 1, 5, 9, 6 соответственно, т.е. A[0] = 8; A[1] = 4 и т.д. Определите значение переменной c после выполнения следующего фрагмента программы:
s := 0;
for j := 0 to 8 do
if A[j] > A[j+1] then begin
s := s + 1;
t := A[j];
A[j] := A[j+1];
A[j+1] := t;
end;

Билет 5
1 Поиск подстрок по образцу.
2 Решить задачу:
В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:
s:=29;
n:=10;
for i:=0 to n-1 do begin
s:= s + A[i] - A[i+1]
end;
Известно, что в начале выполнения этого фрагмента в массиве находилась возрастающая последовательность чисел, то есть A[0] < A[1] < … < A[10]. Какое наибольшее значение может иметь переменная s после выполнения данной программы?

Билет 6
1 Стеки: особенности реализации на базе списков.
2 Решить задачу:
Ниже на записан рекурсивный алгоритм F:
function F(n: integer): integer;
begin
if n > 2 then
F := F(n-1)+F(n-2)+F(n-3)
else
F := n;
end;
Чему будет равно значение, вычисленное алгоритмом при выполнении вызова F(6)?

Билет 7
1 Очереди: особенности реализации на базе списков.
2 Решить задачу:
Дан рекурсивный алгоритм:
function F(n: integer): integer;
begin
if n > 1 then
F:= 2*n + F(n-3) + F(n-2)
else
F:= n + 5;
end;
Чему будет равно значение, вычисленное алгоритмом при выполнении вызова F(6)?


Билет 8
1 .Внешние сортировки. Сортировка слиянием. Простое слияние.
2 Решить задачу:
Дан рекурсивный алгоритм:
function F(n: integer): integer;
begin
if n < 6 then
F:= n+F(n+3) * F(2*n)
else
F:= n*2;
end;
Чему будет равно значение, вычисленное алгоритмом при выполнении вызова F(3)?

Билет 9
1 .Внешние сортировки. Сортировка слиянием. Естественное слияние.
2 Решить задачу:
Дан рекурсивный алгоритм:
function F(n: integer): integer;
begin
if n < 5 then
F:= F(n*3) + F(n+3) + F(n+1)
else
F:= n div 2;
end;
Чему будет равно значение, вычисленное алгоритмом при выполнении вызова F(2)?

Билет 10
1 Рекурсивные алгоритмы. Примеры рекурсивных алгоритмов.
2 Решить задачу:
Дан рекурсивный алгоритм:
procedure F(n: integer);
begin
writeln(n);
if n < 7 then begin
writeln(n);
F(n+2);
F(n*2);
F(n*3)
end
end;
Найдите сумму чисел, которые будут выведены при вызове F(1).

Билет 11
1 Стеки: особенности реализации на базе массивов.
2 Решить задачу:
Дан рекурсивный алгоритм:
procedure F(n: integer);
begin
if n > 2 then begin
writeln('*');
F(n-2);
F(n-1);
F(n div 2);
end;
writeln('*');
end;
Сколько символов "звездочка" будет напечатано на экране при выполнении вызова F(6)?

Билет 12
1 Очереди: особенности реализации на базе массивов.
2 Решить задачу:
Ниже записан алгоритм. Получив на вход число , эта программа печатает два числа, и . Укажите, сколько есть таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 12.
var x, a, b: integer;
begin
readln(x);
a:=0; b:=1;
while x > 0 do begin
a:= a + 1;
b:= b * (x mod 10);
x:= x div 10;
end;
writeln(a); write(b);
end.

Билет 13
1 Алгоритм быстрой сортировки.
2 Решить задачу:
Ниже записан алгоритм. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из чисел , при вводе которых алгоритм печатает сначала 2, а потом 8.
var x, a, b: integer;
begin
readln(x);
a:=0; b:=0;
while x > 0 do begin
a:= a + 1;
b:= b + (x mod 100);
x:= x div 100;
end;
writeln(a); write(b);
end.


Билет 14
1 . Простой путь. Алгоритм поиска простого пути.
2 Решить задачу:
Ниже записан алгоритм. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из чисел , при вводе которых алгоритм печатает сначала 2, а потом 8.
var x, a, b: integer;
begin
readln(x);
a:=0; b:=1;
while x > 0 do begin
a:= a + 1;
b:= b * (x mod 100);
x:= x div 100;
end;
writeln(a); write(b);
end.

Билет 15
1 Алгоритмы криптографии.
2 Решить задачу:
Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наименьшее пятизначное число x, при вводе которого алгоритм печатает сначала 5, а потом 3.
var x, y, a, b: longint;
begin
a := 0;
b := 0;
readln(x);
while x > 0 do begin
y := x mod 10;
if y > 3 then a := a + 1;
if y < 8 then b := b + 1;
x := x div 10
end;
writeln(a);
writeln(b)
end.

Билет 16
1 Алгоритм Ферма.
2 Решить задачу:
Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите набольшее пятизначное число x, при вводе которого алгоритм печатает сначала 5, а потом 4.
var x, y, a, b: longint;
begin
a := 0;
b := 0;
readln(x);
while x > 0 do begin
y := x mod 10;
if y > 4 then a := a + 1;
if y < 6 then b := b + 1;
x := x div 10
end;
writeln(a);
writeln(b)
end.

Билет 17
1 Определение Машины Тьюринга.
2 Решить задачу:
Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наименьшее пятизначное число x, при вводе которого алгоритм печатает сначала 2, а потом 4.
var x, y, a, b: longint;
begin
a := 0;
b := 0;
readln(x);
while x > 0 do begin
y := x mod 10;
if y > 3 then a := a + 1;
if y < 7 then b := b + 1;
x := x div 10
end;
writeln(a);
writeln(b)
end.


Билет 18
1 Алгоритм Евклида.
2 Решить задачу:
Ниже записан алгоритм. Сколько существует таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 12?
var x, a, b: integer;
begin
readln(x);
a := 0; b := 0;
while x>0 do begin
a := a + 1;
b := b + (x mod 100);
x := x div 100
end;
writeln(a); write(b)
end.

Билет 19
1 Реализация графа с помощью матрицы смежности.
2 Решить задачу:
Ниже записан алгоритм. Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R :integer;
Function F(x:integer):integer;
begin
F := (x*x-25)*(x*x-25)+15 end;
begin
a := -15; b := 15; M := a; R := F (a) ;
for t := a to b do
if (F(t) <= R) then begin
M := t; R := F(t)
end;
write(M+15)
end.



Билет 20
1 Представление графа с помощью списка смежных вершин.
2 Решить задачу:
Ниже записан алгоритм. Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
begin
F := 281 - 2*(17+x)*(17+x);
end;
BEGIN
a := -7; b := 25;
M := a; R:= F(a);
for t := a to b do begin
if F(t) > R then begin
M := t;
R:= F(t);
end;
end;
writeln(R);
END.

0