Логотип Инфоурока

Получите 30₽ за публикацию своей разработки в библиотеке «Инфоурок»

Добавить материал

и получить бесплатное свидетельство о размещении материала на сайте infourok.ru

Инфоурок Информатика Другие методич. материалыПрограммируем в Lazarus. Программа «Калькулятор».

Программируем в Lazarus. Программа «Калькулятор».

Скачать материал
Выберите документ из архива для просмотра:
45.73 КБ описание калькулятор.docx
2.19 КБ project1.lpi.bak
2.74 КБ project1.lps.bak
3.21 КБ unit1.lfm.bak
4.55 КБ i.jpg
40.06 КБ project1.o
102.54 КБ project1.or
95.97 КБ project1.res
3.37 КБ unit1.lfm
218.91 КБ unit1.o
7.71 КБ unit1.ppu
14.31 МБ project1.exe
133.83 КБ project1.ico
2.19 КБ project1.lpi
2.87 КБ project1.lps
95.97 КБ project1.res
3.37 КБ unit1.lfm

Выбранный для просмотра документ описание калькулятор.docx

библиотека
материалов

Программируем в Lazarus. Программа «Калькулятор».

hello_html_1b60a3d2.png

Рис.1 Интерфейс программы


Кнопка


Компоненты

Обработчик событий

hello_html_m79c57b5.png

label1 label2


Edit1 Edit2



hello_html_m4eb5c083.png

button1

button2

button3

button4


hello_html_m5921c4e2.png

button1


procedure TForm1.Button1Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(m+n);

end;

hello_html_mece8bcb.png

button2


procedure TForm1.Button2Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(m-n);

end;

hello_html_4bba987e.png

button3


procedure TForm1.Button3Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(m*n);

end;

hello_html_34c4c24c.png

button4

procedure TForm1.Button4Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=floattostr(m/n);

end;

hello_html_2b2e70b.png


Edit3


hello_html_m5a48b39d.png

button5

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

end;


Переменные m,n имеют тип integer.


var

Form1: TForm1;

m,n:integer;

implementation


{$R *.lfm}


{ TForm1 }



Чтобы заблокировать кнопку РАЗВЕРНУТЬ ОКНО в свойствах BorderIconsbiMaximize установить False.

Чтобы поменять иконку: Ctrl + Shift + F11

Основные функции преобразования типов


- формат; – точностью (общее количество цифр); - количество цифр после десятичной точки.Возможны следующие значения параметра Format:
ffGeneral – общий числовой формат;
ffFixed – фиксированный формат;
ffCurrency – денежный формат.

StrToInt(s)

Целое, изображением которого является строка s.

StrToFloat(s)

Вещественное, изображением, которого является строка s.

Round(n)

Целое, полученное путем округления по известным правилам.

Trunc(n)

Целое, полученное путем отбрасывания дробной части n.

Frac(n)

Дробное, представляющее собой дробную часть вещественного n.

Int(n)

Дробное, представляющее собой целую часть вещественного n.

 

Листинг программы

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

m,n:integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(m+n);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(m-n);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(m*n);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=floattostr(m/n);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

end;

end.

  • Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
    Пожаловаться на материал
Скачать материал
Найдите материал к любому уроку,
указав свой предмет (категорию), класс, учебник и тему:
также Вы можете выбрать тип материала:
Общая информация
Скачать материал

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.