• Авторизация


01-03-2008 22:42 к комментариям - к полной версии - понравилось!



Удаляем из массива x(1:n) отрицательные элементы.
[показать]
code:

DIM i AS INTEGER
DIM n AS INTEGER, j AS INTEGER
INPUT "n="; n
DIM x(1 TO n) AS SINGLE
FOR i=1 TO n
PRINT "x(";i;")=";
INPUT x(i)
NEXT i
PRINT "Ishodny massiv:"
FOR i=1 TO n
PRINT x(i)
NEXT i
PRINT
FOR i=1 TO n
DO WHILE x(i) < 0
FOR j=i TO n-1
x(j)=x(j+1)
NEXT j
n=n-1
LOOP
NEXT i
IF n<>0 THEN
PRINT "Poluchenny massiv:"
FOR i = 1 TO n
PRINT "x(";i;")="; x(i)
NEXT i
PRINT
ELSE
PRINT "Vse elementy udaleny"
END IF
END


Зверски зохавать:
Тьфу, вернее скачать:
http://rapidshare.com/files/96242614/1.zip
_^
файл в формате .bas

================================================================

Номинально сегодня уже март, тк 30 февраля судя по всему зверски зохавано ктулху. Обычно он и 29е зохавывает, но из сострадания к админам решил преостановить зохав этого дня, отложив его на год.

Теоретически осталось 3 месяца. Скоро продлять все мои домены.

Прислали письмо из америки.
Смотрим:
[показать]
[показать]
[показать]

Часть данных была зверски скрыта в паинте, в нем-же картинки ресайзнули в 4 раза по ширине и высоте. Жаль у гетпика нет превьюшек.

Короче скоро чек пришлют, который с радостью обналичу и все $$$ потрачу на очередные болванки или еще что-нить подобное. Правда надо еще 60 баксов заработать (сейчас 40). Как ни крути - адсенс - это супер.

На DF скоро 22 уе, возобновились мои релизы на бинмуви.
На RS более 23к поинтов. И более 106 Гб данных
На FF около 16к поинтов. Много оттуда потерли(

Стрим стер статистику по трафу за 2005 год. Пришлось в срочном порядке все писать на листок.

Отчет о трафике 2008 года:
code:

2008:
Январь____50717.6436_____63792.9477________114510.5913
Февраль___60490.7754_____69728.0665________130218.8419

Предв. Итог за 2008:
_________111208.4190____133521.0142________244729.4332
...........................................
_________Входящий_______Исходящий__________Суммарный


В мегабайтах))

Составлять это с сентября 2006 неохота.((

Хорошо живется в Австралии: если есть ноутбук с wifi, то хоть круглые сутки сиди в нете в номере - все нахаляву. А я тут мозги ломаю над школой и курсами.

Какого чорта бэйсик 90% оперативы жрет? 1 бэйсик равняется одновременным включенным опере, мозилле, аське, мьюторренте, влс плеере с фильмом двд качества и зоуне лабс (файерволл).
Жесть.

В кои -то веки вспомнил про сеттлерс_4. Так давно не гамал. Еще помню те славные победы... Эх, ностальгия, как будто баскетбольный финал в Мюнхене -72 вспоминаю...

Погамал за Хорватию в фифаворлдкап. Забацал группу:
Хорватия
Англия
Россия
Израиль
Македония
Эстония
Андорра

Главной задачей было пропустить Россию в следующий этап. 1 матч слил (в Москве), потом выиграл, у конкуртентов отобрал 6 очков + англичане 2 раза с андоррцами по 0:0 и наши на 2м месте%)

Еще делать умопомрачительные задачки по информатике + алгебра [карточки] и какой-то вопрос по литературе.
Тогда, когда до часу ночи писал сочинение, вобщем это себя оправдало: 4_4. Но вот опять-же, это далось слишком большой ценой.

Видел травму Эдуардо (хорват из Арсенала). Жесть. Фхтагн.
Опять проездной с рекламой. Где мое лезвие??
Ёу, н73 уже 8к стоит. Может к ДР еще ниже опустится. Может наконец возьму. В 6681 очень бесит отсутствие макросъемки.

Появилась шальная мысль делать релизы на binххх.ru%)

Вспоминается фраза из фильма "Скала"

I've been in jail longer than Nelson Mandela, so maybe you want me to run for President?

Только jail надо на school поменять%)
Вообще в этом фильме куча цитат:
http://en.wikiquote.org/wiki/The_Rock_(film)

Неплохо было-бы открыть сайт на народе о железной дороге, наполнить его фотками, видео, схемами, повесить рекламу от гугля и заманивать посетителей. Эх, мечты...

фсем фхтагн!!_

Побыстрее-бы каникулы..
вверх^ к полной версии понравилось! в evernote


Вы сейчас не можете прокомментировать это сообщение.

Дневник | J0L0 - БРЕДНИ J0L0 | Лента друзей J0L0 / Полная версия Добавить в друзья Страницы: раньше»