Калькулятор(вычисление степени и замена знака)

@VIBRO · Регистрация: 23.11.2010

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

Срочно нужно сделать калькулятор на вычисление степени и замены знака
Вот пример только на одно действие, и все переменные что у меня есть:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  Form1: TForm1;
  a, b, itog, mr: real;
  k: char;
procedure TForm1.Button12Click(Sender: TObject);
begin
b:=StrToFloat(edit1.text);
case k of
'+':    itog:=a+b;
procedure TForm1.Button13Click(Sender: TObject);
begin
k:='+';
a:=strtofloat(edit1.text);
edit1.Clear;
end;

На помощь

Я попробовал и новые переменные с другим типом данных создовать, ничего неполучается

Комментарий модератора

Никакого отношения к БД это не имеет!

@whizzkey · 24.11.2010, 09:08

Сообщение от VIBRO

Срочно нужно сделать калькулятор на вычисление степени и замены знака

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, rezult : integer;
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
if CheckBox1.Checked = True then
rezult := exp(b*ln(a));  //Возведение в степень
Label1.Caption := IntToStr(rezult);
end;

А вообще в интете куча простых калькуляторов на делфи, просто лень искать

@VIBRO · 24.11.2010, 09:22 **[ТС]**

Сообщение от whizzkey

А вообще в интете куча простых калькуляторов на делфи, просто лень искать

Да ну с фига, я искал, нету такого. И тем более мне нужно чтобы к моему проекту подошло, видимо тебе просто лень помочь человеку.

Добавлено через 9 минут
извени код незаметил твой, сейчас посмотрю. спасибо!

@whizzkey · 24.11.2010, 09:26

Сообщение от VIBRO

Да ну с фига, я искал, нету такого.

http://www.codingrus.ru/readar... le_id=2226
http://novochek.net/f42-void/f... elphi.html
http://www.ns2d.ru/content.php?id=39
http://proultra.ucoz.ru/publ/d... or/3-1-0-3
http://www.codingrus.ru/infusi... hp?did=396
http://www.foger.net/%D0%B8%D1... elphi.html

Искал говоришь?

@Mad_Dog · 24.11.2010, 09:28

А вот это

Delphi
1
if CheckBox1.Checked = True then

гораздо эстетичнее выглядит так:

Delphi
1
if CheckBox1.Checked then

потому как, если CheckBox1 чекед, то оно однозначно равно true...

@VIBRO · 24.11.2010, 09:33 **[ТС]**

CeckBox в моём проекте быть недолжен, но всё равно я списал код whizzkey на тетрадь. Теперь мне пора на учёбу в Центр Информационных Технологий. Там посмотрю ещё, что я могу.

@Mad_Dog · 24.11.2010, 10:19

Сообщение от VIBRO

но всё равно я списал код whizzkey на тетрадь.

Полнейшая чушь... Тип переменной result:integer, хотя функции Ln(x) и Exp(x) возвращают тип real, так что налицо несовместимость типов...
Кроме того, если содержимое полей ввода - нечисловые, то будет ошибка преобразования... Да и почему используются StrToInt, работа с вещественными числами не предполагается???

@whizzkey · 24.11.2010, 13:55

Блин ты поуши закусал меня =))
код я набросал от руки за пару минут что бы показать как вообще возводиться число в степень exp(b*ln(a))
а дальше фантазия его

@Mad_Dog · 24.11.2010, 14:47

Сообщение от whizzkey

Блин ты поуши закусал меня =))

Не по теме:
Блин! Но я же должен свой ник оправдывать...

@VIBRO · 25.11.2010, 08:34 **[ТС]**

Сообщение от Mad_Dog

Полнейшая чушь... Тип переменной result:integer, хотя функции Ln(x) и Exp(x) возвращают тип real, так что налицо несовместимость типов...
Кроме того, если содержимое полей ввода - нечисловые, то будет ошибка преобразования... Да и почему используются StrToInt, работа с вещественными числами не предполагается???

Мне не понять, мы ещё не изучали функции Ln, Exp.
Мы остановились на регуляторах величин:ScrollBar, TrackBar, ProgressBar.

@whizzkey · 25.11.2010, 09:02

Да че тут понимать - функция возведения в степень на делфи это как я тебе уже сказал exp(b*ln(a)) Потомучто тупой a^b нету, следи чтобы небыло несовместимости типов и всё

@VIBRO · 25.11.2010, 10:38 **[ТС]**

Сообщение от whizzkey

Да че тут понимать - функция возведения в степень на делфи это как я тебе уже сказал exp(b*ln(a)) Потомучто тупой a^b нету, следи чтобы небыло несовместимости типов и всё

Ну a^b никак не будет, мне бы ещё понять как через For это зделать. Хорошо, что не попали с этой степенью на учёбе, но вопрос ппц как мучает

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@VIBRO 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 22
	24.11.2010, 09:33 [ТС]
	CeckBox в моём проекте быть недолжен, но всё равно я списал код whizzkey на тетрадь. Теперь мне пора на учёбу в Центр Информационных Технологий. Там посмотрю ещё, что я могу. 0

@whizzkey 7 / 7 / 2 Регистрация: 16.10.2010 Сообщений: 74
	24.11.2010, 13:55
	Блин ты поуши закусал меня =)) код я набросал от руки за пару минут что бы показать как вообще возводиться число в степень *exp(bln(a))** а дальше фантазия его 0

@whizzkey 7 / 7 / 2 Регистрация: 16.10.2010 Сообщений: 74
	25.11.2010, 09:02
	Да че тут понимать - функция возведения в степень на делфи это как я тебе уже сказал *exp(bln(a)) Потомучто тупой a^b** нету, следи чтобы небыло несовместимости типов и всё 0