Войти Регистрация Спроси ai-bota

Написать программу в delphi создайте кнопку для нахождения значений функции z=tan(2x+y)

Ответ:

KirochkaMirina

03.10.2020 08:43

Unit Unit1;
{$mode objfpc}{$H+}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Spin, Math;
type
{ TForm1 }
TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure Button1Click(Sender: TObject); private { private declarations } public { public declarations } end;
var Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);begin Form1.Label4.Caption:=FloatToStr(tan((StrToFloat(Form1.Edit1.text)*2)+StrToFloat(Form1.Edit2.text)));end;
end.

0,0(0 оценок)

Популярные вопросы: Информатика

дэнчик626

05.05.2022 10:16

Втаблице dat хранятся данные о количестве поездов, отправляющихся с центрального вокзала города на юг в первой декаде июля (dat[1] — количество поездов первого...

f79gkr4st

05.05.2022 10:16

Имеется исполнитель чёрный ящик , алгоритм вход: 12, 327, 500, 66, 1235, 41, 3355, 98, 89, 809 выход: 23, 438, 611, 77, 2345, 52, 4466, 09, 90, 910 что будет на...

Даниэлла25111

10.12.2022 04:20

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

thebesteconomist

10.12.2022 04:20

Вклассе 100 компьютеров объединены в компьютерную сеть, которая имеет вид прямоугольной сетки размера 10 x 10. вирус с зараженного компьютера может распространяться...

Kurolama

27.03.2021 08:43

Тема презентації з інформатики: «Популярні у світі сучасні українські ігрові програмні продукти («Козаки», «Сталкер»)»Не дуже розумію сенс теми, підкажіть хто-небудь...

Ks1mak

09.05.2022 09:11

Написать программу заменяющую одну букву на другую и подсчитывающую сколько раз ее заменили. (Букву любую на любую другую)...

Xkdidid

20.03.2021 14:24

Дан массив с,размерностью 50; элементы массива-это числа из промежутка от 0 до 50. написать промежуток,вычислить кол-во, сумму,произведение элементов массива,кратных...

irakeksik

29.10.2021 18:39

Пример 120481Результат3 вагонаКазахстан входит в первую десятку стран по объему экспорта (внешняя торговля) пшеницы:Известно, что один железнодорожный грузовой...

silinadasha

30.03.2020 19:18

Какая задача решается при выполнение оператора ?IF X Y THEN M:=Y ELSE M:=X1) меняется местами значение переменных2) меняется значение наименьшего числа3) поиск...

vitalii1962svet

09.01.2023 01:26

3. На нити висит тяжёлый шар (рис. 11.3). Такая же точно нить привязана к шаруснизу.Как надопотянуть за НижнююНИТЬ плавно или рывком, чтобы порва-лась:а) верхняя...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку