Сейчас обсуждают

[mephisto]

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

Куратором темы назначается ??????? (место вакантно )

[Nyasha]

Я бы предложил написать это в правильной теме, но для этого еще предстоит найти правильный раздел.

К данному вопрос отношения не имеет.

Сообщение отредактировал Nyasha - 16.11.2013, 18:23

[tyshka]

Помогите с лабой,срочно надо
1. Определите значение целочисленной переменной S после выполнения операторов:
a) S:=128
нц для i от 1 до 4
S:=div(S,2)
кц
S:=1; a:=1
нц для i от 1 до 3
S:=S+i*(i+1)*a
a:=a+2
кц
c) S:=1; a:=1
нц для i от 1 до 3
S := S+i
нц для j oт 2 до 3
S := S+j
кц
кц
d) S:=0
нц для i от 1 до 2
нц для j от 2 до 3
S:=S+i+j
кц
кц
e) нц для i от 1 до 3
S:=0
нц для j от 2 до 3
S:=S+i+j
кц
кц
f) нц для i от 1 до 2
S := 0
нц для j oт 2 до 3
нц для k oт 1 до 2
S := S+i+j+k
кц
кц
кц
2. Составьте алгоритм решения задач разветвляющейся структуры и в виде блок-схем и в виде псевдокода:
a) определить, является ли треугольник с заданными сторонами a, b, c равнобедренным;
определить количество положительных чисел среди заданных чисел a, b и c;
c) меньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения;
d) числа a и b — катеты одного прямоугольного треугольника, а c и d — другого; определить, являются ли эти треугольники подобными;
e) даны три точки на плоскости; определить, какая из них ближе к началу координат;
f) определить, принадлежит ли заданная точка (x, y) плоской фигуре, являющейся кольцом с центром в начале координат, с внутренним радиусом r1 и внешним радиусом r2 ;
g) упорядочить по возрастанию последовательность трех чисел a, b и c.

[Segate]

у меня такая проблема:
в delphi мультимедийный таймер срабатывает каждые 2 милисекунды:

Код

function timeSetEnet(uDelay, uResolution: UINT;
                     IpTimeProc:Pointer;
                     dwUser: DWORD;
                     fuEvent: UINT): UINT;
    stdcall;
    external 'winmm.dll';

function timeKillEvent(uID: UINT): UINT; stdcall; external 'winmm.dll';

procedure TimeProc(uID, uMsg: UINT; dwUser, dwi, dw2: DWORD); stdcall;
begin
TCNT:=TCNT+1;
if TCNT=count*500 then
    begin
        Form1.BComPort1.WriteStr('a');
        Form1.image1.Picture:=nil;
        Form1.axes;
        Form1.image1.Canvas.MoveTo( sc, Form1.image1.Height div 2);
        Form1.BComPort1.ClearBuffer(true,true);
        TCNT:= 0;
        Form1.BComPort1.WriteStr('b');
    end;
end;

запуск таймера происходит строкой ueventid := timesetevent(2,0,@TimeProc,0,1);
процедура Form1.axes; рисует в image1 оси (типа график). дак вот когда эта функция вызывается в процедуре срабатывания мультимедийного таймера, эти оси не рисуются, какбудто неуспевают (иногда бывает пару полос нарисует, а иногда воабще ничего). а если вызвать то, что в условии if TCNT=count*500 then например по нажатию на кнопку, то все хорошо рисует. в чем дело? может есть какие-то нюансы с этим таймером или еще что-то, что я не учел?

Сообщение отредактировал Segate - 30.11.2013, 17:31

[HiSER]

Видимо проблема в условии (if TCNT=count*500 then)
Для чего оно?

[Segate]

Видимо проблема в условии (if TCNT=count*500 then)
Для чего оно?

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

[Segate]

и вот че интересно:
я попробовал в функции Form1.axes рисовать не в image а на форме. в таком случае почемуто работает, но мне нужно именно в image.

[HiSER]

Можно же использовать два таймера.
Попробуй увеличить интервал.
Собака могла зарыться и в другом месте, полный код нужен и хотя бы вкратце, что должно происходить.

[MotoArhangel]

я вот все не могу понять, почему все думают что 7 версия самая лучшая.
какое первоначальное значение переменной tcnt?
с какой целью используете таймер?

[Nyashka-yaoishik]

Привет, помогите, пожалуйста. Как сделать для чата проверку имен? Чтобы допустим один пользователь не мог задать имя, которое уже используется...

[mephisto]

Привет, помогите, пожалуйста. Как сделать для чата проверку имен? Чтобы допустим один пользователь не мог задать имя, которое уже используется...

Ну берешь и проверяешь, если имя используется — просишь взять другое.

[Wi-Fi]

я вот все не могу понять, почему все думают что 7 версия самая лучшая.
какое первоначальное значение переменной tcnt?
с какой целью используете таймер?

А какая версия по вашему лучшая, в чем ее плюсы?

[***kent***]

Подскажите что нибудь (библиотеку, компонент, модуль) чтобы можно было простенько буквально в пару строк зашифровать небольшое сообщение каким нибудь более менее криптостойким алгоритмом (des,3des, rsa,гост), ну и расшифровать очевидно.
Хотя сам сомневаюсь что такое возможно в пару строк
p.s. rad studio xe7.

[shouhei]

Вот, например