Презентация к уроку информатики 11 класс Автор: Юдин Андрей Борисович МКОУ Плесская СОШ

1 1 Калькулятор Windows XP

2 2 Калькулятор с визуализацией памяти. Автор Крайнов Максим Математический калькулятор. Автор Николаева Екатерина

3 3 Калькулятор который мы разрабатываем

4 4 Операции требующие одной кнопки a:=StrToFloat(Edit1.Text); c:= операция; Edit1.text:=FloatToStr(c); Запоминаем число из окна ввода Выполняем операцию Возвращаем результат в окно ввода

5 5 Операции требующие двух кнопок a:=StrToFloat(Edit1.Text); k:= число; Edit1.text:=''; b:=StrToFloat(Edit1.Text); if k=число then begin c:=операция; Edit1.text:=FloatToStr(c); end; Запоминаем первое число Запоминаем код операции Очищаем окно ввода Запоминаем второе число Проверяем код операции Выполняем операцию и выводим результат

6 6 procedure Button1OnClick; begin // сложение a:=StrToFloat(Edit1.Text); k:=1; Edit1.text:=''; end; b:=StrToFloat(Edit1.Text); if k=1 then begin c:=a+b; Edit1.text:=FloatToStr(c); end;

7 7 procedure Button2OnClick; begin a:=StrToFloat(Edit1.Text); k:=2; Edit1.text:=''; end; procedure Button3OnClick; begin a:=StrToFloat(Edit1.Text); k:=3; Edit1.text:=''; end; procedure Button4OnClick; begin a:=StrToFloat(Edit1.Text); k:=4; Edit1.text:=''; end;

8 8 if k=2 then begin c:=a-b; Edit1.text:=FloatToStr(c); end; if k=3 then begin c:=a*b; Edit1.text:=FloatToStr(c); end; if k=4 then begin c:=a/b; Edit1.text:=FloatToStr(c); end;

9 9 procedure Button5OnClick; begin // квадратный корень a:=StrToFloat(Edit1.Text); c:=Sqrt(a); Edit1.text:=FloatToStr(c); end;

10 procedure Button6OnClick; begin // квадрат a:=StrToFloat(Edit1.Text); c:=a*a; Edit1.text:=FloatToStr(c); end;

11 procedure Button7OnClick; begin // Произвольная степень a:=StrToFloat(Edit1.Text); k:=5; Edit1.text:=''; end; if k=5 then begin c:=exp (b * ln (a)); Edit1.text:=FloatToStr(c); end; Формула: a b =e bln a

12 procedure Button7OnClick; begin // Корень n-ой степени a:=StrToFloat(Edit1.Text); k:=6; Edit1.text:=''; end; if k=6 then begin c:=exp(ln(abs(a))/b); if a<0 then c:=-c; Edit1.text:=FloatToStr(c); end; Формула: a b =e ln|a|/b или a b =e 1/bln|a|

13 procedure Button9OnClick; begin // Натуральный логарифм a:=StrToFloat(Edit1.Text); c:=ln(a); Edit1.text:=FloatToStr(c); end;

14 procedure Button10OnClick; begin // Десятичный логарифм a:=StrToFloat(Edit1.Text); c:=ln(a)/ln(10); Edit1.text:=FloatToStr(c); end;

15 procedure Button11OnClick; begin // логарифм // ввод логаривмируемого // числа a:=StrToFloat(Edit1.Text); k:=7; Edit1.text:=''; end; if k=7 then Begin // b –основание логарифма c:=ln(a)/ln(b); Edit1.text:=FloatToStr(c); end;

16 procedure Button12OnClick; var i:integer; Begin // Факториал a:=StrToFloat(Edit1.Text); c := 1; for i := 2 to trunc(a) do c := c * i; Edit1.text:=FloatToStr(c); end;

17 procedure Button13OnClick; Begin // проценты a:=StrToFloat(Edit1.Text); k:=7; Edit1.text:=''; end; if k=8 then begin c:=b*a/100; Edit1.text:=FloatToStr(c); end;

18 procedure Button14OnClick; begin a:=StrToFloat(Edit1.Text); c:=1/a; Edit1.text:=FloatToStr(c); end;

19 procedure Button15OnClick; begin a:=StrToFloat(Edit1.Text); c:=sin(a); Edit1.text:=FloatToStr(c); end;

20 procedure Button16OnClick; begin a:=StrToFloat(Edit1.Text); c:=cos(a); Edit1.text:=FloatToStr(c); end;

21 procedure Button17OnClick; begin a:=StrToFloat(Edit1.Text); c:=sin(a)/cos(a); Edit1.text:=FloatToStr(c); end;

22 procedure Button18OnClick; begin a:=StrToFloat(Edit1.Text); c:=cos(a)/sin(a); Edit1.text:=FloatToStr(c); end;

23 procedure Button19OnClick; begin c:=Pi; Edit1.text:=FloatToStr(c); end;

24 procedure Button20OnClick; Begin a:=StrToFloat(Edit1.Text); c:=exp(a); Edit1.text:=FloatToStr(c); end;

25 procedure Button21OnClick; Begin a:=StrToFloat(Edit1.Text); c:=a*180/Pi; Edit1.text:=FloatToStr(c); end;

26 procedure Button22OnClick; Begin a:=StrToFloat(Edit1.Text); c:=a*Pi/180; Edit1.text:=FloatToStr(c); end;

27 procedure Button23OnClick; Begin Edit1.text:=''; end;

28 procedure Button24OnClick; Begin s:=Edit1.Text; if (length(s)>=0)then delete(s,length(s),1); Edit1.Text:=s; end;

29 procedure Button25OnClick; Begin Form1.Close; end;

30 Калькулятор который мы усовершенствуем

31 procedure Button31OnClick; begin Edit1.Text:=Edit1.Text+'9'; end; Для каждой кнопки своя цифра

32 procedure Button34OnClick; var f,i:integer; begin f:=0; for i:=1 to length(Edit1.Text) do if Edit1.Text[i]='.' then f:=1; if f=0 then Edit1.Text:=Edit1.Text+'.'; end;

33 if Edit1.Text[1]<>'-' then Edit1.Text:='-'+Edit1. Text else begin s:=Edit1.Text; delete(s,1,1); Edit1.Text:=s; end;

34 Калькуляторы в Internet Сайт ПРИКЛАДНАЯ МАТЕМАТИКА, статья о калькуляторе. Фестиваль педагогических идей «Открытый урок».Проект на Delphi «Стандартный Калькулятор». Автор: Панов Сергей Иванович, учитель физики и информатики html Кибер Форум, ветвь Delphi - Калькулятор Пишем калькулятор на Delphi 7 (есть видео уроки) delphi.htmlhttp://delphicomponent.ru/120-kalkulyator-v- delphi.html Обычный калькулятор на Delphi. Автор: Кротов Роман.

35 Калькуляторы в Internet kalkulyator.htmlhttp://cybern.ru/delphi-dlya-nachinayushhix-urok-6-pishem-svoj- kalkulyator.html Delphi для начинающих. Пишем свой калькулятор. Идея с визуализацией примеров, можно использовать (идею) для дальнейшего развития нашего калькулятора. na-delphihttp://koder.kz/articles/ishodniki-programm-na-delphi/kalkulyator- na-delphi Исходник полноценного калькулятора на Delphi 2010 для реализации всех функций заимствован код на Assembler. В программе использованы только стандартные компоненты Delphi. Исходник содержит большое количество комментариев. Готовый проект «Научный калькулятор»

1. Delphi Алгоритмы и программы: О. В. Чеснокова Санкт- Петербург, НТ Пресс, 2008 г. 2. Основы программирования в интегрированной среде DELPHI: А. Желонкин Москва, Бином. Лаборатория знаний, 2004 г. 3. Программирование в Turbo Pascal. Переход к Delphi: Ю. А. Шпак Москва, МК-Пресс, 2006 г. 4. Занимательное программирование: М. Мозговой – СПб, Питер, 2005 г. 5.Delphi. Программирование на языке высокого уровня: Фаронов В.В. Учебник для вузов. – СПб.: Питер, – 640 с.: ил. И интернет ресурсы: 1. Королевство Delphi - виртуальный клуб программистов Мастера Delphi 3. Сайт о Lazarus. Алгоритмы, статьи, библиотеки и много всего интересного 36 Список литературы и интернет источников