Задание 1 – Логические основы функционирования компьютерных систем. Дан участок процессора ПК в виде схемы (логическую схему сконструируйте – в соответствии с вариантом).
Обоснуйте и определите логическую формулу, подтверждающую работу процессора. Рассчитайте таблицу истинности.
На схеме проставьте сигналы на всех входах и выходах при входных аргументах a = 0 и b =1.
Const n=10; var a:array[1..n+1] of integer; k,i:integer; b:boolean; begin Randomize; for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); end; writeln; write('Введите число: '); readln(k); b:=false; for i:=1 to n do if a[i]=k then b:=true; if not b then begin for i:=n+1 downto n div 2 + 1 do a[i]:=a[i-1]; a[n div 2]:=k; for i:=1 to n+1 do write(a[i]:4); writeln; end else writeln('Массив не изменился'); end.
1)128000 переводим в байты (128000 / 8 = 16000)
16000 переводим в килобайты ( 16000 / 1024 = 15,625)
500килобайт делим на 15,625 получаем 32секунды.
2)512000 переводим в байты (512000 / 8 = 64000)
64000 переводим в килобайты ( 64000 / 1024 = 62,5 )
62,5 умножаем на 46секунд, получаем 2875
3)128000 переводим в байты (128000 / 8 = 16000)
16000 переводим в килобайты (16000 / 1024 = 15,625)
1минуту 20сек переводим в секунды (60+20=80)
15,625 килобайт умножаем на 80секунд, получаем 1250килобайт
var a:array[1..n+1] of integer;
k,i:integer; b:boolean;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
write('Введите число: '); readln(k);
b:=false;
for i:=1 to n do
if a[i]=k then b:=true;
if not b then
begin
for i:=n+1 downto n div 2 + 1 do a[i]:=a[i-1];
a[n div 2]:=k;
for i:=1 to n+1 do write(a[i]:4);
writeln;
end
else writeln('Массив не изменился');
end.
Пример:
6 10 -5 -3 -9 -8 -3 3 -9 7
Введите число: 4
6 10 -5 -3 4 -9 -8 -3 3 -9 7