Презентации по языку программирования Delphi

1 слайд

Ветвление в алгоритмах и программах

2 слайд

Два вида ветвления в алгоритмах:

полное ветвление неполное ветвление

3 слайд

Общий вид команды полного ветвления в Delphi:
If <логическое выражение>
Тhen begin
< последовательность команд 1>
end
Еlse begin
< последовательность команд 2>
end;

(англ. if – если, then – тогда, else – иначе)

4 слайд

Общий вид команды неполного ветвления в Delphi:

If <логическое выражение>
Тhen begin
<последовательность команд >
end;

5 слайд

Внимание:
если после ключевых слов Then и Else следует только по одной команде, то операторные скобки begin и end можно не ставить;
перед Else ставить точку с запятой нельзя.

6 слайд

Задача 1.
Создайте проект, который вычисляет значение выражения (a-b)/(c-d),
где a, b, с, d – действительные числа.

7 слайд

procedure TForm1.Button1Click(Sender: TObject);
Var a,b,c,d,x,y,z:real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
d := StrToFloat(Edit4.Text);
x := c-d;
If x = 0
Then Label5.Caption := 'Выражение значения не имеет: деление на нуль'
Else
begin
y := a-b;
z := y/x;
Label5.Caption := FloatToStr(z);
end;
end;
end.

8 слайд

Решение

9 слайд

Отладочные данные

10 слайд

Внимание!
Десятичные числа записываются через запятую.
Отладочные данные

11 слайд

Задача 2.
Создайте проект, который вычисляет абсолютную величину числа.
y = |x| =
x при x ≥ 0
-x при x < 0
Нет
Да
начало
ввод: x
y = - x
x < 0
y = x
вывод: y
конец

12 слайд

Домашнее задание:
п. 2.8 (стр. 73 – 78)
Задания № 2, 4

1 слайд

Циклы в алгоритмах и программах.
Команда цикла со счетчиком

2 слайд

Актуализация опорных знаний
Как выглядит и как выполняется команда полного ветвления в Delphi?
Как выглядит и как выполняется команда неполного ветвления в Delphi?
Как и для чего используются переключатели и флажки?
Какие процессы называются циклическими?

3 слайд

Фрагмент алгоритма, состоящий из команд, которые могут быть выполнены более одного раза, называется циклом.
Алгоритмы, содержащие циклы, называются алгоритмами с циклами.

4 слайд

ЗадачаЕсть бочка и ведро. Используя ведро, наполнить бочку водой из колодца.
Тело цикла
Цикл с предусловием

5 слайд

Если бы в условии предыдущей задачи было известно, что бочка пустая, то блок схема модифицированной задачи выглядела бы так:
Цикл с постусловием

6 слайд

Блок схема цикла
с предусловием
с постусловием

7 слайд

Команда цикла со счетчиком в Delphi
Ее целесообразно использовать, когда заранее известно количество повторений команд тела цикла.
for <имя переменной> := <выражение 1> to <выражение 2> do
begin
<команды тела цикла>
end;

8 слайд

Строка for … to … do (англ. for – для, to - до, do – делать, выполнять) называется строкой заголовка команды цикла со счетчиком.
Переменная в строке заголовка, стоящая перед знаком присваивания, называется счетчиком цикла.
Счетчик цикла, выражение 1 и выражение 2 должны принимать только целые значения.
Если тело цикла состоит только из одной команды, операторные скобки begin и end можно не ставить.

9 слайд

10 слайд

Обратный цикл со счетчиком
for <имя переменной> := <выражение 1> downto <выражение 2> do
begin
<команды тела цикла>
end;
(англ. down – вниз), команда отличается от предыдущей только тем, что после каждого выполнения команд тела цикла значение счетчика цикла уменьшается на 1.

11 слайд

Выполните алгоритм
26

12 слайд

Создайте проект для вычисления суммы первых 10 натуральных чисел
(1 + 2 + … + 10)
Задача 1.

13 слайд

var i, s: integer;
begin
s:=0;
for i:= 1 to 10 do
s:=s + i;
Label1.Caption := IntToStr(s);
end;



Ответ: 55

14 слайд

Задача 2.
Создайте проект для вычисления 10! (1*2*3*…*10).
Указание:

Заменить S на P.
2. P:=1.
3. P:=P*i.
4. Заменить тип integer на longint.




Ответ: 3628800

15 слайд

ДОМАШНЕЕ ЗАДАНИЕ
п. 2.9, стр. 84-88,
№ 3

1 слайд

Отладка программ

2 слайд

Актуализация знаний
Для чего предназначены компиляторы? В чем особенности их работы?
Какие ошибки могут возникать в процессе разработки проекта?
Какие ошибки называются синтаксическими?
Как обнаруживаются синтаксические ошибки?
Какие ошибки называются логическими?

3 слайд

Ошибки в Delphi
Синтаксические



Логические
Неверный ввод команд;
неверная запись идентификаторов;
др.
Логические ошибки связаны с неверной реализацией алгоритма программы (вместо ‘+’ поставили ‘–‘ и т.п.)

4 слайд

Один из способов выявления логической ошибки:
создание тестовых наборов входных данных с заранее известными результатами и исполнение созданного проекта для этих наборов данных;
сравнение полученных результатов с ожидаемыми;
поиск команд в программном коде, выполнение которых является причиной появления логических ошибок.

5 слайд

Процесс поиска логических ошибок в тексте программы с использованием тестовых наборов входных данных называют тестированием программы.

6 слайд

Пример



y:= (2*x – 5)/x*x + 1

y:= 2*x – 5/x*x + 1

y:= (2*x – 5)/(x*x + 1)


при х = 0 у = -5
деление на ноль
деление на ноль
division by zero

7 слайд

Комментарий – это текст, который игнорируется компилятором и включается в текст программы с целью облегчения понимания программного кода.

Помогают в поиске логических ошибок комментарии.
// - если комментарий будет размещаться только на ОДНОЙ строке.
{...} - здесь можно охватывать сколько угодно строк.

8 слайд

procedure TForm1.Button1Click(Sender: TObject);
var index, i ,r:Integer; // объявление локальны переменных типа целое число
begin
index:=StrToInt(Edit1.Text); //присваиваем значению index значение Edit1.Text при этом текст преобразуем в число StrToInt
i:=StrToInt(Edit2.Text);
//смотри выше, аналогично
r:=i+index; // присваиваем переменной r сумму i и index
Edit3.Text:=IntToStr(r); //Выводим результат , преобразуя число в строку
end;

9 слайд

procedure TForm1.Button1Click(Sender: TObject);
var index, i ,r:Integer; // объявление локальны переменных типа целое число
begin
index:=StrToInt(Edit1.Text); //присваиваем значению index значение Edit1.Text при этом текст преобразуем в число StrToInt
i:=StrToInt(Edit2.Text);
//смотри выше, аналогично
r:=i+index; // присваиваем переменной r сумму i и index
Edit3.Text:=IntToStr(r); //Выводим результат , преобразуя число в строку
end;

10 слайд

Пошаговое исполнение программ (трассировка)
Шаг исполнения программы – это строка программы (F7).
F8 – выполнить подпрограмму за один шаг.

11 слайд

Пример: Найти сумму двух чисел.

12 слайд

Текст программы файла Project1.dpr
Ctrl+ F2 – прервать пошаговое исполнение программы
F7

13 слайд

Окно Watch List (список просмотра)
Ctrl+F5
Run – Add Watch

14 слайд

Домашнее задание
П. 2.6,
№ 2, 6

1 слайд

События и их обработчики

2 слайд

Актуализация знаний
Назовите окна Turbo Delphi 2007 и поясните их назначение.

Что такое форма? Назовите несколько ее свойств. Как изменить их значения?

Какие общие свойства имеют кнопка, надпись, поле и область изображения? Какие свойства имеют одни из них и не имеют другие?

3 слайд

Кнопка
События
Дважды щелкнуть
Вкладка Код
Заготовка процедуры

4 слайд

Процедура (лат. procedere  – продвигаться, идти вперед) –
это часть программы, которая имеет имя и которую можно по этому имени вызвать на исполнение в разных частях программы.

5 слайд

Подпрограммы в Delphi
Процедуры
Функции

6 слайд

Процедура, которая исполняется при наступлении некоторого события, называется обработчиком этого события.
Процедура, связанная с определенным объектом, называется методом этого объекта.

7 слайд

Создание процедур – обработчиков событий в Delphi (структура процедуры)
procedure TForm1.Button1Click (Sender: TObject);

begin

end;

Строка заголовка
Стандартное слово
Имя процедуры
Точка с запятой
Команды процедуры
(тело процедуры)
begin и end называют операторными скобками.

Точка с запятой
Каждая команда процедуры также должна заканчиваться точкой с запятой

8 слайд

Команды установки свойств объекта в результате исполнения процедуры
<имя объекта>.<имя свойства> := <значение или выражение>;

9 слайд

Например:
Form1.Color := clGreen; - установить цвет фона окна – зеленый;
Form1.Left := 300; - установить отступ левой границы окна - 300 пикселей;
Form1.Width := Form1.Width*2; - увеличить текущую ширину окна вдвое;
Button1.Caption := 'Увеличить'; - установить текст заглавия на кнопке - Увеличить (если значением свойства является текст, то его нужно заключать в одинарные кавычки);
Label1.Font.Color := clRed; - установить цвет символов, которым будет отображаться текст в надписи, - красный.

10 слайд

Средства помощи во время ввода текста проекта:
после ввода первой буквы имени объекта нажать Ctrl + Пробел;

11 слайд

текст с ошибкой подчеркивается красной волнистой линией;
принято писать первую букву каждого слова большой;
TForm1.Button1Click;
после ввода точки, которая разделяет имя объекта и имя свойства, автоматически открывается список свойств данного объекта;





Выбрать свойство и нажать Enter

12 слайд

После запуска проекта на исполнение компилятор анализирует текст на наличие синтаксических ошибок

13 слайд

Ввод и вывод данных во время исполнения проекта
Задание. Создадим процедуру, которая позволит изменить цвет окна и увеличить его высоту на произвольное целое количество пикселей.

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Color := StringToColor(Edit1.Text);
Form1.Hight := Form1.Hight + StrToInt(Edit2.Text);
end;

14 слайд

Задание на дом:
п. 2.5, стр. 51-59,
№ 4, 5

1 слайд

Составные логические выражения.
Вложенные команды ветвления

2 слайд

Логическое выражение в команде ветвления может быть простым или составным.
Составные логические выражения образуются из простых путем использования операций конъюнкции (and) , дизъюнкции (or), отрицания (not).

3 слайд

Использование составных логических выражений
Задача 1.Вычислить значение заданной функции

y =
2x-12, если -3< x <5,
7-8x для всех других значений x.

4 слайд

procedure TForm1.Button1Click(Sender: TObject);
var x,y: real;
begin
x:=StrToFloat(Edit1.Text);
if (x > -3) and (x < 5) then y:= 2*x -12
else y:= 7 - 8*x;
Label1.Caption := FloatToStr(y);
end;
end.

5 слайд

Отладочные данные

6 слайд

Вложенные команды ветвления
Задача 2.
Даны два числа. Определить, равны ли они? Если нет, то какое из них больше?

7 слайд

If x=y then Label1.Caption :=  Числа равны 
else if x>y
then Label1.Caption :=  Первое число больше 
else Label1.Caption :=  Второе число больше ;
Фрагмент программы:

8 слайд

Задача 6 (учебник).
Создайте проект, который определяет меньшее число среди трех разных чисел.

9 слайд

Домашнее задание:
п. 2.8 (стр. 78 – 79)
Задание № 9

1 слайд

Стандартные процедуры и функции в Delphi

2 слайд

3 слайд

Задача 1.Вычислите абсолютную величину числа, вводимого с клавиатуры (abs(x)).

Задача 2.Вычислите синус числа, вводимого с клавиатуры (sin(x)).

Задача 3.Вычислите дробную часть числа, вводимого с клавиатуры (frac(x)) .

Задача 4. Вычислите целую часть числа, вводимого с клавиатуры (int(x)).

4 слайд

Задача .Даны действительные числа s и t. Получить:

f(t, -2s, 1.17) + f(2.2, t, s-t), где

5 слайд

Function F(a,b,c:real):real;
begin
F:=(2*a-b-sin(c))/(5+c);
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var s,t,y:real;
begin
s:=StrToFloat(Edit1.Text);
t:=StrToFloat(Edit2.Text);
y:=F(t,-2*s,1.17)+F(2.2,t,s-t);
Label1.Caption:=FloatToStr(y);
end;

6 слайд

Задача 9.Создайте проект, в котором для двух заданных целых чисел определяется, какое из них имеет большую сумму цифр. Используйте процедуру для нахождения суммы цифр заданного целого числа.
Procedure Sum (a, x : integer; var s : integer);
Begin
s:=0;
Repeat
x:=a mod 10;
s:=s+x;
a:=a div 10;
Until a=0;
end;
Вызов процедуры: Sum (b, s1); Sum (c, s2);
Отладочные данные:1) 1234, 5678
Ответ: второе число

7 слайд

стр. 99-100, № 10
Домашнее задание:

1 слайд

ФУНКЦИИ ПОЛЬЗОВАТЕЛЯ В DELPHI

2 слайд

Функция пользователя, как и процедура пользователя – это отдельная часть программы, которая имеет свое имя и может быть вызвана для выполнения в любой другой части программы.

3 слайд

ОТЛИЧИЯ ФУНКЦИИ ОТ ПРОЦЕДУРЫ:
function <имя> (<списки аргументов с их типами>): <тип результата >;
Значение, которое функция должна вернуть (передать) вызывающей ее команде, в тексте самой функции должно быть присвоено переменной, имя которой совпадает с именем функции.
Функция может быть вызвана либо в правой части команды присваивания, либо в команде вывода.

4 слайд

Оформим как функцию фрагмент программы вычисления НОД двух натуральных чисел:
Function MCD (a,b: integer): integer;
Var r: integer;
begin
r := a mod b;
while r <> 0 do
begin
a := b;
b := r;
r := a mod b;
end;
MCD:=b;
end;
2 аргумента – a и b
1 результат – c (НОД)
Вызов функции: к := МCD(35, 77)
X=7

5 слайд

Задача 6. Запишите функцию, которая вычисляет длину отрезка по известным координатам его концов. Запишите команду вызова этой функции для вычисления длины отрезка а с координатами концов (0; 0) и (20; 30).

6 слайд

Задача 8. Создайте проект, в котором можно найти максимальное из четырех разных целых чисел, вводимых с клавиатуры. Используйте функцию для нахождения большего из двух заданных целых чисел.

7 слайд

Задача . Даны действительные числа s и t. Получить:

f(t, -2s, 1.17) + f(2.2, t, s-t), где

8 слайд

Домашнее задание



стр. 98-99, № 7