Программирование на Delphi Опции

[Warenik]

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

[SHADE]

Первая програмка при необходимости передачи сообщения выдает пользователю сообщение "Нажмите на кнопку №14 в той программе"
прользователь идет и нажимает кнопку №14 -- управление

Сообщение отредактировано SHADE - 30.06.2007 - 19:01

[KeR]

Через сокеты, через общую память..

[Sashka]

Точно! Windows Sockets рулят в этом плане. Недавно осваивал.
См. например здесь: ]]>http://www.firststeps.ru/mfc/net/socket/r.php?1]]>

[Cartman]

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

» Кликните, чтобы показать спойлер... «

Задача 2.
Написать на Паскале или Бейсике логическое выражение, зависящее от переменных x и y, которое принимает значение true тогда и только тогда, когда точка с координатами x и y принадлежит закрашенной серым цветом замкнутой области, ограниченной четвертями окружностей.

помогите пожалуйста!!

[Phoenix]

( (sqr(abs(x) - 3) + sqr(abs(y)-3) > 9) and (abs(x)<=3) and (abs(y)<=3) )

[Cartman]

а ты не мог бы расшифровать?
я даж не любитель в делфи. так на уровне начинающего там фор енд бегин )

[Phoenix]

Требовалось написать логическое выражение. О каких Бегин-ендах идет речь?
попробую расшифровать.
три логических выражения, сцепленные AND-ами, требуется одновременное выполнение
первое - функция, определяющая область вне четырех кругов радиусом 3 и центрами в (-3, -3), (3, -3), (-3, 3) и (3, 3)
второе и третье выражения отсекают всё, что выходит за квадрат [-3, -3], [3, 3], оставляя только требуемую фигуру.

Сообщение отредактировано Phoenix - 21.07.2007 - 16:56

[Cartman]

большое спасибо!

[tdv]

Лучше поместить первую часть выражения на последние место:

((abs(x)<=3) and (abs(y)<=3) and (sqr(abs(x) - 3) + sqr(abs(y)-3) > 9))

[Cartman]

ребят еще трабл попал!

» Кликните, чтобы показать спойлер... «

<H1 style="MARGIN: 0cm 0cm 0pt">Задача 5.</H1>Заданная программа выводит некоторую числовую последовательность a1, a2, a3, …, aN-1, aN. Составить программу, выводящую последовательность чисел a1, a2, a3, …, aN-1, aN, aN-1, …, a3, a2, a1.
На языке Паскаль:
[/font]
program XYZ;
var x,y,z,i,N: integer;
begin
x:=0; y:=0; z:=0;
N:=2005;
for i:=1 to N do
begin
x:=x+y+z+1;
y:=x+y+z+1;
z:=x+y+z+1;
writeln(x); writeln(y); writeln(z);
end;
end.











[font="Times"]

так бывает попадаются задачки чисто логические - вот тут запара ... как его тормазнуть An-1 ? ))
люди помогите будущему поколению!

[Holsten]

for i:=1 to N do
begin
x:=x+y+z+1;
y:=x+y+z+1;
z:=x+y+z+1;
writeln(x); writeln(y); writeln(z);
end;

А если не секрет, зачем здесь FOR (оно всё равно ни на что не влияет)?
Я так понял надо тоже самое но в обратной последовательности ну так и пишите, добавьте кусочек:

Код

for i:=N-1 to 1 do
begin
x:=x+y+z+i;
y:=x+y+z+i;
z:=x+y+z+i;
writeln(x); writeln(y); writeln(z);
end;

[Phoenix]

for i:=N-1 downto 1 do
begin
x:=x+y+z+i;
y:=x+y+z+i;
z:=x+y+z+i;
writeln(x); writeln(y); writeln(z);
end;
Вот только смотря что считать за число... Подозреваю, что надобно X Y Z считать за 3 разных. Да и процесс этот итеративный, поэтому меняем + на -
Как-то так.
for i:=N-1 downto 1 do
begin
x:=x-y-z-i;
y:=-x+y-z-i;
z:=-x-y+z-i;
writeln(z); writeln(y); writeln(x);
end;
Так как паскаль у меня отсутствует, проверить не могу. Но тестирование требуется, я не на 100% уверен в этом коде.

Сообщение отредактировано Phoenix - 22.07.2007 - 14:43

[Cartman]

Спасиб ребят!! очень помогли!
на экзамене решил все 5 задач! =))
будем ждать результатов - а они в субботу!

[Cartman]

12 баллов из 15! Спасибо всем помогающим!!!
сорри за офтоп!!!

Сообщение отредактировано Cartman - 28.07.2007 - 16:26