Вспомните название "первая космическая скорость". Про ускорение — ни слова.
Хотя для полета на Луну нужно что-то большее, чем первая. Но возможно меньше, чем вторая.
Опишите пожалуйста, как калибровать компас — как держать телефон, как его крутить. Так, чтобы можно было воспроизвести. А то «опишите в воздухе восьмерку» — совершенно непонятное сообщение.
Эту программу я встретил в книге «100 задач по программированию» (Автор — Дагене). Потом спустя 2 года после прочтения оригинала с некоторыми коррективами набрал по памяти, и еще через 10 лет вот оно:
program autoprint;
var i:byte;c:array[1..11]of string;
begin
c[1]:='program autoprint;';
c[2]:='var i:byte;c:array[1..13]of string;';
c[3]:='begin';
c[4]:=' for i:=1 to 3 do writeln(c[i]);';
c[5]:=' for i:=1 to 10 do writeln(c[11,8],c[11,8],c[11,1],c[11,2],i,';
c[6]:=' copy(c[11],3,4),c[i],c[11,6],c[11,7]);';
c[7]:=' writeln(c[11,8],c[11,8],c[11,1],c[11,2],11,copy(c[11],3,4),';
c[8]:=' copy(c[11],1,6),copy(c[11],6,3),c[11,6],c[11,7]);';
c[9]:=' for i:=4 to 10 do writeln(c[i]);readln;';
c[10]:='end.';
c[11]:='c[]:=''; ';
for i:=1 to 3 do writeln(c[i]);
for i:=1 to 10 do writeln(c[11,8],c[11,8],c[11,1],c[11,2],i,
copy(c[11],3,4),c[i],c[11,6],c[11,7]);
writeln(c[11,8],c[11,8],c[11,1],c[11,2],11,copy(c[11],3,4),
copy(c[11],1,6),copy(c[11],6,3),c[11,6],c[11,7]);
for i:=4 to 10 do writeln(c[i]);readln;
end.
Когда-то был еще вариант, который писал свой код в другие Pascal-программы в текущем каталоге, но что-то я не могу его найти.
Как-то на anekdot.ru начинающий разработчик выложил несжатый скрипт календаря. Всего +15кб. Но на главной странице. За сутки это вылилось в несколько гигов лишнего трафика.
Хотя для полета на Луну нужно что-то большее, чем первая. Но возможно меньше, чем вторая.
Он же и написал этот комент выше.
www.youtube.com/watch?v=sP3d00Hr14o
www.youtube.com/watch?v=7qHR6gQd580
Еще один способ калибровки:
www.youtube.com/watch?v=oNJJPeoG8lQ
program autoprint;var i:byte;c:array[1..11]of string;
begin
c[1]:='program autoprint;';
c[2]:='var i:byte;c:array[1..13]of string;';
c[3]:='begin';
c[4]:=' for i:=1 to 3 do writeln(c[i]);';
c[5]:=' for i:=1 to 10 do writeln(c[11,8],c[11,8],c[11,1],c[11,2],i,';
c[6]:=' copy(c[11],3,4),c[i],c[11,6],c[11,7]);';
c[7]:=' writeln(c[11,8],c[11,8],c[11,1],c[11,2],11,copy(c[11],3,4),';
c[8]:=' copy(c[11],1,6),copy(c[11],6,3),c[11,6],c[11,7]);';
c[9]:=' for i:=4 to 10 do writeln(c[i]);readln;';
c[10]:='end.';
c[11]:='c[]:=''; ';
for i:=1 to 3 do writeln(c[i]);
for i:=1 to 10 do writeln(c[11,8],c[11,8],c[11,1],c[11,2],i,
copy(c[11],3,4),c[i],c[11,6],c[11,7]);
writeln(c[11,8],c[11,8],c[11,1],c[11,2],11,copy(c[11],3,4),
copy(c[11],1,6),copy(c[11],6,3),c[11,6],c[11,7]);
for i:=4 to 10 do writeln(c[i]);readln;
end.
Когда-то был еще вариант, который писал свой код в другие Pascal-программы в текущем каталоге, но что-то я не могу его найти.
sudo apt-get install grub-imagebootВ Debian пакет есть только в testing-ветке.
sudo -s
mkdir /boot/images
cp /path/to/file.iso /boot/images/
update-grub
Тот самый Валерка.