Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Метод дихотомии для двух уравнений https://www.cyberforum.ru/ delphi-beginners/ thread162889.html Друзья, помогите доделать программу. Спасибо, тем кто решит. Надо написать метод дихотомии для двух и более уравнений. Вот мой код unit Udihot; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type	Убрать поля программы Delphi Напишите пожалуйста код,что бы можно было убрать бордюр программы.(синии поля)
Delphi присваивание Str-гу байтов 1. нужно отправить строку Str состоящую из байта и содержимого поля Edit в "числовом виде". Edit может состоять из цифр и содержать максимум три (т.е. 0..255). Думал вот так сгодится, но не вышло: Str := #0 + StrToInt(Edit.Text); ComPort.WriteStr(Str); (при Edit.Text='245' отправится посылка "$0$F5") 2. если бы можно было в Edit вводить сразу в шестнадцатиричном виде - было бы не... https://www.cyberforum.ru/ delphi-beginners/ thread162790.html	Delphi Мерцание в PaintBox https://www.cyberforum.ru/ delphi-beginners/ thread162755.html Кто подскажет как избавиться от мерцания в PaintBox когда в него выводится что-то с помощью таймера?
Рисование линии на PaintBox Delphi Подскажите как нарисовать линию на paintbox1 в delphi 7	Delphi Указатели - что это за звери?!? https://www.cyberforum.ru/ delphi-beginners/ thread162603.html Привет всем! Вот имею вопрос, что такое указатели, и для каких целей они вообще нужны, если можно объясните пожалуйста подробно, на простом русском языке, а то в некоторых книжках пишут,... складывается такое впечатление, что автор сам не понимал, о чем писал :)
Delphi системами счислений. Я понимаю что не в ту тему залез,но не нашол подходящей.....Короче кто может скинь ссылку а программу которая переводит числа в разные системы счислений с расписанием ка кона это делает,и нужна программа котороя будет проделывать деление ,умножение ,сложения подобных чисел....с тем же расписанием....очень нужно...так как учебный год на носу....а долг висит...или отзовитесь кто поможет с ришением https://www.cyberforum.ru/ delphi-beginners/ thread162594.html	Delphi ТWebBrowser не понимает WAP Сделал для себя небольшой что то типа браузера для "быстрой" навигации по некоторым WAP форумам.. Но не в этом суть.. Проблема такая.. Иногда попадаются WAP сайты которые WebBrowser не может открыть. :( Браузер предлагает сохранить страничку. Сохраняет вообще без расширения,и если самому потом приписать к примеру html на конце то IE его спокойно открывает (правда без стилей и картинок :( ) ....
Delphi Звуки в Delphi 7 https://www.cyberforum.ru/ delphi-beginners/ thread162567.html Как сделать чтобы при наведении мыши на panel1 был воспроизведён звук C:\123.wav ?	Delphi HttpGetText в чем проблема? procedure TForm1.Button3Click(Sender: TObject); begin HttpGetText('http://l2top.ru', Memo1.Lines); end; выводит пустую страницу... остальные сайты нормально отображает.. возможно нужно представляться как браузер? но как ето сделать https://www.cyberforum.ru/ delphi-beginners/ thread162546.html
Прочитать файл в Memo или RichEdit Delphi Увожаемые форумчане! Возникла необходимость вывести НЕ текстовый файл в Memo или RichEdit (9Ech-773_IP1111111.bin). Если писать RichEdit.Lines.LoadFromFile('9Ech-773_IP1111111.bin'), выдает билеберду.... А надо что бы как в TotalCommander при нажатии кнопки Просмотр (F3). Файл который нужно открыть=> Есте догатки, что нужно поиграться с типами данных Byte b PChar.... Зарание спасибо.	Delphi type для всех форм https://www.cyberforum.ru/ delphi-beginners/ thread162375.html Доброго времени суток! Подскажите пожалуйста, как можно объявить тип и переменную для 2 форм? Т.е. у меня есть 2 формы, и надо чтобы для них обоих в одном месте был объявлен тип, который я смогу использовать как с одной так и с другой формы. Это возможно?

flatgad

geJI<|>eP

188 / 187 / 19

Регистрация: 22.07.2010

Сообщений: 735

02.09.2010, 00:37

Решить систему уравнений методом перебора - Delphi - Ответ 936144

02.09.2010, 00:37. Показов 3915. Ответов 15

Метки (Все метки)

Ответ

Сообщение от D@rkD@iver

Prelest),

Delphi

x:= x0;{начальное значение}
repeat
       x:= x+0.001;
until (3-sin(x))<e;

где e- точность

не знаю по каким побуждениям вы так решали я тогда понять не могу зачем там нужно уравнение x=2+0.5cos(y-2).
Я думаю что надо так а именно алгоритм :
1. x-2-0.5cos(y-2)=0
2. Вместо у ставим 3-sin(x);
3. Получим x-2-0.5cos(1-sin(x))=0
после чего находим у=3-sin(x) подставивши найденій х;

Итого такая вот программка(пишу без делфи так как на работе):

Delphi

var x,x0,y,e,reshenie1:real;
label reshenie;
begin
//так как на условие х и у наложены пределы от -1 до 1 то будем решать таким образом 
x0:=-1;
e:=0,001;
deltax:=0.01;
  while x0<=1 do begin 
    reshenie1:=x0-2-0.5*cos(1-sin(x0));
      if reshenie1<e then 
         begin
          x:=x0;
          goto reshenie;
        end;
     end;
reshenie: y:=3-sin(x);
showmessage('x='+strtofloat(x)+#13+'y='+strtofloat(y));
end;

Вроде что то так могут быть ошибки.

Вернуться к обсуждению:
Решить систему уравнений методом перебора Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

02.09.2010, 00:37

Готовые ответы и решения:

Решить систему нелинейных уравнений методом простых итераций
НУжно решить систему нелинейных уравнений методом простых итераций Я тут писал но кода вгоняешь...

решить систему уравнений
В качестве f(x) использовать по выбору: sh(x), x2, ex. Код из примера: unit Unit1; ...

Решить систему уравнений
DELPHI

Решить систему линейных уравнений
как решить помогите...завтра последний день

	02.09.2010, 00:37

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

02.09.2010, 00:37

Помогаю со студенческими работами здесь

Как решить систему уравнений
Здравствуйте! У меня вот к Вам вопрос, как можно сделать такое задание: Нам дана система уравнений...

Как решить систему линейных уравнений
как решать систему на бумажке я знаю,но как написать это на паскале.. к примеру есть система...

Решить систему линейных алгебраических уравнений
1.16x1+0.83x2-0.66x3=2.21 0.45x1-0.54x2+0.83x3=-0.41 0.32x1-0.28x2+1.06x3=1.02 Есть вот такая...

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

Наверх