В 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).
/////////////////////////////////////
Тогда будет Паскаль...
const
nm = 5;
type
V = array[1..nm] of real;
function SP(var a, b: V; n: integer): real;
var
i: integer;
s: real;
begin
s := 0;
for i := 1 to n do s := s + a[i] * b[i];
SP := s
end;
var
A, B, C, D: V;
P1, P2, min: real;
i, n: integer;
begin
Write('Введите размерность вектора A: '); Readln(n);
Write('Введите координаты вектора A через пробел: ');
for i := 1 to n do Read(A[i]);
Write('Введите координаты вектора B через пробел: ');
for i := 1 to n do Read(B[i]);
P1 := SP(A, B, n);
Write('Введите размерность вектора C: '); Readln(n);
Write('Введите координаты вектора C через пробел: ');
for i := 1 to n do Read(C[i]);
Write('Введите координаты вектора D через пробел: ');
for i := 1 to n do Read(D[i]);
P2 := SP(C, D, n);
if P1 > P2 then min := P2 else min := P1;
Writeln('Меньшее из скалярных произведений (A*B),(C*D) равно ', min);
end.
Результаты выполнения:
Введите размерность вектора A: 4
Введите координаты вектора A через пробел: -5.1 2.7 3.4 6.2
Введите координаты вектора B через пробел: 1.2 3.4 0 2.5
Введите размерность вектора C: 5
Введите координаты вектора C через пробел: 2.7 3.4 2.5 6.3 7.8
Введите координаты вектора D через пробел: 1.7 -1.3 2.8 0 7.2
Меньшее из скалярных произведений (A*B),(C*D) равно 18.56
а)<em>8</em>"<u>бит</u>"
б)<em>0.026001</em>"<u>Кбайт</u>"
в)<em>1024</em>"<u>Кбайт</u>"-<em>1048576</em>"<u>байт</u>"-<em>8388608</em>"<u>бит</u>"
г)<em>1.5</em>"<u>Кбайт</u>"-<em>1536</em>"<u>бит</u>"
Ответ:
D9
=Если(C9="";"";ВПР(C9;$J$3:$K$7;2;ЛОЖЬ))
Потом скопировать и вставить в D10-D13
Объяснение:
Если ячейка с9 пуста, то ставим пустоту. Иначе вызываем функцию ВПР.