Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Амазоночка
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 15
1

Разработать калькулятор вычисления тригонометрических функций

29.12.2010, 19:20. Просмотров 1162. Ответов 0
Метки нет (Все метки)

Доброго времени суток!
С наступающим 2011 годом!
Пожалуйста помогите разобраться с программой. Эту работу мне надо сдать до Нового года!
А у меня ничего не выходит.
Задание:
Delphi: Разработать калькулятор вычисления тригонометрических функций
Задание мне немного упростили. Форму я создала. Только нужно, чтобы этот калькулятор заработал.
Я начала делать, только вот у меня какая-то ошибка с делением и умножением посмотрите пожалуйста!
На калькуляторе должны быть кнопки:+,-,*,/,sin,cos,tg,0-9, . , = , С (сброс). Больше ничего не нужно.

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button3: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Edit1: TEdit;
    Button21: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
    x,y,z,c:real;
   next:boolean;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button10Click(Sender: TObject);
begin
    if edit1.text<>'0'then
 edit1.Text:=edit1.Text+'6'
 else
 edit1.Text:='6';
end;
 
procedure TForm1.Button11Click(Sender: TObject);
begin
  if edit1.text<>'0'then
 edit1.Text:=edit1.Text+'3'
 else
 edit1.Text:='3';
end;
 
procedure TForm1.Button13Click(Sender: TObject);
begin
   z:=strtofloat(edit1.Text);
edit1.Clear;
end;
 
procedure TForm1.Button14Click(Sender: TObject);
begin
   y:=strtofloat(edit1.Text);
edit1.Clear;
end;
 
procedure TForm1.Button15Click(Sender: TObject);
begin
  x:=strtofloat(edit1.Text);
edit1.Clear;
end;
 
procedure TForm1.Button16Click(Sender: TObject);
begin
 edit1.Text:=floattostr(x+strtofloat(edit1.Text));
 edit1.Text:=floattostr(y-strtofloat(edit1.Text));
 edit1.Text:=floattostr(z*strtofloat(edit1.Text));
edit1.Text:=floattostr(c/strtofloat(edit1.Text));
end;
 
procedure TForm1.Button17Click(Sender: TObject);
begin
 c:=strtofloat(edit1.Text);
edit1.Clear;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    if edit1.text<>'0'then
 edit1.Text:=edit1.Text+'7'
 else
 edit1.Text:='7';
end;
 
procedure TForm1.Button21Click(Sender: TObject);
begin
edit1.Text:='0';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
    if edit1.text<>'0'then
 edit1.Text:=edit1.Text+'4'
 else
 edit1.Text:='4';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
if edit1.text<>'0'then
 edit1.Text:=edit1.Text+'1'
 else
 edit1.Text:='1';
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
 if edit1.text<>'0'then
 edit1.Text:=edit1.Text+'0'
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
if edit1.text<>'0'then
 edit1.Text:=edit1.Text+'8'
 else
 edit1.Text:='8';
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
 if edit1.text<>'0'then
 edit1.Text:=edit1.Text+'5'
 else
 edit1.Text:='5';
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
 if edit1.text<>'0'then
 edit1.Text:=edit1.Text+'2'
 else
 edit1.Text:='2';
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
if edit1.text<>'0'then
 edit1.Text:=edit1.Text+'9'
 else
 edit1.Text:='9';
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2010, 19:20
Ответы с готовыми решениями:

Инженерный калькулятор Windows с возможностью ввода массива и вычисления его максимального и минимального элементов
Инженерный калькулятор Windows с возможностью ввода массива и вычис-ления его...

Разработать класс для вычисления определенного интеграла функции y=4^x
Помогите, пожалуйста! Разработать класс для вычисления определенного...

Необходимо разработать программу позволяющую производить простейшие арифметические вычисления.
Необходимо разработать программу позволяющую производить простейшие...

Разработать калькулятор вычисления тригонометрических функций
Разработать калькулятор вычисления тригонометрических функций

Разработать программу вычисления значений заданных функций для произвольных значений исходных данных
Разработать программу вычисления значений заданных функций для произвольных...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.12.2010, 19:20

Расчёт всех тригонометрических функций для угла
Известно значение угла а. Разработать в Delphi программу для расчёта всех...

Знаки тригонометрических функций sin и cos в Delphi
Привет, всем! Как вы знаете в системе программирования Delphi есть функции sin...

Как разработать приложение для вычисления интегралов тригонометрических функций?
Помогите пожалуйста? Как разработать приложение для вычисления интегралов...


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

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

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