Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
PATRIOT43
0 / 0 / 0
Регистрация: 26.07.2012
Сообщений: 1
1

Delphi 7 перевод формулы

30.07.2012, 10:07. Просмотров 885. Ответов 1
Метки нет (Все метки)

Нужно Перевести формулу на картинке и использовать ее в программе.
Программа почти готова но проблема только с синусами должны быть по таблице Брадиса.

Коротко о программе: Баллистический калькулятор для гаубицы.
Листинг программы:
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    lbl1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
   n, a,b,c,d:  real;
  e: Integer;
implementation
 
uses
  Unit1;
 
{$R *.dfm}
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Close;
end;
 
 
procedure TForm2.Button1Click(Sender: TObject);
begin
n:=(2*(b*3.14159265/180));
a:=StrToFloat(Edit1.text);
b:=StrToFloat(Edit2.text);
c:=StrToFloat(Edit3.text);
d:=((a*a)*n)/c;
Label1.Caption:=floattostr(d);
Label2.Caption:=floattostr(n);
end;
 
end.
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.07.2012, 10:07
Ответы с готовыми решениями:

Перевод из C++ в Delphi
Помогите перевести код из C++ в Delphi #include <windows.h> #include...

перевод в delphi
вот в паскале написано все не получ в делфи( uses crt; var x,e,s,t,y:real; ...

Необходим перевод головоломки из c# в delphi
Необходим перевод головоломки из c# в delphi. Головоломка "Хитори" написана на...

Перевод уравнения на язык DELPHI
Доброго времени суток, извините пожалуйста... может я не там создал тему......

Перевод часы в минуты DELPHI
1. Среда DELPHI Разработать проект «Перевод часы в минуты». В проекте...

1
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
30.07.2012, 11:03 2
Цитата Сообщение от PATRIOT43 Посмотреть сообщение
должны быть по таблице Брадиса.
Так возьмите их из Брадиса если Ваша Делфи не умеет считать синусы.

Добавлено через 4 минуты
Delphi
1
n:=(2*(b*3.14159265/180));//b еще не известно, как вычислять n?
3.14159265 это вероятно число пи, так вот Делфи умеет его считать..
Delphi
1
n:=2*b*pi/180;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.07.2012, 11:03

Перевод программ старых версий Delphi в новые
Как перевести программу, написанную на Delphi5.0 в Delphi 7.0 или в Delphi...

Какие отличия Delphi 5, Delphi 6 и Delphi 7
Кто-нибудь юзал Delphi 6? Если да, то напишите, плиз, его отличия от 5-ой...

Что использовать - Delphi XE6 или Delphi 7?
Delphi EX6 или Delphi 7? Какая разница(интерфейс не трогать)? Где больше...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru