В QBasic можно написать так:
CONST s = "электрорадиомонтёр"
CLS
PRINT LEFT$(s, 7) + MID$(s, 10, 1) + " " + MID$(s, 11, 1) + " ";
PRINT MID$(s, 4, 1) + MID$(s, 9, 1) + MID$(s, 5, 1) + MID$(s, 7, 1);
PRINT MID$(s, 10, 1)
PRINT MID$(s, 5, 1) + MID$(s, 3, 1) + MID$(s, 6, 1) + MID$(s, 13, 1);
PRINT MID$(s, 11, 1) + MID$(s, 15, 1) + MID$(s, 9, 1) + MID$(s, 5, 1);
PRINT MID$(s, 7, 1) + MID$(s, 6, 1) + " " + MID$(s, 16, 3) + " ";
PRINT MID$(s, 8, 5)
В VBA Microsoft Office можно так сделать
Sub aaa()
Const s = "электрорадиомонтёр"
l = Len(s)
ReDim a(1 To l)
For i = 1 To l
a(i) = Mid$(s, i, 1)
Next i
MsgBox Left(s, 7) + a(10) + " " + a(11) + " " + a(4) + a(9) + a(5) + a(7) + a(10)
MsgBox a(5) + a(3) + a(6) + a(13) + a(11) + a(15) + a(9) + a(5) + a(7) + _ a(6) + " " + Mid(s, 16, 3) + " " + Mid(s, 8, 5)
End Sub
А если в VB делать, то нужно нарисовать форму и прописать в коде какой-нибудь кнопки предыдущий код. Либо на форме организовать вывод в Label или какие-нибудь поля (Text, Edit).
1) N = 2^i
N1 = 32
N2 = 64
32 = 2^i1
i1 = 5 бит - глубина кодирования одного символа при использовании алфавита мощностью 32 буквы
64 = 2^i2
i2 = 6 бит глубина кодирования одного символа при использовании алфавита мощностью 64 буквы
Если количество символов одинаково, тогда
информационный объем текста будет зависеть только от глубины кодирования буквы в разных алфавитах. Следовательно, чтобы узнать во сколько раз отличаются информационные объемы текстов достаточно разделить i2 на i1
i2 / i1 = 6 / 5 = 1,2 раза первый текст будет иметь меньший объем, чем второй при использовании разных алфавитов
Запишем формулу суммы в виде, более удобном для программирования:
var
i:integer;
x,xi,x2,s:real;
begin
Write('x = '); Read(x);
s:=0.5;
xi:=x;
x2:=x*x;
for i:=2 to 10 do begin
xi:=xi*x2;
s:=s+xi/(2*i)
end;
Writeln('S=',s)
end.
<u>Пример</u>x = 3.62
S=2254030236.00533
<em>Во вложении приведено контрольное решение</em>