Калькулятор на Delphi
Для того чтобы у нас получился хороший калькулятор, нам нужно его снабдить максимальным количеством выполняемых операций...
mod, div, sqr, sqrt, x^n, n!, sin, cos, .... , и т.д.
На форме разместим все кнопки с соотв надписями, а так же поместим Edit для ввода информации, т.е. непосредственно чисел. Меняем свойства. Расставляем все на свои места и сохраняем проект
Напоминаю, в особенности только начинающим программистам что процессорные вычисления могут осуществляться только с числами, то что вы вводите в т.ч. в edit по умолчанию явл строкой....поэтому для расчетов ее надо преобразовать (STRTOINT/INTTOSTR, FLOATTOSTR/STRTOFLOAT). В переменную а преобразуем введенную строку в число и запоминаем в переменной d (тип char - символ) код операции, далее очищаем edit программно. С кнопками *, /, - делаем так же. меняем только код операции. Вычисление по логике происходит по нажатию на кнопку = Поэтому весь остальной код пишем на этой кнопке. Разветвляющаяся структура с применением оператора множественного выбора позволяет сокращать код, иначе можно было бы писать так - if d='+' then c:=a+b....... и т.д. Это очень долго. Перейдем к функциям. Так как для вычисления всех функций чаще всего нужно только одно число, то все вычисления будут происходить сразу после ввода значения и нажатия соотв кнопки. По поводу вычислений sin и cos вы должны знать что sin90 градусов - это sin 90 * 1 градус, где 1 градус - это число пи / 180. Т.о. sin90градусов = (sin (90 * (pi/180))). Перейдем к факториалу n. Что такое факториал - это перемножение всех чисел до числа факториал. Если 5! - то 1*2*3*4*5. Решается задача с помощью цикла, например так
y:=1;
for i:= 1 to x do begin y:=y*i;
x в степени n можно найти по простой и в тоже время некоторым начинающим писателям программ неизвестной функции exp. Представим себе 2 возводимое в степень 8, можно конечно написать и циклом for, можно и так sqr(sqr(sqr(2). Но гораздо проще сделать так - exp(ln(2)*8), т.е. c:=exp(ln(x)*n); Как же высчитать процент? Да очень просто. Для этого надо вспомнить что для того чтобы получить 25 из 50, где нужно подсчитать 50% от числа 50, нужно само число умножить на вводимый процент и разделить на 100, так как тут число может получится дробное работаем с real. Итак калькулятор у нас практически получился.. осталось разобраться с кнопкой M. Она должна очистить поле и запомнить в свою переменную имеющееся значение, а по нажатию на m+ должны новое число прибавить к сохраненному, или вычесть если кнопка m-. Вполне себе такой рабочий калькулятор. Ах да еще я забыл о кнопках mod, div...Напоминаю что mod это остаток от деления, а div - деление нацело, например 5 mod 2 = 1, а 5 div 2 = 2 Вот так, только надо знать что эти операции допустимо выполнять только с integer
Смотрите видео Калькулятор на Delphi онлайн, длительностью часов минут секунд в хорошем качестве, которое загружено на канал с.s.teacher 27 Сентябрь 2013. Делитесь ссылкой на видео в социальных сетях, чтобы ваши подписчики и друзья так же посмотрели это видео. Данный видеоклип посмотрели 9,159 раз и оно понравилось like посетителям.
