Создание калькулятора

Автор: Пользователь скрыл имя, 10 Ноября 2011 в 18:43, практическая работа

Описание работы

Программы, работающие на компьютере, можно разделить на три категории:
Прикладные программы, непосредственно обеспечивающие выполнение необходимых пользователям работ: редактирование текстов, рисование, обработку информационных массивов и т.д.
Системные программы, выполняющие различные вспомогательные функции, например диагностика компьютера или резервное копирование информации.
Инструментальные системы (системы программирования), обеспечивающие создание новых программ.

Содержание

ВВЕДЕНИЕ
1. Метод решения
2. Описание программы
3. Руководство пользователя
Работа с памятью:
Горячие клавиши:
Использование меню
Измерение углов в градусах и радианах
4. Результаты моделирования

Скачать полностью (31.27 Кб) Сколько стоит заказать работу?
Работа содержит 1 файл

Программа Калькулятор .doc

— 85.00 Кб (Скачать)

      begin

      z:=3.14159265359;

        str(z:6:6,s);okr(s);s1:=s;

        edit1.text:=(' '+s);

       s:='';t:=0;

      end; 

      procedure TForm5.Button29Click(Sender: TObject);

      begin

      val(s1,y,i);

        if y>=1 then begin

        z:=ln(y);

        str(z:6:6,s);okr(s);s1:=s;

        edit1.text:=(' '+s);

       end else

       begin

        messagedlg('LN X<=0 неопределён',mterror,[mbok],0);

        end;

       s:='';t:=0; 

      end; 

      procedure TForm5.Button31Click(Sender: TObject);

      var k:integer; fact:real;

      begin

      val(s1,y,i);

      fact:=1;

      k:=1; 

      if (y>1) and (y<=18) then

      begin

      y:=round(y);

      repeat

      k:=k+1;

      fact:=fact*k;

      until k=y;

      end

      else

      begin

        s:=' 0';

        messagedlg('Слишком большое чиссло',mtcustom,[mbok],0);

      end;

      z:=round(fact);

        str(z:6:6,s);okr(s);s1:=s;

        edit1.text:=(' '+s);

       s:='';t:=0;

      end; 

      procedure TForm5.Button38Click(Sender: TObject);

      begin

      val(s1,y,i); m:=m+y;

       s:='';t:=0;

       if m<>0 then edit2.text:=('M ')

       else edit2.text:=(' ');

      end; 

      procedure TForm5.Button39Click(Sender: TObject);

      begin

      val(s1,y,i); m:=m-y;

       s:='';t:=0;

       if m<>0 then edit2.text:=('M ')

       else edit2.text:=(' ');

      end;

 

       procedure TForm5.Button34Click(Sender: TObject);

      begin

      val(s1,y,i); m:=y;

        s:='';t:=0;

       if m<>0 then edit2.text:=('M ')

       else edit2.text:=(' ');

      end; 

      procedure TForm5.Button35Click(Sender: TObject);

      begin

      str(m:6:6,s);okr(s);s1:=s;

        edit1.text:=(' '+s);

       s:='';t:=0;

      end; 

      procedure TForm5.Button36Click(Sender: TObject);

      begin

      m:=0;

        if m<>0 then edit2.text:=('M ')

       else edit2.text:=(' ');

      end; 

      procedure TForm5.Button11Click(Sender: TObject);

      begin

      if t=0 then

      begin

       s:=s+'.'; s1:=s;

       edit1.text:=(' '+s);

       t:=1

      end;

      end; 

      procedure TForm5.RadioButton1Click(Sender: TObject);

      begin

      radiobutton1.checked:=true;

      radiobutton2.checked:=false;

      end; 

      procedure TForm5.RadioButton2Click(Sender: TObject);

      begin

      radiobutton2.checked:=true;

      radiobutton1.checked:=false;

      end; 

      procedure TForm5.Button17Click(Sender: TObject);

      begin

      val(s1,y,i);

        z:=random;

        str(z:6:6,s);okr(s);s1:=s;

        edit1.text:=(' '+s);

       s:='';t:=0;

      end; 

      end.

Информация о работе Создание калькулятора