Арифметические операции в калькуляторе

@Romaschkin · Регистрация: 05.06.2019

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

Всем привет)
Помогите прописать арифметические операции в калькуляторе по следующему принципу:

Для +, -, *, /
1) преобразовать строку Text из поля Edit1 в
число с использованием функции StrToFloat.
2) Полученный результат сохранить в глобальную переменную "a" типа Real.
3) Очистить поле Edit1 для того чтобы ввести второй аргумент.
4) Зафиксировать в глобальной переменной "b" типа char, byte или integer наименование выполняемого арифметического действия.

Для =
1) Преобразовать строку Text из поля Edit1 в
число с использованием функции StrToFloat,
2) Далее нужно сохранить это число в локальной переменной "c";
3) В зависимости от наименования операции, выполнить арифметическое действие с переменными "a" и
"c" и сохранить в переменную "resultat";
4) Далее, полученный результат преобразовать в строку с помощью функции FloatToStr и вывести в поле Edit1.

Заранее спасибо)) на всякий случай прикрепляю исходник.

@DmiMukh · 31.08.2019, 09:32

И в чем проблема?
Вы сами перечислили все шаги.

Или у вас нету рук и вы не можете написать что-то типа ^

Pascal

1 2	a:= StrToFloat(Edit1.Text); Edit1.Text:= '';

@Romaschkin · 31.08.2019, 09:55 **[ТС]**

Пытался написать но код не работал( решил обратиться за помощью

Добавлено через 5 минут
Можете пожалуйста написать код для этих обеих процедур?) просто реально у самого чтото не пашет)

@D1973 · 31.08.2019, 17:53

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

Можете пожалуйста написать код для этих обеих процедур?

Можем, но зачем??? Это Ваша работа - Вам и делать...

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

Пытался написать но код не работал

Не вижу кода попыток! Или я ослеп или Вы нас разводите...

@ValentinNemo · 31.08.2019, 21:56

Держи проект. Разбирайся, если конечно желание есть.

@volvo · 01.09.2019, 01:40

ValentinNemo, Твой код - это пример, как делать не нужно. Копипаст же сплошной, причем там, где он на фиг не сдался. Все кнопки с цифрами должны обрабатываться одним единственным обработчиком, там же все одинаково, кроме Caption-а.

А вот с остальными кнопками - беда. Зачем разрешается ввести много нулей подряд, если нет ни одной значащей цифры? Зачем разрешается вводить больше одного унарного минуса? Он может быть только один, и то только в строго определенном месте. В общем, не надо по этому коду ничему учиться, его надо переписывать. Желательно полностью.

@D1973 · 01.09.2019, 05:52

Не по теме:

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

Или я ослеп

Да, наверное ослеп... Проект был в стартовом посте, извиняюсь...

Добавлено через 12 минут
Но попыток что-то вычислить я в этом проекте в упор не заметил...

@ValentinNemo · 05.09.2019, 04:47

Немного подправил код. Добавил предварительную коррекцию ввода чисел.

@Romaschkin 0 / 0 / 0 Регистрация: 05.06.2019 Сообщений: 34
	31.08.2019, 09:55 [ТС]	3
	Пытался написать но код не работал( решил обратиться за помощью Добавлено через 5 минут Можете пожалуйста написать код для этих обеих процедур?) просто реально у самого чтото не пашет) 0

@D1973 Модератор 9270 / 6048 / 2380 Регистрация: 21.01.2014 Сообщений: 25,828 Записей в блоге: 3
	31.08.2019, 17:53	4
	Сообщение от Romaschkin Можете пожалуйста написать код для этих обеих процедур? Можем, но зачем??? Это Ваша работа - Вам и делать... Сообщение от Romaschkin Пытался написать но код не работал Не вижу кода попыток! Или я ослеп или Вы нас разводите... 0

@volvo Супер-модератор 32836 / 21173 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	01.09.2019, 01:40	6
	ValentinNemo, Твой код - это пример, как делать не нужно. Копипаст же сплошной, причем там, где он на фиг не сдался. Все кнопки с цифрами должны обрабатываться одним единственным обработчиком, там же все одинаково, кроме Caption-а. А вот с остальными кнопками - беда. Зачем разрешается ввести много нулей подряд, если нет ни одной значащей цифры? Зачем разрешается вводить больше одного унарного минуса? Он может быть только один, и то только в строго определенном месте. В общем, не надо по этому коду ничему учиться, его надо переписывать. Желательно полностью. 0

@D1973 Модератор 9270 / 6048 / 2380 Регистрация: 21.01.2014 Сообщений: 25,828 Записей в блоге: 3
	01.09.2019, 05:52	7
	Не по теме: Сообщение от D1973 Или я ослеп Да, наверное ослеп... Проект был в стартовом посте, извиняюсь... Добавлено через 12 минут Но попыток что-то вычислить я в этом проекте в упор не заметил... 0

	05.09.2019, 04:47