Задание для самостоятельного выполнения. 1. Создать программу, выполняющую действия простого инженерного калькулятора.1. Создать программу, выполняющую действия простого инженерного калькулятора.
Фрагмент подпрограммы (для вычисления функции Cos(x)) if Edit1.Text <> '' then Begin a:= StrToFloat (Edit1.Text); c:= cos (a); end; if Edit2.Text <> '' then Begin b:= StrToFloat (Edit2.Text); c:= cos (b); end; Edit3.Text:= FloatToStr (c); Добавить на форму кнопки для вычисления функций Tg(x), Log ab. 2. Создать программу, выполняющую перевод чисел из десятичной системы счисления в двоичную систему и обратно.
|
