Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Это у кого как. Много оперативки + медленный винт и комп включается не дольше обычного старта. Плюс только в том, что софт уже запущен.Ну а кто использует медленный винт сейчас? 4 года назад, мой старый Celeron @600MHz дампил/читал 512Мб ОЗУ примерно за секунд 15. При этом был винт 40Гб обычная баракуда а нормальный запуск ХР занимал минуты 1,5-2.
А чем ждущий режим от спящего отличается?Как вариант, да, вот:
А есть разница между тем, когда ты спишь или тем когда ты кого-то ждёшь?Но реально, в ждущем режиме ОЗУ требует питалова, чтобы не потерять инфу (собственно, только память и питается + некоторые схемки, которые ее обслуживают, а остальное обесточено) и при пропадании оного все херится. Спящий режим же, как уже было сказано, гадит содержимым ОЗУ на винт и поэтому не требует питания, поэтому компик обесточивается полностью. Отличие от обычного выключения в том, что старт при этом получается на порядки быстрее (нужно всего лишь загрузить объем ОЗУ + проинитить аппаратуру), при этом многие ранее запущенные программы уже работоспособны и готовы (для сервера незаменимая вещь, когда часто и на долго рубят свет, потому как гибернация будет протекать намного быстрее и UPSки хватит. Кстати, сами сервера предлагают включить ее).
Может не стоит галка "разрешить использование спящего режима" или не хватает под него места на винте?Архиважная фича для ноутов и сервантов, поверь мне. Ну еще она меня помогла продлить триал, который бы включился после перезагрузки одной проги (почти месяц в хибернайте был, пока я не нашел лекарство).
Да и вообще, если честно, не знал, что этой функцией кто-то пользуется.
На работе на серваке стоят два винта 15000 оборотов во время наседки на сервак издает такой шум, что мой 20 мб seagate просто отдыхает.Ого, я помню такие. ESDI, с контроллером. В паре, они классно диссонируют.
Или ты стебался?
Басов в затычках никогда не будет, они слишком маленькие. Всё равно что слушать "с мабылки".Смотря что для тебя "басы". Есть очень достойные "затычки" с достойным звуком, особенно те, что раньше шли с именитыми CD (не МР3!) плеерами (мои до сих пор живые, пережили 2 провода и сейчас на гарнитуре мобилки). Не скажу что там супер басы, но довольно-таки красивая для моих ушей АЧХ и местами намек на басок. Ну а трубас только из динамика не менее 32см диаметре.
Если б на телах были вирусы, был бы и каспер мобайлОн таки есть. FAIL.
ещё насчёт обновлений - сегодня принесли "пациента" с WinXP SP2, установлены Outpost и NOD32 v4, инет "прямой" - через USB 3G модем.Компьютер в руках обезьяны...
симптомы такие - травим кучку "живности" на компе, включаем инет, через часок-другой опять имеем полный "зоопарк"... оутпост и нод отсасывают.
конечно, SP2 эт совсем запущенный случай, но весьма показательный.
Если б на телах были вирусы, был бы и каспер мобайлСэр, ваша лошадь тихо ходит:
Защита при потере или краже смартфона
* Найдите потерянный или украденный телефон, получив ссылку на его точные координаты в системе Google Maps*.
* Защитите свои контакты, сообщения, фотографии и файлы от попадания в чужие руки.
* Удаленно заблокируйте телефон или удалите все данные на нем.
* Воспользуйтесь «секретной папкой» и возможностями шифрования.
* Получите информацию о новом номере, если кто-то сменил SIM-карту в вашем телефоне.
Защита от нежелательных звонков и SMS
* Блокируйте нежелательные звонки и SMS (например, рекламные).
* С легкостью управляйте своими черными и белыми списками.
Родительский контроль
* Определите, где находится ваш ребенок, в случае необходимости*.
* Ограничьте звонки и SMS ребенка на нежелательные номера (например, платные).
Защита от мобильных вирусов и сетевых атак
* Защита от более 700 различных вредоносных программ для мобильных платформ.
* Регулярные обновления антивирусных баз.
На коммуникаторах что на ВинМобайле тоже есть пара вирусков.Похоже, что вирусков то намного больше.
на некоторых сайтах пугают страшными вирусами червями если обновление отключить.От кидо спасает только внешний фаервол или 3 мелких апдейта. Теперь подумай, что проще.
На коммуникаторах что на ВинМобайле тоже есть пара вирусков. В остальном согласен. Нету у одноклеточного тела технической возможности такой.- ты это серьезно? какие нафиг вирусы на телефон? Вирусы бывают только на Симбиане. На обычные тела вирусов не существует.
Ну и по-поводу массивов :
1)Задание: напишите программу которая сначала вводит десять чисел в одномерный массив , а затем складывает отдельно все положительные элементы и выдаёт полученные результаты.Проблема заключается в том что как заставить паскаль ввести 10 чисел "от себя" не написано да и как рассортировать отдельно положительные и отрицательные числа я тоже пока что не знаю (ну не забивать же если 1 элемент больше 0 знать прибавлять к a , в ином случае прибавлять к b и так 10 раз).
- ты это серьезно? какие нафиг вирусы на телефон? Вирусы бывают только на Симбиане. На обычные тела вирусов не существует.var c,n,e:integer;
l:string;
num:array[1..10] of integer;
begin
c:=1;
repeat
write('#',c,' Input integer decimal number '); readln(l);
val(l,n,e); //Преобразовываем число
if e=0 then begin
num[c]:=n; inc(c);
end else writeln('Error in number, repeat input.');
until c>10;
n:=0;
for c:=1 to 10 do
if num[c]>=0 then begin
writeln('Found positive number ',num[c],' at position ',c);
n:=n+numc[c];
end;
writeln('Total summ of positive numbers are ',n);
end.
Как-то так.
var l:string;
a,b,c:integer;
s:char;
begin
writeln('Input line, confirm input by <ENTER> key:');
readln(l);
if length(l)>0 then begin
a:=0; b:=0;
for c:=1 to length(l) do begin // Стринги идут от 1!!! 0й элемент - длинна
s:=l[c];
case s of
'*' : inc(a);
'+' : inc(b);
end;
end;
writeln('* = ',a,', +',b);
end else writeln('Zero length string are not allowed!');
end.Вывод всех ASCII:var c:byte;
begin
for c:=$20 to $FF do write('<',chr(c),'> = ',c); // Символы менее 20H (32) являются служебными
end.
Про 3е задание надо покурить хелпик пасовский. Там ЕМНИП есть функция поиска символа (типо LEFT/RIGHT/MID), которая и укажет на позицию требуемого символа. Касаема 2го задания, то я вижу это примерно так:var l:string;
c:integer;
begin
writeln('Input string:');
readln(l);
if length(l)>2 then begin
for c:=1 to Length(l)-1 do
if (l[c]=',') and (l[c+1]='-') then writeln('Match "',l[c],l[c+1],'" found at position ',c);
end else writeln(String must have at least 2 symbols!');
end.
Какой пиар? Я хочу себе домен NET.RU!Хотеть не вредно. Сказано же тебе: NET.RU занят. А ты не пробовал нажать на здесь, что светится в кружке на втором скрине? Тебе нужны DNS сервера же, а не домены вводить.
var a:integer;
b:byte;
...
for a:=0 to 3 do //Код
for b:=5 downto 2 do //Код
В конце цикла переменная-счетчик всегда будет иметь значение, указанное в поле TO/DOWNTO. Для досрочного выхода из цикла можно применить уже известный BREAK и тогда значение переменной-счетчика буде то, на котором цикл был прерван. Можно так же внутри цикла сразу задать значение переменной-счетчика конечному значению и цикл прервется сам, но это уже из разряда дурного тона, ибо тяжело отслеживается.// Условие по счетчику
var a,b:integer;
...
a:=0; b:=0;
while a<5 do begin
b:=b*a;
inc(a); // Если этого не сделать, то цикл станет вечным
end;
// Условие по значению
var a,b:integer;
...
a:=1; b:=1;
while b<1000 do begin
b:=b*a;
inc(a); // Если этого не сделать, то цикл станет вечным
end;
// Или можно организовать ожидание семафора / синхронизацию событий и потоков
var WaitEvent:boolean;
... // Код
while WaitEvent do sleep(100); // Ждем события, поток спит не нагружая процессор
... // Продолжение кода
// А в другом потоке или прерывании делать присвоение значений WaitEvent
// Условие по счетчику
var a,b:integer;
...
a:=0; b:=0;
repeat
b:=b*a;
inc(a); // Если этого не сделать, то цикл станет вечным
until a>5;
// Условие по значению
var a,b:integer;
...
a:=1; b:=1;
repeat
b:=b*a;
inc(a); // Если этого не сделать, то цикл станет вечным
until b>1000;
// Или можно организовать ожидание семафора / синхронизацию событий и потоков
var WaitEvent:boolean;
... // Код
repeat
sleep(100);
until not WaitEvent; // Ждем события, поток спит не нагружая процессор
... // Продолжение кода
// А в другом потоке или прерывании делать присвоение значений WaitEvent
Вот как-то так, если говорить в кратце.
Хотя я, пока пользовался Win98, проблем с этим не имел.Стало быть, когда пересел на ХР (Ме, 2К, Виста, Вин7 - нужное подчеркнуть) стал иметь проблемы? По существу скажу, что LPT/COM достаточно нечувствительны к подключениям/отключениям на горячую с аппаратной стороны (защита от статики) и никак не чувствительны с программной стороны (они просто не поддерживают PnP, правда, в последних версиях устройства могу отдать свой ID, но комп никогда не узнает кто был переподключен, пока сам не посмотрит). Даже USB, который расчитан на хотплуг и то более уязвим с аппаратной стороны, нежели СОМ или LPT.
Ты не совсем правильно понял. Мне нужно средство для автоматизации!!! Как картинку сделать первой это понятно, а как сделать так что бы на к каждой папке автоматом ставилась первая картинка из папки, вот оно что!
Вот оно что! Автоматом, сдаётся мне, ничего не получится."Вот оно чо, Михалыч!" (С)
В общем-то это я и так знаю. Пасквиль помню по лекциям из ВУЗа. Сейчас вообще только быдлокодю на PHP.Индусский код?
Может пример немного неудачен, но можно написать так:Результат будет тем жеА кто говорит, что требуется именно результат? Может задача стоит в том, чтобы научиться прерывать цикл. Например все тот же код, но несколько измененный:
j := 0;
for i := 0 to 10 do
begin
inc(j);
if j = d then break
end;(Извините, не удержался. Не люблю конструкции типо x:=x+1, я предпочитаю inc/dec) А d может изменяться перед вызовом этого куска кода.У меня до сих пор от таких "простых выходов" бросает в дрожь. Как представлю, что потом надо будет блок-схему чертить XDСразу видно, кто тут АСМа не нюхал.
Нарисуй блок-схему проги на асме и ты поймешь, что ты еще только в песочнице, а на стройку тебе еще рано.var ok:boolean;
// Наш код
...
// Точка входа в кусок кода, который и проверяет что-то
while true do begin
ok:=false;
if (....) then break;
// Чтонить делаем и еще проверяем
if (....) then break;
// Еще чтото сделаем
if (....) then break;
// Делаем
....
// Выход из секции
ok:=true;
break;
end;
// Проверяем, выполнен ли весь инит?
if ok then begin
// Все ОК, работаем
end else begin
// Чтото обломалось, скажем юзеру
end;
В принципе все понятно, ведь правда? И гораздо аккуратнее и более читабельнее, чем вложенные условия. Если вложенных циклов несколько, то все будет так же:// Наш код
while a<b do begin
ok:=false;
// Код
for d:=0 to 30 do begin
// Код
if (....) then break;
if (....) then ok:=true;
// Еще код
end;
if not ok then break;
// Продолжающийся код
end;Ну, в общем идея понятна, да? Работаем с флагами. Кстати, прием хорошо работает и на асме.var a:integer(byte, word, longint, dfword, etc...);
case a of
0 : // Код
3 : // Код
8..10 : // Код
else // Код
end;Третье условие показывает диапазон значений, а else сработает только если не сработает ни одно из условий. case - это однопроходная структура, нужно помнить, что срабатывает только одно из условий и остальные не выполняться. Можно использовать даже char:var key,ext:char;
key:=readkey;
case key of
'Y','y' : //Код
#10 : //Код
#0 : begin ext:=readkey;
case ext of
#$33 : // код
end;
end;
end;
Видно, что я читаю код нажатой клавиши и делаю какие-то действия. Если код клавиши =0 (это символ, поэтому это будет chr(0) или #0), то надо дополнительно считать код расширенной клавиши и обработать вложенным case, так опрашивают курсоры, функционалы и нумпад.type TMode = (mdIdle, mdRun, mdStop);
var Mode:TMode;
key:char;
// Наш код
key:=readkey;
case key of
'R','r' : Mode:=mdRun;
'S','s' : Mode:=mdStop;
else Mode:=mdIdle;
// Теперь заюзаем наш флаг
case Mode of
mdIdle : sleep(1000);
mdStop : // Код
mdRun : // Код
else Mode:=mdIdle; // На всякий атас
end;
Понятно? Кстати, булево так и описано: type boolean = (false, true);. Перечисления - на самом деле обычный байт (если их много, то больше: слово). Поэтому, первое обозначение получает код 0, второе 1 и т.д. Т.е. этот код эквивалентен предыдущему:const mdIdle = 0;
mdRun = 1;
mdStop = 2;
var Mode:byte;
key:char;
// Наш код
key:=readkey;
case key of
'R','r' : Mode:=mdRun;
'S','s' : Mode:=mdStop;
else Mode:=mdIdle;
// Теперь заюзаем наш флаг
case Mode of
mdIdle : sleep(1000);
mdStop : // Код
mdRun : // Код
else Mode:=mdIdle; // На всякий атас
end;
Но первый более элегантен.
Потому, что единственное, что в компе от них питается, это RTC, часы то бишь. Да и то, это в современных компах ставят литиевые элементы, а старых, типа 286 - 386 стояли действительно батарейки из 3-х элементов довольно внушительного размера.До первопней ставили как обычные батарейки (да, пальчиковые АА или мизинчековые ААА, которые вставлялись в батарейный отсек по 2-3 и прилеплялись на липучку к корпусу где-нибудь, а к маме подключались проводом), так и аккумуляторы 3,6v на 50mAh. Иногда я видел и 36мАч вроде. Не буду голословным, вот:
Я имел в виду, что она обладает некоторыми свойствами переменной, а не всеми.Но не сказал ведь?
А рекурсивные функции в Паскале как задаются? Всегда без взятия ее значения внутри ее тела? (Я просто уже не помню)Ты не путай рекурсию и "функция как переменная". При попытке взять значение функции внутри ее тела происходит все тот же ее вызов (а так как он внутри ее тела то и происходит рекурсивный вызов). А присвоить значение самой функции можно только в ее теле. Так что не убедил. Учись излагать свои мысли наиболее понятно для окружающих, чтобы не было двояких смыслов.
Ну вот, можно ли тот же факториал так прописать в Паскале:
function Fakt(n:byte):longint;
begin
if n=o then Fakt(n):=1
else Fakt(n):=Fakt(n-1)*n;
end;
Код работает , а можно в двух словах почему нужно приписывать именно :5:4 ?Ну для общего понимания что же я за действие совершаю приписав :5:4 .Write/WriteLn - это макрос а не функция. Именно поэтому, туда можно запихать неограниченное количество параметров или вызвать вообще без таковых. При выводе вещественных чисел можно их форматировать. В твоем примере, writeln(x:5:4), мы видим, что число Х должно быть отформатировано до 5 символов в длинну (первое число) и при этом содержать 4 знака после запятой (второе число). Второе число можно опустить и тогда необязательные числа после запятой не будут выводиться.
uses dos,crt;
var c,y:integer;
x:real;
t:text;
l:string;
begin
randomize; assign(t,'d:\work\pascal\numbers.txt'); rewrite(t);
writeln(t,'Real numbers formation:');
for c:=0 to 9 do begin
x:=random(100)/33;
Write(t,'Number: "'); Write(t,x); Write(t,'", x:6 result: "');
Write(t,x:6); WriteLn(t,'"');
Write(t,'Number: "'); Write(t,x); Write(t,'", x:4:2 result: "');
Write(t,x:4:2); WriteLn(t,'"');
Write(t,'Number: "'); Write(t,x); Write(t,'", x:8:0 result: "');
Write(t,x:8:0); WriteLn(t,'"');
end;
writeln(t,'Integer numbers formation:');
for c:=0 to 9 do begin
y:=random(20)*10;
Write(t,'Number: "'); Write(t,y); Write(t,'", y:6 result: "');
Write(t,y:6); WriteLn(t,'"');
Write(t,'Number: "'); Write(t,y); Write(t,'", y:4 result: "');
Write(t,y:4); WriteLn(t,'"');
end;
close(t);
end.
и ее вывод:Real numbers formation:
Number: " 2.60606060606005E+0000", x:6 result: " 2.6E+0000"
Number: " 2.60606060606005E+0000", x:4:2 result: "2.61"
Number: " 2.60606060606005E+0000", x:8:0 result: " 3"
Number: " 1.54545454545405E+0000", x:6 result: " 1.5E+0000"
Number: " 1.54545454545405E+0000", x:4:2 result: "1.55"
Number: " 1.54545454545405E+0000", x:8:0 result: " 2"
Number: " 2.72727272727207E+0000", x:6 result: " 2.7E+0000"
Number: " 2.72727272727207E+0000", x:4:2 result: "2.73"
Number: " 2.72727272727207E+0000", x:8:0 result: " 3"
Number: " 2.72727272727207E+0000", x:6 result: " 2.7E+0000"
Number: " 2.72727272727207E+0000", x:4:2 result: "2.73"
Number: " 2.72727272727207E+0000", x:8:0 result: " 3"
Number: " 2.93939393939218E+0000", x:6 result: " 2.9E+0000"
Number: " 2.93939393939218E+0000", x:4:2 result: "2.94"
Number: " 2.93939393939218E+0000", x:8:0 result: " 3"
Number: " 7.27272727272975E-0001", x:6 result: " 7.3E-0001"
Number: " 7.27272727272975E-0001", x:4:2 result: "0.73"
Number: " 7.27272727272975E-0001", x:8:0 result: " 1"
Number: " 3.03030303030482E-0001", x:6 result: " 3.0E-0001"
Number: " 3.03030303030482E-0001", x:4:2 result: "0.30"
Number: " 3.03030303030482E-0001", x:8:0 result: " 0"
Number: " 2.30303030303185E+0000", x:6 result: " 2.3E+0000"
Number: " 2.30303030303185E+0000", x:4:2 result: "2.30"
Number: " 2.30303030303185E+0000", x:8:0 result: " 2"
Number: " 2.57575757575614E+0000", x:6 result: " 2.6E+0000"
Number: " 2.57575757575614E+0000", x:4:2 result: "2.58"
Number: " 2.57575757575614E+0000", x:8:0 result: " 3"
Number: " 2.87878787878799E+0000", x:6 result: " 2.9E+0000"
Number: " 2.87878787878799E+0000", x:4:2 result: "2.88"
Number: " 2.87878787878799E+0000", x:8:0 result: " 3"
Integer numbers formation:
Number: "120", y:6 result: " 120"
Number: "120", y:4 result: " 120"
Number: "50", y:6 result: " 50"
Number: "50", y:4 result: " 50"
Number: "190", y:6 result: " 190"
Number: "190", y:4 result: " 190"
Number: "50", y:6 result: " 50"
Number: "50", y:4 result: " 50"
Number: "100", y:6 result: " 100"
Number: "100", y:4 result: " 100"
Number: "120", y:6 result: " 120"
Number: "120", y:4 result: " 120"
Number: "40", y:6 result: " 40"
Number: "40", y:4 result: " 40"
Number: "160", y:6 result: " 160"
Number: "160", y:4 result: " 160"
Number: "20", y:6 result: " 20"
Number: "20", y:4 result: " 20"
Number: "150", y:6 result: " 150"
Number: "150", y:4 result: " 150"
Так понятно? Замечу, что для целых чисел второе число задавать нельзя, ибо они на то и целые, что у них после запятой нету дробной части. Так же обращу внимание на то, что указание дробной части для реальных чисел является округлением(!), это видно на примере.
Именно это я и написал...Смотрим:
Функции и процедуры суть подпрограммы в Паскале. Отличие функции от процедуры в том, что с функцией можно обращаться как с переменной (присваивать ее значение другим переменным и пр.), а с процедурой нельзя.Попробуй присвоить ей значение вне ее тела. Попробуй взять ее значение внутри ее тела. Чувствуешь разницу?
Так что не два, а три.Нет, все-таки 2. Ну может, даже, 2+.
Действительно.Цитатавозвращает результат в себеот фразы почему-то возникла ассоциация с беременной девкой, осенне обострение наверно...
Функции и процедуры суть подпрограммы в Паскале. Отличие функции от процедуры в том, что с функцией можно обращаться как с переменной (присваивать ее значение другим переменным и пр.), а с процедурой нельзя.Садись два. Функция от процедуры отличается тем, что функция возвращает результат в себе а процедура нет. Но, при объявлении: procedure SomeProc(var a,b:byte) и function SomeFunc(var a,b:byte):byte a и b тоже могут вернуть какие-то значения. Так работают всем известные blockread/blockwrite, например. Так что, с точки зрения возврата результата различаются только возвратом результата в себе. Например, можно сделать так:
P.S. Терминологию я знаю. Просто элемент питания в простонародье называется батарейка."Батарейка" - это когда одноразовая. "Аккумулятор" - многоразовая. Ну и "Батарея" - это куча батареек. Это все для простых крестьян. А для спецов все так, как описал Rumata.
, осенне обострение наверно... 