Есептегіш машинаның шыққан жылдары

Браузер терезесіндегі  элементті тышқанмен екі рет  белгілеу сәйкес объектіні сипаттау үшін код терезесіне курсорды орналастырады  немесе оны алғашқы сақтау кезінде  орындалады. Аса күрделі емес оқу  программаларын құруда браузер браузер  терезесін жауып қоюға болады. Браузер терезесін шығару үшін View Explorer терезесін таңдаймыз.Программада қатені тексеру жөндеу BS және Delete клавиштарының көмегімен жүзеге асады.

 

Есептің алгоритмі

Программа калькулятор туралы жазылған..  Бұны жазуға мен Delphi 7 программасын таңдадым. Себебі, бұл программалау тілі жеңіл.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Калькулятор бағдарламасының  интерфейсін жасау

 

Қажетті объекттер

MainMenu – бағдарламаның мәзiрiн жасау 
Label – жазу 
Edit – еңгізу және шығару операторлары

 

BitBtn – батырма (түсін өзгерту және батырмада Button-нан (өзгешелік бар) 
Image – суретті орнату

 

Интерфейстi өңдеу.

1. Форманы жасау.

Форманың қасиеттерi.

 

Name:              kalkul  
Caption:           Калькулятор 
Color:              түсі таңдауыңызға қарай 
BorderIcons:    biMaximize – False, қалғаны True.

1. Объекттi формаға салып қою Edit.  Қасиеті:  Name : Edit1,   Text – бос жол.
2. Формаға мәндерді еңгізу

– 0 ден 9-ға дейінгі сандар,  
–арифметикалық сандар, 
– белгі «=» 
– белгілер (түбір, синус, косинус т.с.с.)

Бағдарламаның интерфейсiнiң мысал түрi

Объект - BitBtnнiң батырмасы.

Қасиеттер:

Name – солай қалдыруға болады

Caption - атау тиiстi атқарылатын функциялар

Font - шрифт және шрифттың түсi  өз таңдауыңызға

3. (егер керек болса) суретті формаға орналастыру, форманың түсi, шрифттi күйге келтiрсiн, (егер керек болса) формада тиiстi жазуларды жасау.

 

Операцияны Орындау  процедураларының арифметикалық жазуы

 

I. Сандарды еңгізу процедурасын жазу. Ол үшін екі рет «1» батырмасын басыңыз (объект BitBtn1) одан соң келесі кодты еңгізіңіз:

procedure TForm1.BitBtn1Click(Sender: TObject);  
begin 
   edit1.Text:=edit1.Text+'1'  
end;

Процедураларды, қалған цифрлар мен символдарды жазу

 «,»

II. Процедураны кетіретін жолды ашу Edit1, батырма «С» (объект BitBtn22)

procedure TForm1.BitBtn22Click(Sender: TObject); 
begin 
    edit1.Clear   
end;

III. Батырмаларды басқанда ашатын процедураларды ашу «+», «–», «/», «*» и «=». Ол үшін алдын-ала алгоритм мен калькулятормен жұмыс жасау керек:

1. Edit1 жолына сан енгізу. Edit1 жолында сан, текст жолы ретінде болуы қажет.
2. «+» кнопкасын басу. Процедураны дайындауда келесі қажетті істерді орындау:
• Санды StrToFloat функциясы арқылы өзгерту;
• Санды ауысқан X-те сақтау;
• Ауысқанда сақтау, мысалы, kod бұл операцияның коды;
• Edit1 ішін кетіру.
3. Екінші санды Edit1 жолына енгізу.
4. «=» батырмасын басу. Бұл батырманың өңдеулерiн процедурада келесi әсерлер орындауға керек:
• преобразовать эту строку в число с помощью функции StrToFloat;
• сохранить это число в переменной Y;
• в зависимости от кода операции, сохраненной в переменной kod, выполнить арифметическую операцию, например, z:=x+y;
• преобразовать число, находящееся в переменной Z, в текст с помощью функции  FloatToStr и вывести в поле Edit1.

IV. Что необходимо для реализации этого алгоритма?

1. Описать переменные X, Y, Z, kod. Описывать переменные будем в основной программе, модуле Unit, чтобы переменные могли действовать в любой процедуре (глобальные переменные).

var 
Form1 : TForm1; 
kod : char; 
x, y, z : real;

2. Создать процедуры обработки нажатий кнопок «+», «–», «/», «*»

Например,

procedure TForm1.BitBtn17Click(Sender: TObject); 
begin 
x:= strtofloat(edit1.text); 
kod := ‘+’; 
edit1.Clear; 
end;

Но что будет, если мы в поле Edit1 ничего не введем и нажмем кнопку «+»? Возникнет ошибка и программа  завершится. Чтобы избежать этого  надо проверить имеется ли в поле Edit1символы? И в зависимости от этого условия продолжить выполнять  процедуру или вернуться к вводу данных. Следовательно, мы должны использовать алгоритмическую структуру «Ветвление».

 

Изучить с учащимися  правила записи ветвления на языке Delphi.

Изменненая процедура  обработки нажатия кнопки «+» 

procedureTForm1.BitBtn17Click(Sender: TObject); 
begin 
ifedit1.Text<>'' thenx:=strtofloat(edit1.text);  
kod := ‘+’; 
edit1.Clear; 
end;

Аналогично создатьпроцедуры обработки нажатий кнопок «–», «/», «*»

3. Создать процедуру обработки нажатия кнопки «=». В этой процедуре необходимо в зависимости от значения переменной kod выполнять четыре разных операции. Такая структура называется «Множественное ветвление» или «Выбор».

Изучить с учащимися  правила записи структуры «Выбор»  на языке Delphi.

procedure TForm1.BitBtn19Click(Sender: TObject);                       кнопка «=» 
begin 
     if edit1.Text<>'' then  y:=strtofloat(edit1.text);        впеременную y кладем edit1.text  
    case kod of 
    '+': z:=x+y; 
    '-': z:=x-y 
    '*': z:=x*y; 
    '/': z:=x/y 
    end ; 
edit1.Text:=floattostr(z)          вывод в поле Edit1 значение переменной  z 
end;

 

 

 «Написание процедур  вычисления основных функций»

I. Создать процедуры вычисления функции «X в степени Y». Для этого необходимо:

1. Изучить тему «Циклы  на языке Delphi».

2. Создать процедуру  обработки нажатия кнопки «X в степени Y».

procedure TForm1.BitBtn24Click(Sender: TObject); 
begin 
x:= strtofloat(edit1.text); 
kod := ‘^’; 
edit1.Clear; 
end;

3. Добавить в процедуру  нажатия кнопки «=» следующий код

vark, y1:integer;      /y1 – степень в которую возводим число x/ 
…                            /k– счетчик цикла/ 
 '^': begin 
                     y1:=strtoint( edit1.Text);  
edit1.clear; 
                         z :=1; 
                         for k:=1 to y1 do 
                               begin 
 z:=z*x 
 end 
 end

II. Создать процедуры вычисления остальных функций. При вычислении тригонометрических функций учесть, что компьютер работает с радианной мерой углов. 
Например, процедура вычисления квадратного корня

procedure TForm1.BitBtn26Click(Sender: TObject);  кнопка «корень» 
begin 
     x:=strtofloat( edit1.Text); 
     edit1.clear; 
     z:=sqrt(x); 
     edit1.Text:=floattostr(z) 
end;

Процедура вычисления функции sin

procedure TForm1.BitBtn11Click(Sender: TObject);   кнопка «sin» 
begin 
     x:=strtofloat(edit1.Text); 
     x:=(x*3.14)/180; 
     edit1.Clear;  
     z:=sin(x); 
     edit1.Text:=floattostr(z) 
end;

 «Написание процедур работы с меню и усовершенствование калькулятора»

У любой программы  имеется система меню, которая  позволяет выполнять разные сервисные  функции.  Создадим для нашего калькулятора меню, которое будет состоять, например, из следующий пунктов: «Файл», «Правка», «Справка». Для этого: поместить на форму объект MainMenu (в любое место формы, этот объект будет невидим при выполнении)

• Два раза щелкнуть левой кнопкой мыши по этому объекту на форме.
• Выделить в появившейся форме пунктирное поле и в инспекторе  объектов в свойство Caption ввести «Файл».
• Аналогично создать пункты меню «Правка» и  «О программе».
• В меню «Файл» создать пункт «Выход», а в «Правка» - пункты «Копировать» и «Вставить».
• Закрыть форму создания меню.

procedure TForm1.N2Click(Sender: TObject); 
begin 
   close                                                                   
end;

procedure TForm1.N4Click(Sender: TObject); 
begin 
    Edit1.CopyToClipboard;        / копироватьвбуферобмена/ 
end;

procedure TForm1.N5Click(Sender: TObject); 
begin 
    Edit1.PasteFromClipboard;            /вставить из буфера обмена/ 
end;

Создание меню

Для создания справки  создадим еще одну форму с именем Form2, на которой можно разместить справочные сведения и информацию об авторах программы. Для размещения текста можно воспользоваться объектом  Memo, который представляет из себя почти готовый текстовый редактор, и объектом Image для размещения графики и фотографий. Для открытия формы воспользуемся командой Form2.ShowModal.

Процедура открытия формы «Справка»

procedure TForm1.N8Click(Sender: TObject); 
begin 
   Form2.ShowModal          Открытие формы «Справка» 
end;

Усовершенствование калькулятора

В зависимости от желания  и уровня подготовки, каждый учащийся может по-своему модернизировать программу. Кто-то пожелает просто улучшить интерфейс программы, а другой захочет превратить свой простой калькулятор в инженерный, добавив разнообразные математические функции, логические операции и функции,  работу с 2-ми, 8-ми и 16-ми числами.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                                     Қорытынды

 

Сонымен қорытындылай кететін  болсақ, біз калькулятор жұмысын Delphi программасы арқылы бағдарламаладық. Delphi ортасы – программист жұмысының өте жоғары тиімділігін қамтамасыз ететін орта.

Программалау іскерлігін үйрену үшін нақты есептер шығарып, программасын жаза білу қажет. Ол үш программалау тілі меноны құру ортасын меңгеру  керек. Обьектілі бағдарланған программалау жүйелеріндегі программалаудағы негізгі ерекшелік алдымен программалау синтаксисі мен компоненттерді пайдалануды үйренуде болып табылады.

Қазіргі заман талабына сай компьютерлендіру саясаты өте  тиімді. Өйткені қандай да болса  да жұмыс орны компьютерсіз жұмыс  атқара алмайды. Ал оны оқып үйрену инемен құдық қазғандай. Дербес компьютерде жұмыс істей білу бұл болашақта кез келген жұмысты орындай алу мүмкіндігін береді. Қазіргі таңда көп программалардың шығуына байланысты көп мұқияттылықты талап етеді. Бұл программистердің басты мақсаты.

Ақпараттық коммуникациялық  технологиялардың қарқынмен дамып, күнделікті тұрмысқа енуіне байланысты соңғы кездері программалауға деген  қызығушылықтың арта түскені белгілі. Қазіргі уақытта компьютерсіз қандай да бір жұмысты орындауды көз алдымызға елестету қиын. Бұл компьютермен жұмыс істейтін адамға қандайда бір ұмтылысты тудыруы мүмкін.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Пайдаланылған әдебиеттер

 

 

1. Бобровский С. Delphi 6 и Kyix: библиотека программиста.-

 

        сПб.:Питер,2002. - 560 с.                                     

2. Халықова К.З., Тұрғанбаева А.Р. Программалау тілдерін оқыту: Оқу құралы.-Алматы,2005.
3. Камардинов О. Информатика. Оқу құралы. Алматы: «Қарасай» баспасы, 2006.
4. Халықова К.З., Паскаль тілінде программалау: Оқу құралы. – Алматы: АГУ им. Абая, 2002.
5. Культин Н. Delphi. Программирование на Object Paskal. Санкт-Петербург, 1998.
6. М. Фленов. Библия Delphi. Санкт-Петербург, 2004.
7. Орлик С.В Секреты Delphi на примерах. М.:Бином, 1996

     9.      Е.В. Егоров,Лекции по программированию на Delphi7

 

    10.      М. Голованов, Е. Веселов, Создание компонентов в среде 
              

             А. Я. Архангельский, Delphi 2006.

   

    11.    Справочное пособие, Москва, 
             

              М.Е. Фленов, Библия Delphi, Санкт-Петербург, 2008.

   

    12.     Информатика, под ред. Макаровой Н.В., М., 1996; Ахметов қаласының,

 

              Есептеу техникасы және программалау, А., 1996.

   

    13.    Исаев.С.Ә., Мұхамади А.Н., Ахметова О.С. “Компьютерлік технология

 

             негіздері курсына арналған практикум”.  Алматы. 2000 ж.

   

    14.    Е.Қ.Балапанов, Б.Б.Бөрібаев, А.Б.Дәулетқұлов. Информа-тикадан 30

 

             сабақ. Алматы.ЖТИ, 2003 ж.

 

                                                   Программа листингісі

1-ші форма

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Menus, ExtCtrls, jpeg;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Label1: TLabel;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    Label2: TLabel;

    Image1: TImage;

    Bevel1: TBevel;

    Shape1: TShape;

    procedure N2Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit3, Unit2, Unit4, Unit5, Unit7;

{$R *.dfm}

 

procedure TForm1.N2Click(Sender: TObject);

begin

form4:=tform4.Create(form1);

form4.ShowModal

end;

 

procedure TForm1.N4Click(Sender: TObject);

begin

form3:=tform3.create(form1);

form3.showmodal

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

form5:=tform5.Create(form1);

form5.ShowModal

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

form7:=tform7.create(form1);

form7.showmodal;

end;

end.

2-ші форма

unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, Grids, DBGrids, ADODB, Menus;

type

  TForm2 = class(TForm)

    Label7: TLabel;