Часть 1. Система счисления 1. Переведите числа в десятичную систему счисления:
a) 11001012
б) 274s
b) 15A16
2. Переведите целое десятичное число 124 в двоичную систему счисления:
3. Переведите двоичное число 11010011110112 в
a) восьмеричную систему счисления; б) шестнадцатеричную систему счисления.
4. Выполните сложение над двоичными числами 101101112 и 1001 1011,
Часть 2. Алгебра логика
5. Выпишите номера истинных высказываний:
a) Луна - одна из планет Солнечной системы. б) Неверно, что 1 байт - наименьшая единица измерения информации.
b) Все попугаи - относятся к классу насекомых. г) Пингвины живут в Африке. д) Путь, пройденный автомобилем можно вычислить, умножив среднюю с
на время.
6. Для какого из указанных значений числа Х истинно выражение
((X<-3) (X>7)) & (X< 8)?
a) 7 б) 4 в) 9 г) 2
7. Для какого из приведённых имён истинно высказывание:
НЕ (Первая буква гласная) И НЕ(Последняя буква согласная)?
a) Емеля
б) Иван
b) Михаил г) Никита
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;
И стек и очередь реализованы с массива. Нужно следить, чтобы размер структуры не был больше размера массива