Оформить расчет в виде пользовательской процедуры и функции

@Elena Monk · Регистрация: 12.05.2013

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

Нужна помощь в решении задач.

3. оформить расчет в виде пользовательской процедуры и функции. Вызов функции и процедуры осуществлять при нажатии на разные кнопки.

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
  a:real;
  c: string;
  b:real;
begin
c:=Edit1.Text;
a:= StrToFloat(c);
b:=(sin(2*a)+sin(5*a)-sin(3*a))/(cos(a)-cos(3*a)+cos(5*a));
ShowMessage('Ответ '+floattostr(b));
end;

P.S.
Ничего в этом не понимаю))) ОЧень нужны решения, помогите пожалуйста)
Не ругайте меня сильно))

@Samhain · 12.05.2013, 23:16

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button2Click(Sender: TObject);
var
  b:real;
begin
  b:=fun(StrToFloat(Edit1.Text));
  ShowMessage('Îòâåò '+floattostr(b));
end;
 
function TForm1.fun(a:real):real;
begin
   fun:=(sin(2*a)+sin(5*a)-sin(3*a))/(cos(a)-cos(3*a)+cos(5*a));
end;

@Elena Monk · 13.05.2013, 21:14 **[ТС]**

Samhain
А можно по-подробнение, что это за функция? и как она должна работать?...у меня что то не получается(

@Mawrat · 13.05.2013, 21:21

Samhain, если ТС не знает, как оформить часть кода в виде функции, то уж о том, что метод нужно объявить в определении класса - уж точно не догадается.

---
Elena Monk, сделай вот так:

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
function fun(a:real):real;
begin
   fun:=(sin(2*a)+sin(5*a)-sin(3*a))/(cos(a)-cos(3*a)+cos(5*a));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  b:real;
begin
  b:=fun(StrToFloat(Edit1.Text));
  ShowMessage('Ответ '+floattostr(b));
end;

И всё заработает.

Новые блоги и статьи Все статьи Все блоги /
Простая нейросеть на КуМир: Создание и обучение EggHead 16.03.2025 Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .	Исполнитель Кузнечик в КуМир: Решение задач EggHead 16.03.2025 Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .	Исполнитель Водолей в КуМир: Решение задач EggHead 16.03.2025 Разработка алгоритмического мышления — одна из ключевых задач для начинающих программистов, и система КуМир предлагает отличный способ погрузиться в этот процесс. Среди множества исполнителей в этой. . .	Исполнитель Чертежник в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы можете рисовать на бесконечной координатной плоскости, перемещая точку, которая оставляет след. По вашей команде она может поднять перо и двигаться, не оставляя следа, или. . .	Исполнитель Робот в КуМир: Решение задач EggHead 16.03.2025 КуМир (Комплект Учебных МИРов) — это учебная среда программирования, разработанная специально для обучения базовым концепциям алгоритмизации. Её главная фишка — использование русскоязычного. . .
Исполнитель Черепаха в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы впервые учитесь программировать, а перед вами стоит задача заставить маленькую виртуальную черепашку рисовать на экране. Звучит забавно? Эта идея зародилась ещё в 1967 году, когда. . .	Конвейеры данных с Apache Kafka Javaican 16.03.2025 В мире, где данные стали новой нефтью, Apache Kafka зарекомендовал себя как мощный инструмент для построения надежных и масштабируемых конвейеров данных. Созданный изначально командой LinkedIn в 2011. . .	Deno против Node.js: Будущее JavaScript рантайма run.dev 16.03.2025 За последнее десятилетие Node. js стал абсолютным лидером среди JavaScript-рантаймов и фактическим стандартом для серверной разработки на JavaScript. Но в 2018 году тот же разработчик, который создал. . .	SwiftUI или UIKit - что выбрать для нового приложения iOS? mobDevWorks 16.03.2025 Когда Apple представила SwiftUI на WWDC 2019, многим показалось, что дни UIKit сочтены. Новый декларативный фреймворк предлагал радикально иной подход к разработке интерфейсов. Вместо кропотливого. . .	Docker: Руководство для начинающих по созданию первого приложения Mr. Docker 16.03.2025 Docker — это платформа, которая упаковывает ваше приложение и все его зависимости в стандартизированные блоки, называемые контейнерами. Эти контейнеры изолированы друг от друга и от основной системы,. . .

@Elena Monk 0 / 0 / 0 Регистрация: 12.05.2013 Сообщений: 7
	13.05.2013, 21:14 [ТС]	3
	Samhain А можно по-подробнение, что это за функция? и как она должна работать?...у меня что то не получается( 0