Калькулятор на 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
Watch video Калькулятор на Delphi online, duration hours minute second in high quality that is uploaded to the channel с.s.teacher 27 September 2013. Share the link to the video on social media so that your subscribers and friends will also watch this video. This video clip has been viewed 9,159 times and liked it like visitors.
