Форум Игромании - Delphi/Делфи

Страница 4 из 5

Показывать 200 сообщений этой темы на одной странице

Форум Игромании (http://forum.igromania.ru/index.php)

- Программирование (http://forum.igromania.ru/forumdisplay.php?f=243)

- - Delphi/Делфи (http://forum.igromania.ru/showthread.php?t=111292)

Digimortal

09.07.2012 20:54

Народ помогите советом :)
Надо написать программу (ради тренировки) для расчёта:
3*х1+2*х2+1х3 =5
2*х1+3*х2+1*х3 =1
2*х1+1*х2+3*х3 =11

Во всех трёх строках х1, х2 и х3 должны иметь одинаковые значения.
Который час ломаю голову.

CMETAHA

09.07.2012 21:08

Digimortal, Бог ты мой. Что конкретно не получается? Ты не умеешь решать систему уравнений?

Digimortal

09.07.2012 21:16

Ага, не умею.

CMETAHA

09.07.2012 21:23

Digimortal, Ну тогда дуй в гугл. Ничего сложного в решении систем нет.

Анкар

10.07.2012 04:53

Я бы даже сказал дуй сюда. Хотя тут 3 уравнения и 3 неизвестных, так что более полезно закодить Метод Крамера.

Кар-Карыч

10.07.2012 16:34

Цитата:

Сообщение от Digimortal (Сообщение 10368780)

Ага, не умею.

Ох боже мой, решение системы уравнений методом обратной матрицы, смотри тут

Cornereaux

01.12.2012 11:36

Написать программу, которая выводит на экран изображение перемещающегося кораблика. Кто сможет скинуть проект на почту?

Льюс Терин

01.01.2013 11:50

Чем Delphi 2007 отличается от Delphi 7?

CMETAHA

04.01.2013 01:30

nosikamus, http://nnm.ru/blogs/alex_sporik/delp...yu_s_delphi_7/

Cornereaux

29.04.2013 15:06

Нужна помощь в создании тестовой программы, считывающей вопрос, варианты ответов и ответ с внешнего файла, с выведением количества правильных ответов. Кто может потратить свое бесценное время, прошу помочь.
P.S. Считывание должно быть с .doc файла

Льюс Терин

06.10.2013 12:22

не работает этот кусок кода:

Код:

begin

Form1.Canvas.Ellipse(360, 112, c.Di+360, c.Di+112);



end;

Если просто числами задать, то все нормально, с простыми переменными тоже не работает.
Ошибка
E2250 There is no overloaded version of 'Ellipse' that can be called with these arguments

Keltar

08.10.2013 22:54

nosikamus, переменные типа integer? Нарыл такой кусок кода, сверь со своим.

Цитата:

var x1, y1, x2, y2: Integer;
begin
X1:=100; y1:=100;
X2:=200; y2:=200;
canvas.Ellipse(x1, y1, x2, y2);

Льюс Терин

08.10.2013 23:12

Да. Я уже что по разному извращался.
Попробую твой вставить, посмотрю будет работать или нет.
Спасибо.
А где подробней про классы почитать можно про это? Мне это нужно именно через класс сделать, вроде.

Keltar

08.10.2013 23:15

nosikamus, ну вот это http://win-ni.narod.ru/lect/lect14.htm например. Я на дельфи так-то не пишу)

Льюс Терин

02.11.2013 17:17

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

АПД:
Тупой вопрос, на самом деле, и задал его тупо.
Все просто:

Код:

Edit1.Text:= Edit1.Text + 'символ'

Льюс Терин

18.11.2013 15:51

Можно ли как-то Delphi сформировать что-то типа отчета о использованных компонентов в написанной программе - какие события использовались, и.т.д.
Можно,конечно вручную, но вот подумал: а не предусмотрена такая возможность в самой среде.
Delphi 7
RAD XE

Льюс Терин

19.11.2013 20:37

И в догонку еще проблема:

Код:

 if (Key in ['+']) then

 begin

 key:= #0;

 Btn11.Click;

 end;



 if (Key in ['-']) then

 begin

 key:= #0;

 Btn12.Click;

 end;



 if (Key in ['*']) then

 begin

 key:= #0;

 Btn13.Click;

 end;



 if (Key in ['/']) then

 begin

 key:= #0;

 Btn14.Click;

 end;

Все работает, кроме '-', сама кнопка работает, но не срабатывает при нажатии '-'

Льюс Терин

21.01.2015 20:04

Тут все мертво...

Хочу передать синусойду через сокет на другой компьютер, передаю уже посчитаные x и y а на приеме уже рисую.i

Код:

procedure TForm1.Button3Click(Sender: TObject);

begin

while x *<=100 do

*begin

* y:=sin(x);

* *ClientSocket1.Socket.SendText(FloatToStr(x) + '&' +FloatToStrf(y, fffixed, 3,3) );

* x:= x + dx;

end;

end;

На цикле сокет заикается, и не передает ничего. Если цикл убрать, и просто клацать кнопку, то отрисовка у клиента идет. Думал добавить Sleep(), но не получается засунуть отправку в поток:
Код Delphi

Код:

ClientSocket1.Socket.SendText(FloatToStr(x) + '&' +FloatToStrf(y, fffixed, 3,3) );

Без потока программа естественно виснет.
Как сделать так, что бы сокет передавал данные?

[CCCP] Monster

21.01.2015 20:48

nosikamus,

Цитата:

Тут все мертво...

Сегодня встретишь ты едва ли,
Тех кто пишет на Паскале.
Все, кого ты ни спроси,
Программируют на Си.

Цитата:

На цикле сокет заикается, и не передает ничего.

Объект сокета создавался как синхронный? Какие параметры протокола использовались? Конструктор и настройки, в общем, напиши.

Льюс Терин

21.01.2015 21:16

[CCCP] Monster, все, на меня поругались на кибер форуме, и решил проблему http://www.cyberforum.ru/delphi-netw...ad1359013.html

Часовой пояс GMT +4, время: 06:58.

Страница 4 из 5

Показывать 200 сообщений этой темы на одной странице