Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Программа Добрый день https://www.cyberforum.ru/ delphi/ thread1457651.html
Не могу понять как сделать:( Программа "Добрый день" чтоб в зависимости от времени менялся текст и изображения) Помогите пожалуйста))
Нужен класс-шаблон для реализации генетических алгоритмов Delphi
Подскажите, где можно взять код класса, который бы упростил реализацию генетических алгоритмов. Например, в класс в процессе выполнения программы передаем методы по инициализации, оценки, мутации,...
Delphi Не могу установить на windows 7 Дайте пожалуйста ссылочку на рабочий делфи 7 или 9 (windows 7 x64). Уже неделю ищу а диплом приближается) https://www.cyberforum.ru/ delphi/ thread1457196.html Delphi Нет связи консольного приложения с событиям динамических компонентов https://www.cyberforum.ru/ delphi/ thread1456975.html
Люди как связать событие с компонентом ? program Project1; {$APPTYPE CONSOLE} {$R *.res} uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,...
Delphi Как открыть PDF в Delphi7 без компонента OpenDialog
Здравствуйте, форумчане! Возможно мой вопрос покажется Вам глупым, но я с Delphi, пока только на Вы, поэтому прошу помочь. Мне нужно, что бы при нажатии кнопки на одной форме открывалась другая...
Delphi Не открывается справочник Drkb Может у кого есть скачанный, или ссылка на работающее зеркало - скачать. Хотелось бы версию 3, остальные у меня есть Это свободно распространяемый справочник, поэтому думаю ничего противозаконного... https://www.cyberforum.ru/ delphi/ thread1456410.html
Delphi Получение информации из CodeSite File https://www.cyberforum.ru/ delphi/ thread1456359.html
Товарищи, нужна помощь! Программа создает лог (программа написана не мной). Лог в формате CodeSite File. Мне нужно из этого файла доставать конкретные строки и записывать в txt. Кто нибудь может...
Работа в txt Delphi
Здравствуйте, помогите отредактировать программу. Необходимо применить метод аутентификации на основе одноразовых паролей: к первой цифре каждого следующего пароля прибавляется 1.
Delphi Вставить большую иконку в title формы Всем Доброго Дня! Возникла такая проблема: Отрисовал форму в bitmap style designer, сделал широкий Title, как загрузить большую иконку где-то 64x64 когда через Form>>Icon загружаю она становится... https://www.cyberforum.ru/ delphi/ thread1454004.html Delphi Поиск компонента для Rad Studio XE7 - работа со сканером https://www.cyberforum.ru/ delphi/ thread1453953.html
какие есть компоненты для работы со сканером, камерой (Для стандартного VCL приложения)
Delphi Не раскрывается форма в Delphi
Может хоть здесь скажут в чём проблема... Делаю курсовой проект в Delphi по БД. Сделал 4 формы, две из них содержат QuickReport, всё прекрасно работает. Скачал на флешку, принёс в институт, всё...
Delphi Нужны любые исходники по волновой оптике Ребята помогите пожалуйста! нужно всё что есть по волновой оптике (исходники программ) https://www.cyberforum.ru/ delphi/ thread1453598.html
2324 / 1520 / 704
Регистрация: 23.03.2015
Сообщений: 4,844
27.05.2015, 13:26 0

линейные программы - Delphi - Ответ 7677225

27.05.2015, 13:26. Показов 1423. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено renata2058 как решение

Решение

renata2058,

Может не
Цитата Сообщение от renata2058 Посмотреть сообщение
плоскость кольца
, а площадь..?

Добавлено через 9 минут
Цитата Сообщение от renata2058 Посмотреть сообщение
формулу S= (R2-R1).
Заменить на
https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\pi ({{R}_{2}}^{2}-{{R}_{1}}^{2})

Добавлено через 26 минут
Вот код для площади кольца:
Edit1-Внутренний радиус
Edit2-Внешний радиус
В "Uses"добавьте "Math"

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,math;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var
R1,R2,S:Real;
begin
 R1:=StrTofloat(Edit1.text);
 R2:=StrTofloat(Edit2.text);
 S:=pi*(sqr(R2)-Sqr(R1));
 ShowMessage('Площадь кольца равна '+ FloatToStr(RoundTo(S,-2)));
end;
Удачи....

Вернуться к обсуждению:
линейные программы Delphi
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2015, 13:26
Готовые ответы и решения:

Нуждаюсь в написании программы. Линейные списки
Сформировать односвязный список из 7 записей, вывести список, удалить записи, удовлетворяющие...

Линейные списки
Пожалуйста помогите, не могу никак сделать. Завтра защита, просто не успеваю разобраться( ...

Линейные задачи
Турист за день прошёл А киллометров, до обеда он шёл t1 часов, он прошёл 20км,после обеда он прошёл...

Линейные алгоритмы
\nu...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2015, 13:26
Помогаю со студенческими работами здесь

Линейные динамические структуры
Построить стек, элементы которого русские слова фиксированной длины. Подсчитать число совпадающих...

Линейные списки (Входимость)
Доброго времени суток. Прошу помощи вот с такой задачкой: Даны линейные списки А и В, состоящие...

Линейные программы.
Помогите с написанием кода : Написать программу для расчета по двум формулам:...

Линейные программы
4. Система из двух параллельных сопротивлений R1 и R2 соединена последовательно с сопротивлением...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru