Аралас сілтемелер . Аралас сілтеме абсолютті және салыстырмалы бағанды жолды немесе абсолюттік жолды және салыстырмалы бағанды немесе қамтиды. Абсолютті сілтеме т.б. ба андар $ A1, $ В1, нысанын қабылдайды Абсолютті сілтеме желісі және т.б., $ 1 B, пішін $ 1 қабылдайды Сіз формуланы салыстырмалы сілтеме өзгерістер мен абсолюттік сілтеме бар ұяшықтың орнын өзгерту болса, өзгермейді. Көшіргіңіз кезде салыстырмалы сілтеме бойымен жолдар мен бағандарда арқылы формула автоматты түрде реттеледі және абсолютті сілтеме түзетілген емес.
Объяснение:
Негізі білмеймін бірақ сәттілік
A:
var
s: string;
i: integer;
begin
Write('Введите строку: ');
ReadLn(s);
for i := 1 to length(s) do
begin
if s[i] = '.' then s[i] := '0' else
if (s[i] = 'x') or (s[i] = 'X') then s[i] := '1' else
begin
s := 'Ошибка формата';
break;
end;
end;
WriteLn('Двоичный код: ', s);
end.
B:
var
s: string;
i: integer;
begin
Write('Введите строку: ');
ReadLn(s);
for i := 1 to length(s) do
if s[i] = '0' then s[i] := '1' else if s[i] = '1' then s[i] := '0';
WriteLn('Инверсия: ', s);
end.
Объяснение:
