Задание для самостоятельного выполнения

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. Создать программу, выполняющую перевод чисел из десятичной системы счисления в двоичную систему и обратно.