Почему не считается функция в программе, что нужно добавить или удалить?

@username12 · Регистрация: 13.09.2015

Студворк — интернет-сервис помощи студентам

Что нужно добавить в код,чтобы калькулятор решал функцию решал функцию

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \arcsin\,\frac{x}{a}+C<br />$

?

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
unit unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.Text:='3,4';      // Начальное значение X
 Edit2.Text:='0,74';    // Начальное значение Y
 Edit3.Text:='19,43';  // Начальное значение Z
 Memo1.Clear;          // Очистка окна редактора Memo1
 
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 var
  x,y,z,a,b,c,u : extended;
begin
   x:=StrToFloat(Edit1.Text);                   // Считывается значение X
 Memo1.Lines.Add(' X = '+Edit1.Text);   // Вывод X в окно Memo1
   y:=StrToFloat(Edit2.Text);                   // Считывается значение Y
 Memo1.Lines.Add(' Y = '+Edit2.Text);   // Вывод Y в окно Memo1
   z:=StrToFloat(Edit3.Text);                   // Считывается значение Z
 Memo1.Lines.Add(' Z = '+Edit3.Text);   // Вывод Z в окно Memo1
 
    // Вычисляем арифметическое выражение
     a:=Sqr(Sin(x+y)/Cos(x+y));
     b:=Exp(y-z);
     c:=Sqrt(Cos(Sqr(x))+Sin(Sqr(z)));
      u:=a-b*c;
 
     // Выводим результат в окно Memo1
    Memo1.Lines.Add(' Результат U = '+FloatToStrF(u,fffixed,8,3));
    Memo1.Lines.Add('Лаб. раб. N1. ИВТ 11 Ваильев В.В.');
end;
 
end.

@username12 · 26.09.2015, 21:15 **[ТС]**

сможете написать полностью код пожалуйста

@Puporev · 26.09.2015, 21:20

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
unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Math;
 
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender:TObject);
var x: single;
    k:integer;
begin
val(Edit1.Text,x,k);
if(k<>0)or(abs(x)>1)then
 begin
  Showmessage('Введите число по модулю не больше 1');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
x:=RadToDeg(ArcSin(x));
Edit2.Text:='ArcSin = '+format('%.2f',[x])+' градусов';
 
end;
 
end.

Новые блоги и статьи Все статьи Все блоги /
Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .

@username12 1 / 1 / 0 Регистрация: 13.09.2015 Сообщений: 124
	26.09.2015, 21:15 [ТС]
	сможете написать полностью код пожалуйста 0