В 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).
<span><span>var mass: array [</span>1..20<span>] of </span>integer;</span>
<span>i,n:integer;</span>
<span /><span>
begin
</span>
<span /><span>writeln('Изначальный массив: ');</span><span />
<span>randomize;
</span><span><span /></span>
<span><span>for i:=</span>1 to 20 do begin</span>
<span>mass[i]:=random(30);</span><span />
<span>write(mass[i],' ');</span><span><span /></span>
<span><span>end;</span></span>
<span /><span>writeln('Новый массив: ');</span><span /><span><span /></span>
<span><span>for i:=</span>1 to 20 do begin</span>
<span /><span><span>if i<=</span>10 then</span>
<span>mass[i]:= mass[i]+4;</span>
<span>write(mass[i],' ');</span><span />
<span><span>end;</span></span>
<span><span>end.</span></span>
Из жизни мышей.
У оптических мышей много преимуществ. В них нет механических частей, поэтому они не нуждаются в обслуживании. Их движения не зависят больше от хорошего контакта с поверхностью, поэтому коврик стал не нужен. Оптическая мышь освещает поверхность, по которой она движется, и инфракрасный оптический сенсор делает снимки через равные интервалы. Процессор сравнивает эти снимки и определяет координаты.
Жалобы геймеров.
<span>Для геймеров, в особенности для любителей Quake, очень важна скорость реагирования. Если существует хоть малейшая задержка между движением мыши и моментом, когда это движение передается на экран, геймеры начнут возмущаться. Время запаздывания частично определяется скоростью обработки соотношения картинок, которое выражается в количестве снимков в секунду. Этот параметр также определяет способность мыши выполнять быстрые движения без запаздывания и ошибок в координатах. Первой разработала этот процесс Agilent Technologies. </span>
Если первое поколение оптических мышей выполняло 1500 снимков в секунду, то современные устройства значительно увеличили этот показатель. Logitech повысил скорость до 2000 снимков в секунду, Microsoft предлагает частоту обновления до 6000 снимков в секунду. Они заявляют, что это цена, которую надо платить за возможность движений мыши на предельной скорости без запаздывания и ошибок в координатах. Остается только выяснить, действительно ли это влияет на работоспосособность, или же это маркетинговая уловка.
Разрешение экрана.
<span>
К сожалению, частота обновления - не единственный параметр, который нужно принимать во внимание. Разрешение также должно учитываться. Оно измеряется в точках на дюйм и выражает точность мыши. Нас самом деле, правильнее было бы говорить о cpi (count per inch). Большинство из последних моделей оптических мышей обладает показателем в 400 cpi, что означает, что они передают координаты 400 раз на дюйм перемещения. Эта цифра означает, что рассматриваются 2 показателя: точность и физическое движение. </span>
Чем выше разрешение, тем меньше нужно двигать мышь для передачи координат. Феномен приувеличен, конечно, по отношению к разрешению экрана. Только при разрешении 1280х1200 пикселов или более разрешение мыши становится ключевым. Microsoft показывает разрешение в 400 cpi, Logitech - 800 cpi. Это в какой-то мере ответ Microsoft на 6000 снимков в секунду.Поверхность, эргономичность и функции<span>Хотя оптической мыши не нужен коврик, ей не подойдут отражающие поверхности. Мышь просто сойдет с ума, если заставить ее работать на стеклянной или черной лакированной плоскости. В остальном же оптические мыши очень неприхотливы и могут работать практически на любых поверхностях. Даже лист белой или черной бумаги подойдет. Если возникнет проблема - просто выбросите старый коврик. В любом случае, для игр можно посоветовать использовать коврик, т.к. по нему мышь скользит более ровно, а также меньше пачкается и царапается. </span>
<span>Большую роль в работе мыши играет ее форма. Если мышь подходит по форме под ладонь и удобна в использовани, то от нее рука не устанет даже при интенсивной работе. Что касается остальных функций, все оптические мыши выпускаются с колесом прокрутки , а некоторые и с дополнительными кнопками. Если вы не собираетесь этими кнопками пользоваться, тогда лучше не устанавливайте прилагаемые драйверы, т.к. они могут вызвать конфликт или замедлить работу мыши.</span>
Байт килобайт мегабайт и гигабайт
1 гигабайт=1024 мегабайт
1 мегабайт=1024 килобайт
1 килобайт=1024 байт
ну и для общего развития 1 байт=8бит