Какое значение будет принимать переменная Х, после выполнения фрагмента программы: 17
var
s:string;
begin
write ('Введите предложение: ');
readln(s);
if pos('с',s)>pos('т',s)
then writeln ('Буква «т» встречается раньше')
else writeln('Буква «с» встречается раньше');
end.
АЛУ содержит следующие функциональные узлы:
Первое, что стоит отметить это сумматор, он предназначен для выполнения суммирования и других действий над кодами операндов;
Далее не менее важны регистры для хранения кодов операндов на время выполнения действий над ними;
Сдвигатели для сдвига кода на один или несколько разрядов вправо или влево;
Преобразователи для преобразования прямого кода числа в обратный или дополнительный код;
Комбинационные схемы для реализации логических операций, мультиплексирования данных, управляемой передачи информации, формирования признаков результата и т.д.
Регистры и в некоторых случаях сумматоры имеют цепи управления приемом, выдачей и сбросом кодов операндов. Логические операции, операции сдвига и преобразования кодов могут выполняться не только специальными устройствами, но и с помощью дополнительных связей регистров и сумматора. В зависимости от типов используемых для суммирования базовых элементов различают комбинационные и накапливающие сумматоры.
Мог вас неправильно понять, может Вам нудны все узлы вместе с АЛУ?
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Dec2Bin(t: integer): string;
begin
var r: string := '';
while t >= 2 do
(r, t) := (t mod 2 + r, t shr 1);
r := t + r;
Result := '0' * (8 - r.Length) + r
end;
function Bin2Dec(s: string): integer;
begin
Result := 0;
var p := 1;
for var i := s.Length downto 1 do
begin
Result += (s[i].ToDigit) * p;
p *= 2
end
end;
function GenSeqCycle(n: integer): sequence of integer;
begin
var s := Dec2Bin(n);
loop 8 do
begin
yield Bin2Dec(s);
s := s[2:] + s[1]
end
end;
begin
GenSeqCycle(ReadInteger).Max.Println
end.
Program z1;
uses crt;
var n,m,kd,i,j,s: integer;
begin repeat write('n=');readln(n);
Write('m='); readln(m);
until (n<m);
for i:=n to m do
begin
kd:=0;
for j:=2to i div2do
if i mod j=0then inc(kd);
if kd=0then
begin
write(i,' ');inc(s);
end;
end;
writeln;
writeln('Всего ',s); end.