Сілтеме сөзінне ссөзжұмбақ

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

У нас есть два носителя информации: карта памяти Transcend Premium 400 с объемом 16 ГБ и лазерный диск с объемом 716800 килобайт.

Для сравнения, приведем оба объема к одной единице измерения. Переведем объем карты памяти из гигабайтов в килобайты:

16 ГБ = 16 * 1024 МБ = 16 * 1024 * 1024 КБ = 16777216 КБ

Теперь мы можем сравнить объемы:

Карта памяти Transcend Premium 400: 16777216 КБ

Лазерный диск: 716800 КБ

Исходя из этого сравнения, видно, что объем карты памяти Transcend Premium 400 значительно больше объема лазерного диска. Карта памяти имеет объем 16777216 КБ, тогда как объем лазерного диска составляет всего 716800 КБ.

Таким образом, карта памяти Transcend Premium 400 имеет больший объем информации, чем лазерный диск. Это связано с различными технологиями хранения информации и ее плотностью записи на носителе.

Объяснение:

// Использование указателей для создания односвязного списка
// Сделано на базе демонстрационного примера PascalABC.Net
//
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
type
  PNode=^TNode;
  TNode=record
    data:integer;
    next:PNode;
  end;

function NewNode(d:integer;n:PNode):PNode;
begin
  New(Result);
  Result^.data:=d;
  Result^.next:=n;
end;

procedure WriteNode(a:PNode);
// Вывод односвязного списка
begin
  Writeln('Содержимое односвязного списка: ');
  var p:=a;
  while p<>nil do begin
    Write(p^.data,' ');
    p:=p^.next;
    end;
  Writeln
end;

function SeekNode(k:integer;a:PNode):PNode;
// Поиск элемента со значением k в списке
begin
  var p:=a;
  Result:=Nil;
  while p<>nil do begin
    if p^.data=k then begin Result:=p; break end;
    p:=p^.next
    end
end;

function PredNode(a,f:PNode):PNode;
// Поиск предшественника f среди a
begin
  var p:=a;
  while p^.next<>f do p:=p^.next;
  Result:=p
end;

procedure Clear(a:pNode);
// Разрушение односвязного списка
begin
  var p:=a;
  while p<>nil do begin
    var p1:=p;
    p:=p^.next;
    Dispose(p1); // Память обязательно возвращать
    end
end;

var
  first,found,father,grandfather,greatgrandfather:PNode;
 
begin
  Randomize;
  first:=nil;
  for var i:=1 to 10 do
    first:=NewNode(Random(100),first);
  WriteNode(first); // первоначальное состояние списка
  var k:=ReadInteger('Введите число для поиска в списке');
  found:=SeekNode(k,first);
  if found<>nil then begin
    father:=PredNode(first,found); // отец
    grandfather:=PredNode(first,father); // дед
    greatgrandfather:=PredNode(first,grandfather); // прадед
    greatgrandfather^.next:=father;
    Writeln('Элемент ',grandfather^.data, ' удален');
    Dispose(grandfather);
    WriteNode(first);
    k:=ReadInteger('Введите число для вставки');
    father^.next:=NewNode(k,found);
    WriteNode(first);
    end
  else Writeln('Такого числа в списке нет');
  Clear(first)
end.  

Пример
Содержимое односвязного списка:
11 75 44 86 88 83 92 18 4 23
Введите число для поиска в списке 88
Элемент 44 удален
Содержимое односвязного списка:
11 75 86 88 83 92 18 4 23
Введите число для вставки 40
Содержимое односвязного списка:
11 75 86 40 88 83 92 18 4 23