РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Евгений/Genia007/ Статус: Профессионал Рейтинг: 238 ∙ повысить рейтинг »

Сергей Бендер Статус: Профессионал Рейтинг: 27 ∙ повысить рейтинг »

Асмик Гаряка Статус: Советник Рейтинг: 6 ∙ повысить рейтинг »

∙ Pascal / Delphi / Lazarus

Номер выпуска:	1698
Дата выхода:	16.08.2016, 10:51
Администратор рассылки:	Зенченко Константин Николаевич (Модератор)
Подписчиков / экспертов:	21 / 17
Вопросов / ответов:	3 / 7

Консультация # 124800:

дан массив ненулевых целых чисел.определить, сколько раз меняется знак элементов массива при его просмотре. например, в массиве 12,-4,13,77,-5,-99 знак меняется три раза.

Дата отправки: 25.02.2008, 19:35
Вопрос задал: Юрченко Евгений Сергеевич
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Marked One:

!!!
Здравствуйте, Юрченко Евгений Сергеевич!
Код в приложении

Приложение:
var IArray:array [0..5] of Integer; i, j:Integer;begin j:=0; for i:=0 to 5 do if IArray[i]<0 then j:=j+1; Write(\'Знак меняется \'); WriteLn(j); readln;end.

Консультировал: Marked One Дата отправки: 25.02.2008, 20:17

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Николай Владимирович / Н.В.:

Здравствуйте, Юрченко Евгений Сергеевич!
Программа в приложении.

Удачи!

Приложение:
const N = 10;var A : array[1..N] of integer;function MyRandom(MIN, MAX:integer):integer;{генерирует случайное число из промежутка MIN..MAX отличное от нуля}var t : integer;begin t := random(MAX-MIN)-MAX; while t = 0 do t := random(MAX-MIN)-MAX; MyRandom := t;end;var i, count : integer;begin{ заполняем массив целыми числами не равными нулю } randomize; for i := 1 to N do begin A[i] := MyRandom(-20,20); WriteLn(A[i]); end; count := 0; for i := 2 to N do{ проверяем, изменился ли знак в элементе A[k] по сравнению с A[k-1] если знак изменился, то произведение соседних элементов отрицательное, иначе - положительное} if A[i]*A[i-1] < 0 then inc(count); {если сменился, увеличиваем счетчик на единицу} WriteLn(\'Kolichestvo smen: \', count); ReadLn;end.

Консультировал: Николай Владимирович / Н.В. Дата отправки: 25.02.2008, 20:21

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Шемет Станіслав Васильович:

Здравствуйте, Юрченко Евгений Сергеевич!
Вот как работает программа
1) заполняет массив случайными числами
2)далее идет такая проверка на изменения знака
1) смотрим знак текущего элемента если он отличается от следующего элемента, то увеличиваем збільшуємо(не знаю как это слово пишется по-русски) переменную Count на единицу
if((m[i]<0)and(m[i+1]>0))or((m[i]>0)and(m[i+1]<0)) then - этот код проверяет отличаться ли соседние элементы массива по знаку.
3)Выводим значение Count на монитор.

Приложение:
constn=10;VarM:array[1..n]of integer;B:boolean;i:word;Count:word;BeginRandomize;For i:=1 to n doBeginm[i]:=Random(300);Dec(m[i],Random(220));end;Count:=0;for i:=1 to n-1 doIf ((m[i]<0)and(m[i+1]>0))or((m[i]>0)and(m[i+1]<0)) theninc(Count);Writeln(Count);Readln;end.

Консультировал: Шемет Станіслав Васильович Дата отправки: 26.02.2008, 00:16

Рейтинг ответа: 0 поблагодарить эксперта

Консультация # 17644:

Доброго времени суток!
Уважаемые эксперты, не подскажете как мне сделать сниффер com порта? Перепробовал многие компоненты, но в них если открываешь порт, то никто другой уже к этому порту обратиться не может. Мне надо чтобы программа постоянно висела в памяти и определяла, когда наначинается и заканчивается передача данных через порт. Заранее благодарен.

Дата отправки: 01.03.2005, 07:38
Вопрос задал: Gleban
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Bob Johnson:

Здравствуйте, Gleban!
Если тебе просто нужна программа (а не цель разобраться, как ее делать), то сходи на sysinternals.com - там есть portmon.

Консультировал: Bob Johnson Дата отправки: 01.03.2005, 12:13

Рейтинг ответа: 0 поблагодарить эксперта

Консультация # 36538:

Здраствуйте.
Как програмно перевести фокус или выделить ячейку StringGrid\'a?
Спасибо.

Дата отправки: 02.03.2006, 07:56
Вопрос задал: Yarking
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Ерёмин Андрей:

Здравствуйте, Yarking!
Выделять ячейки StringGrid очень легко. При этом, можно выделять как одну ячейку, так и диапазон ячеек. Вот пример:

procedure TForm1.Button1Click(Sender: TObject);
var
myRect: TGridRect;
begin
myRect.Left := 3;
myRect.Top := 1;
myRect.Right := 2;
myRect.Bottom := 4;
stringgrid1.Selection := myRect;
end;

Консультировал: Ерёмин Андрей Дата отправки: 02.03.2006, 08:00

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Полищук Владислав Игоревич:

Здравствуйте, Yarking!
StringGrid\'а есть свойство Selection благодаря которому можно осуществить то что Вам нужно
Например
var
S:TGridRect;
begin
S.Left:=3;
S.Top:=3;
S.Right:=3;
S.Bottom:=3;
StringGrid1.Selection:=s;

P.S. StringGrid1.Selection.Left:=3; - не пройходит

Консультировал: Полищук Владислав Игоревич Дата отправки: 02.03.2006, 10:57

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Diman_A:

Здравствуйте, Yarking!
Код, выделяющий ячейку [3,3]:
form1.StringGrid1.Row:=3;
form1.StringGrid1.Col:=3;
form1.StringGrid1.SetFocus;
Вообще, у любого компонента есть св-во setfocus. Его и используйте.

Консультировал: Diman_A Дата отправки: 02.03.2006, 15:57

Рейтинг ответа: 0 поблагодарить эксперта

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка