TolkienDRR

a*a[i+1]<0

хахаха, я злодей =D ты ноль не учитываешь )))))))

два числа "-1, 0" у тебя не определят смену знаков =P

Добавлено спустя 1 минуту 10 секунд:

хотя сначала сказал, что у тебя решение элегантнее ))) и девушке рядом даже начал объяснять ))) и тут осенило про нолик )))))))

поэтому злодей =Р

uses crt;
var
 a : array[1..100] of real;
 ind : array[1..100] of byte;
 i,j,count:integer;
 b:boolean;
begin
 randomize;
 a[1]:=random(501)-250;
 j:=0;
 count:=0;
 for i:= 2 to 100 do begin
  a[i]:=random(501)-250;
  if ((a[i]>=0) and (a[i-1]<0)) or ((a[i]<0) and (a[i-1]>=0)) then begin
   inc(j);
   ind[j]:=i;
   inc(count);
  end;
 end;
 writeln('+/- change = ',count);
end.

Добавлено спустя 6 минут 49 секунд:

Lakers, вроде как запомнить надо =) и цикла одного вроде хватить должно =)

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

Const n= 20
Var m :array [1..n] of integer ;
I,j temp for i :=1 to n do
:integer ;
Begin
Randomize ;{инициализация генератора случайных чисел}
m[i] :=random (100) ;{заполнение массива случай. числами в диапазоне от 0 до 99}
{сортировка элементов массива }
for i : = 1to n do
for j:=i+ 1to n do
if m[i]>m[j] then begin
temp :=m[i];m[i] :=m[j];m[j]:=temp
end

чушь какая то, ты сам начинал писать??

у нее есть парень? у тебя девушка?

по мне если хорошо общаетесь и дорожишь именно дружбой с ней, то не стоит что-либо начинать. если тебе всё равно до дружбы, то можешь смело идти в бой =)

а вообще все по ситуации, думаю в жизни фифти фифти таких ситуаций, когда всё складывалось и когда все рушилось =)

24 страницы советов, стеба и порой глумлений видимо не помогло )))

я видимо пропустил 23 страницы))) сколько лет, Санёк?

если 20-25 уж пора задуматься, в таком возрасте без девушки вообще и не уметь приласкать девушку - это странно довольно таки. если больше 25, уж тем более, пора что-то менять кардинально. а если до 20, не парься и ищи романтики, а вдруг найдешь =)))

mikhan

+1.

когда видишь 6+ значные цифры вероятностей - это ооочень хороший анти эффект ))) а то большинство видят только 6-значные суммы выигрышей и делают глупости )))

заканчиваем оффтопить )

спасибо еще раз 29a и спасибо Juicy =) привет Баиру ))

29a

огромная благодарность просто я не очень знаком со спортлото =)

Juicy

это остаточные знания или логический вывод?

может не будет важен первый шар? тогда вероятность будет не 5/36 * 4/35 * 3/34 * 2/33, а 5/35 * 4/34 * 3/33 * 2/32 ??

я тут подумал, по идее вероятность должна быть равно

вероятность 4 из 5 = вероятность 5 из 5 - вероятность 1 из 5.

1 из 5 = 1/32, 1/33, 1/34, 1/35, 1/36.

и тут то оно проблема =))))

Спортлото. 36 чисел на одной карточке, вытаскивают 5 чисел. Надо высчитать вероятность того, что вывалится 4 совпавших числа на эту карточку.

Вероятность того, что все 5 совпадут = n! / (m!*(n-m)!) ~ 2.65 * 10^-6     (1)

Так чему равна вероятность того, что совпадут 4 из выпавших 5 ? Логически думается надо умножить на 5, так ли это? Если можно формулу конечно.

Проще для ума вероятность (1) = 5/36 * 4/35 * 3/34 * 2/33 * 1/32 ~ 2.65 * 10^-6

То отсюда кажется что может одинаково верно:

5/36 * 4/35 * 3/34 * 2/33

5/35 * 4/34 * 3/33 * 2/32

5/36 * 4/34 * 3/33 * 2/32

...

а они ж разные е-мое =((

в общем, прошу помощи )

Да всегда рады размяться )

кста, по идее орд у пробела же 32, так что:

var
 s,s2: string;
 i: integer;
 a: array[0..255] of byte;
begin
 readln(s);
 for i:=1 to length(s) do inc(a[ord(s[i])]);
 for i:=1 to length(s) do
  if (s[i]=' ') or (a[ord(s[i])]=1) then s2:=s2+s[i];
 writeln(s2);
end. 

Lakers

только добавить условие на пробел во второй цикл.

хм. что-то сомнения, что удалит во входной фразе Я сегодня пошел в кино букву я в слове сегодня.

add

ой вру, не заметил что второй цикл опять с начала фразы for j:=1

Добавлено спустя 53 секунды:

зато другая ошибка ))))

добавить надо в условие

 if s[i]=s[j] then 

еще

i<>j

спасибо, оч интересно =) ждем продолжения )

Driver1990

у каждого абонента есть свой пароль, для того чтобы какой нибудь левый чел не смог вот так с твоего счета деньги скинуть =) за этим в кол центр обращайся =)

   kaiza, кто у тебя рук-ль? в ЛС напиши, 9го марта точно определюсь со своим дипломным проектированием, тогда и отвечу, смогу ли за 2 вещи взяться сразу. ценник будет немаленький, т.к. сам буду занят и выкраивать время на чужой диплом - для меня проблематично.

   Народ, у кого с сибнета (file1/2.sibnet.ru) скорость упала? У меня один файл качался было 130 от силы, второй файл для проверки поставил, теперь 2 параллельных закачки 2оо еле набирают.

Driver1990

*101*<номер_телефона>*<сколько денег>*<пароль>#

номер телефона в формате - 902ххххххх

сколько денег - на балансе после этого у тебя должно остаться как минимум 50 рублей

точно не уверен, давно не пользовался.

kokon

а для тебя патриот должен быть только русским по национальности? ))) еще и судишь его, хотя у самого ооочень странные взгляды...

когда я писал на заказ эту прогу, на первом курсе писали на паскале =D но переделать ничего сложного, материал вроде остался и прога. отчет самому придется тебе написать..

зы такие вопросы в лс

делал этот курсовой )) видимо 1ый курс. если никто за бесплатно не возьмется, обращайся )))

там свободная точка, без логинов и паролей =)

правда на редирект попадаешь каждые пару минут )))

   Программа специфическая, нужно знание предметной области... с ней я знаком хорошо, но на данный момент работаю над всепроникающими вычислениями, так что не против просто консультировать и помогать, может и полностью возьмусь. будет ясно после гэка. да и мой вопрос ответ не пришел пока от топикстартера))) редко бывает видимо

Рина, передам про подарок тому кто дарил ))))))) если не ошибаюсь года 2 назад на 8 марта как раз да? или на дэрэ?

DeL

XD это русский язык за 7-8 классы, корни лаг/лог, раст/рост и т.п. =)

которые Бууза - подвальчик такой с двумя залами. слева некурящий потише и темнее, справа курящий с барной стойкой и светлее )))