Часть 1 Задание 1. Укажите в ответе наибольшее из четырех чисел. Переведите числа в одну систему
счисления(любую), 51 в 16 степени 14 в 8 степени 10110 в 2 степени
79 в 10 степени
Задание 2. Определите, в каком случае логическое выражение будет истинным:
НЕ (( Вторая буква в слове гласная ) и ( Третья буква в слове согласная ) )
Доброта Совесть Дружба Порядочность
Задание 3. У исполнителя Альфа две команды, которым присвоены номера
1) прибавь 1; 2) раздели на b.
Известно, что программа 11211 переводит число 20 в число 13. Найдите значение b.
Задание 4. Определите значение переменных а и b после выполнения фрагмента программы,
приведенной ниже на одном из алгоритмических языков:
а:=1;
b:=3;
а:=b - а;
b:=2 * a;
а:=2* b+a;
b:=b+a /2;
writeln (b,a);
Задание 5. Определите, что будет выведено в результате работы фрагмента программы,
представленной на языке программирования Pascal:
а:=3;
b:=2;
if a > b then c:=b - 1;
else c :=b+1;
writeln (c);
Задание 6. Определите, что будет выведено в результате работы фрагмента программы
представленной на языке программирования Pascal:
S:=10;
for i:=1 to 5 do
S:=S+2°і;
writeln (S):
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;
procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;
begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.
const
MAX_SIZE = 100;
var
size, n: integer;
stack: array[1..MAX_SIZE] of integer;
procedure push(a: integer);
begin
inc(size);
stack[size] := a;
end;
procedure view;
var
i: integer;
begin
for i := 1 to size do
write(stack[i], ' ');
writeln;
end;
Для очереди:
const
MAX_SIZE = 100;
var
head, tail: integer;
queue: array[1..MAX_SIZE] of integer;
procedure push(a: integer);
begin
queue[tail] := a;
inc(tail);
end;
procedure view;
var
i: integer;
begin
for i := head to tail - 1 do
write(queue[i], ' ');
writeln;
end;
И стек и очередь реализованы с массива. Нужно следить, чтобы размер структуры не был больше размера массива