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

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

Войти

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

Другие темы раздела
Delphi Как определить цвет пикселя по курсором? https://www.cyberforum.ru/ delphi-beginners/ thread384849.html Подскажите, задача такая: Я перемещаю курсор в определенные координаты, мне нужно определить цвет пикселя под курсором и записать этот цвет (или его составляющие RGB) в какую - либо переменную. По форуму такого не нашел, в остальном интернете тоже. Добавлено через 13 часов 25 минут нашел procedure TForm1.Button1Click(Sender: TObject); var Color:TColor; R,G,B:byte; begin	Delphi Помогите плиз написать програмный код!
Delphi Помогите написать програмный код для програм, пожалуйста Даны действительные числа x,y. Определить, принадлежит ли точка с коэффициентами геометрической фигуре:треугольник с координатами вершин (-1;1),(1;1) и (0;0) и круг с цетром в точке (0;-1) и радиусом 1 https://www.cyberforum.ru/ delphi-beginners/ thread384830.html	Delphi Отсутствие ввода данных в компонент StringGrid. https://www.cyberforum.ru/ delphi-beginners/ thread384829.html Как сделать так, чтобы при не вводе данных в компонент StringGrid при нажатии кнопки "Вычислить" выдавалось следующее сообщение: "Введите одномерный массив". И при этом вычисление не выполнялось. Как это сделать?
Проверка правильности ввода в поле Edit Delphi как сделать проверку правильности ввода в поле Edit, чтобы исключить недопустимые символы? Нужно чтобы при вводе в поле Edit1 любых букв или символов выводилось сообщение "Не верно!", а при вводе чисел - добавлялось в таблицу в соответствующее поле "Продолжительность"!	Delphi Создание библиотеки динамической компоновки (DLL) https://www.cyberforum.ru/ delphi-beginners/ thread384803.html Ребята с задачой разобратся помогите Условия и варианты внутри папки файла лабаоопр.дос
Delphi Найти площадь параллелограмма если известно 2 стороны и угол между ними Найти площадь параллелограмма если известно 2 стороны и угол между ними (в градусах) https://www.cyberforum.ru/ delphi-beginners/ thread384796.html	Delphi Проверьте пожалуйста правильность задачи и её решения на Делфи program Project2; {$APPTYPE CONSOLE} uses SysUtils; type massiv=array of integer; var n,i,v,k:integer; mass: massiv;
Delphi помогите с задачами не могу сделать другая задача: Даны действительные числа x,y. Определить, принадлежит ли точка с коэффициентами геометрической фигуре:треугольник с координатами вершин (-1;1),(1;1) и (0;0) и круг с цетром в точке (0;-1) и радиусом 1 https://www.cyberforum.ru/ delphi-beginners/ thread384788.html	Delphi По рисунку нужно написать безье и сплайн Вот по рисунку надо написать безье и сплайн, вот код написал, но тут что то не то, ошибка какая то, рисунок называется кулачёк unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type https://www.cyberforum.ru/ delphi-beginners/ thread384780.html
Delphi Игра пятнашка Можете помочь понять как работает программа:) почему не видно картинок с кнопками на самой форме?	Delphi Программа для просмотра файлов графики и текста Создаю прогу для просмотра файлов графики и текста. все открывает и работает.но проблема при загрузки выбранного текстового файла. подчеркивает красным последнюю строчку. помогите procedure TForm2.N2Click(Sender: TObject); begin if OpenDialog1.Execute then begin Form4:= TForm4.Create(Application); Form4.Caption:= OpenDialog1.FileName; Form4.Memo1.LoadfromFile (OpenDialog1.FileName) ;... https://www.cyberforum.ru/ delphi-beginners/ thread384758.html

URUHA

46 / 35 / 20

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

Сообщений: 136

16.11.2011, 10:13

Сломал голову, нужна помощь!!! Помогите пожалуйста!!! - Delphi - Ответ 2176723

16.11.2011, 10:13. Показов 1118. Ответов 2

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

Сообщение было отмечено как решение

Решение

Delphi

var
  z,x,y,a,b,c: real;
  min,temp:real;
begin
  x:=strtofloat(edit4.Text);
  y:=strtofloat(edit5.Text);
  a:=strtofloat(edit1.Text);
  b:=strtofloat(edit2.Text);
  c:=strtofloat(edit3.Text);
  if (x*y)>2 then
    z:=a*sqr(y)*cos(x)
  else
  if (x*y)<=0 then
      begin
        min:=sqrt(abs(a*x));
        temp:=power(x,3);
        if min>temp then min:=temp;
        temp:=x+c;
        if min>temp then min:=temp;
        z:=min;
      end
    else
      begin
        z:=b*x;
        temp:=x-a;
        if z<temp then z:=temp;
      end;
        edit6.Text:=floattostr(z)

Вернуться к обсуждению:
Сломал голову, нужна помощь!!! Помогите пожалуйста!!! Delphi

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

16.11.2011, 10:13

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

уже голову сломал. помогите!
Условие задачи: Вычислить arctg(x) с точностью ε = 0.0001, воспользовавшись разложением в ряд: ...

Нужна помощь, сломал голову!!! (Atmel AT91SAM7х256)
Есть плата обработки внешних сигналов на ATMEL AT91SAM7х256 Плата проверена годами, выпустили...

Графы с++, пожалуйста, всю голову уже сломал
У меня два массива (вектора), в первом создается длина ребер графов. Во втором массиве связаны ли...

Помогите HTMLEditorKit (JEditorPane) - голову сломал
Люди.грузим в JEditorPane или JTextPane HTML документ. делаем ему contenttype('text/html')....

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

16.11.2011, 10:13

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

Помогите составить SQL запрос. голову сломал уже((
таблица клиенты: поля: -Код клиента -Наименование клиента таблица счета: поля: -Код клиента...

Сма Атлант ошибка F12, Помогите, голову сломал..
Сма Атлант 70с87. Сразу при включении выдаёт ошибку F12. Помогите, в машинке вся переферия в...

a disk read error occurred помогите!!!голову сломал уже
как мне объяснили переустановили винду через 2 недели такая хрень при запуске биос грузится версия...

Помогите пожалуйста с UART, ломаю голову уже целый день((
Привет. Задача такая. Нужно послать по UART строку, хранящуюся во флеше(при помощи средств...

Наверх