Главная / Информатика / Комплект практических занятий «Создание приложений на Delphi» 10 класс

Комплект практических занятий «Создание приложений на Delphi» 10 класс

Название документа Автор.doc

  1. Воробьева Анжелика Анатольевна

  2. Преподаватель математики и информатики

  3. Высшая квалификационная категория

  4. ГОУ СПО СПбХУ им. Н.К. Рериха (техникум)

  5. г. Санкт-Петербург

  6. ang.vorobyeva@gmail.com

  7. Практические работы разработаны к разделу «Введение в объектно-ориентированное программирование»
    учебника Фиошина М.Е., Ресина А.А., Юнусова С.М. - «Информатика и ИКТ. 10-11 классы. Профильный уровень», с использованием визуальной системы программирования Delphi. Модуль состоит из четырех практических работ линейного программирования:

  • ПР №1 «Создание первого приложения»;

  • ПР №2 «Компоненты и функции. Умножение двух чисел»;

  • ПР № 3 «Решение задач»;

  • ПР №4 «Использование функций при решении задач».

Название документа ПР №1.doc

Тема: Практическая работа №1 «Создание первого приложения»

Предмет: Информатика и ИКТ

Класс: 10

Литература: Фиошин М.Е., Ресин А.А., Юнусов С.М. - «Информатика и ИКТ. 10-11 классы. Профильный уровень».

Ключевые слова: информатика, урок, программа, объектно-ориентированное программирование, приложение.


Задача:

Создать приложение, в котором при щелчке пользователя на кнопке появилась бы какая-нибудь надпись. Знакомство с компонентами TLabel, TButton


Ход работы:

  1. Зhello_html_m15613a64.gifапустите Delphi, откройте новое приложение File / New и в раскрывшемся каскадном меню выбрать раздел Application. hello_html_44fdb6ad.png

Задайте имя форме «Мое первое приложение», для этого в Object Inspector измените параметр Caption

hello_html_664b2d6d.pnghello_html_23092ac8.gifhello_html_mf779c9e.gif

  1. Перенесите на пустую форму, которая открылась вам, кнопку типа TButton со страницы Standard палитры компонентов. Для этого выделите пиктограмму кнопки (она седьмая слева) и затем щелкните курсором мыши в нужном вам месте формы. На форме появиться кнопка, которой Delphi присвоит имя по умолчанию Button1.

Выделите на форме компонент TButton1- кнопку. Перейдите в Object Inspector и измените её свойство Caption (надпись), которое по умолчанию равно Button1(имя, которое по умолчанию присвоила этому компоненту Delphi) на ПУСК.

В свойстве Font измените шрифт и размер символов.

hello_html_4188406f.pnghello_html_mf779c9e.gifhello_html_ma0943f9.gifhello_html_ma0943f9.gifhello_html_1b79dd05.gifhello_html_ma0943f9.gif


  1. Аналогичным образом перенесите на форму с той же страницы Standard палитры компонентов метку TLabel (она на странице четвертая слева). В этой метке в процессе выполнения приложения будет появляться текс при нажатии пользователем кнопки. Delphi присвоит ей имя TLabel1. Аналогично измените свойства Caption и Font для объекта TLabel1.

hello_html_3d0876b.pnghello_html_ma0943f9.gifhello_html_80a9054.gif

  1. Выделите кнопку TButton1 на форме, перейдите в Object Inspector, откройте в нем страницу событий (Events), найдите событие кнопки OnClick (но первое сверху) и сделайте двойной щелчок в окне справа от имени этого события. Это стандартный способ задания обработчиков любых событий. Но перейти в обработчик событий OnClick кнопки можно и иначе: достаточно сделать двойной щелчок на компоненте TButton1 на форме. В обоих случаях вы окажетесь в окне Редактора Кода и увидите там текс

hello_html_m1094455b.png

Заголовок этой процедуры складывается из имени класса вашей формы TForm1, имени компонента TButton1 и имени события без префикса OnClick. Напишите в обработчике оператор задания:

hello_html_61f733d8.png

Оператор, который вы написали означает следующее: свойству Caption компонента TLabel1вы присвоили (:= - операция присваивания) строку текста «Это мое первое приложение»

Ваше приложение готово, можете его выполнить. Для этого выполните команду Ran или нажмите горячую клавишу F9, или воспользуйтесь быстрой кнопкой.

hello_html_b46f8ae.png

hello_html_m172d2929.png

Название документа ПР №2.doc

Тема: Практическая работа №2 «Компоненты и функции. Умножение двух чисел»

Предмет: Информатика и ИКТ

Класс: 10

Литература: Фиошин М.Е., Ресин А.А., Юнусов С.М. - «Информатика и ИКТ. 10-11 классы. Профильный уровень».

Ключевые слова: информатика, урок, программа, объектно-ориентированное программирование, приложение.

Задача: Создайте приложение, которое при нажатии кнопки перемножало бы два вещественных числа, введенных пользователем, и показывало бы результат умножения.

Знакомство с компонентами TEdit, TPanel и функциями FloatToStr и StrToFloat.

Ход работы:

  1. Зhello_html_m15613a64.gifапустите Delphi, откройте новое приложение File / New и в раскрывшемся каскадном меню выбрать раздел Application. hello_html_44fdb6ad.png

Задайте имя форме «Умножение чисел», для этого в Object Inspector измените параметр Caption

hello_html_43bffd4f.pnghello_html_ma0943f9.gifhello_html_1b79dd05.gifhello_html_1b79dd05.gif

  1. Перенесите на пустую форму компоненты TButton1, TLabel1, TLabel2, TLabel3, TEdit1, TEdit2, TPanel1 со страницы Standard палитры компонентов.


hello_html_1f65e06f.png

Компонент является контейнером для группирования органов управления, но может использоваться и для отображения текста с возможностями объемного оформления. Основное свойство Caption

hello_html_m3006d108.png

Отображение, ввод и редактирование однострочных текстов. Имеется возможность оформления объемного бордюра. Основное свойство Text.


hello_html_m4be00d39.pnghello_html_5d253344.gifhello_html_m78167454.gif


  1. -Измените надписи в метках компонентов TLabel1, TLabel2, TLabel3 на «Число1», «Число2», «Результат». Для этого перейдите в Object Inspector и изменяйте их свойство Caption (надпись), в свойстве Font измените шрифт и размер символов.

-Замените свойство Caption (надпись) вашей кнопки Button1на «Расчет»

В свойстве Font измените шрифт и размер символов.

-Очистите свойство Caption (надпись) у панели TPanel1

Попробуйте поварьировать такими свойствами панели, как BevelInner и BevelOuter, которые определяют вид (утопленный - bvLowered или выпуклый - bvRaised). В итоге форма примет вид:

hello_html_56ace697.pnghello_html_m458c19db.gifhello_html_m2f0fea60.gif

  1. Выделите кнопку TButton1 на форме, перейдите в Object Inspector, откройте в нем страницу событий (Events), найдите событие кнопки OnClick (но первое сверху) и сделайте двойной щелчок в окне справа от имени этого события. Это стандартный способ задания обработчиков любых событий. Но перейти в обработчик событий OnClick кнопки можно и иначе: достаточно сделать двойной щелчок на компоненте TButton1 на форме. В обоих случаях вы окажетесь в окне Редактора Кода и увидите там текс

hello_html_m1094455b.png

Заголовок этой процедуры складывается из имени класса вашей формы TForm1, имени компонента TButton1 и имени события без префикса OnClick. Напишите в обработчике оператор задания:

hello_html_21c95189.png

Оператор, который вы написали означает следующее: свойству Caption компонента TPanel1 вы присвоили (:= - операция присваивания) значение выражения, указанного в правой части оператора. Знак «+» означает конкатенацию – сцепление двух строк символов. Текст храниться в свойстве Text компонентов TLabel1 иTLabel2.

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

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

Ваше приложение готово, можете его выполнить. Для этого выполните команду Ran или нажмите горячую клавишу F9, или воспользуйтесь быстрой кнопкой.

hello_html_b46f8ae.png

hello_html_m426484d5.png

Название документа ПР №3.doc

Тема: Практическая работа №3 «Решение задач»

Предмет: Информатика и ИКТ

Класс: 10

Литература: Фиошин М.Е., Ресин А.А., Юнусов С.М. - «Информатика и ИКТ. 10-11 классы. Профильный уровень».

Ключевые слова: информатика, урок, программа, объектно-ориентированное программирование, приложение.



Задача №1

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

Знакомство с функциями IntToStr и StrToInt.

  1. Создайте форму и включите в неё нужные компоненты.

    hello_html_6bee8f2b.png

    hello_html_m267038cb.png

  2. Напишите обработчик событий для кнопок «Рассчитать» и «Очистить»

«Рассчитать»

«Очистить»

hello_html_2d5019fa.png

hello_html_7a094fd3.png

var A,B,Res:integer; «объявляются переменные A,B,Res целого типа»

begin

A:=StrToInt(Edit1.Text); «целой переменной A присваивается значение взятое из компонента Edit1.Text в виде текста и преобразованное в число с помощью функции StrToInt»

B:=StrToInt(Edit2.Text); «целой переменной В присваивается значение взятое из компонента Edi2.Text в виде текста и преобразованное в число с помощью функции StrToInt»

Res:=A+B; «переменной Res присваивается значение суммы целых переменных А и В»

Edit3.Text:=IntToStr(Res); «В компонент Edit3.Text кладется значение целой переменной Res преобразованное в текс с помощью функции IntToStr»

end;

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

end;

«Компонентам Edit1.Text, Edit2.Text, Edit3.Text присваивается значение пустого текста»


StrToInt – преобразует текс в целое число (integer)

IntToStr – преобразует целое число(integer) в текс



Ваше приложение готово, можете его выполнить. Для этого выполните команду Ran или нажмите горячую клавишу F9, или воспользуйтесь быстрой кнопкой.

hello_html_b46f8ae.png


hello_html_m5a78bcfa.png







Задача №2

Создайте приложение, которое при нажатии кнопки вычисляло площадь круга.

  1. Создайте форму и включите в неё нужные компоненты.

    hello_html_m5c79b216.png

    hello_html_53757af.png

  2. Напишите обработчик событий для кнопок «Рассчитать» и «Очистить»

    «Рассчитать»

    «Очистить»

    hello_html_754416f9.png

    hello_html_3d9536dd.png

    var R,Sq:extended; «объявляются переменные R,Sq вещественного типа»

    begin

    R:=StrToFloat(Edit1.Text); «вещественной переменной R присваивается значение взятое из компонента Edit1.Text в виде текста и преобразованное в число с помощью функции StrToFloat»

    Sq:=Pi*Sqr(R); «вещественной переменной Sq присваивается значение произведения П на hello_html_4553521f.gif»

    Edit2.Text:= FloatToStr(Sq); «В компонент Edit2.Text кладется значение вещественной переменной Sq преобразованное в текс с помощью функции FloatToStr»

    begin

    Edit1.Text:='';

    Edit2.Text:='';

    end;

    «Компонентам Edit1.Text, Edit2.Text присваивается значение пустого текста»

  3. Ваше приложение готово, запустите и проверьте его

hello_html_m16f8c081.png

Задача №3

Создайте приложение, которое при нажатии кнопки меняет местами значение двух переменных (метод пустого стакана).

1. Создайте форму и включите в неё нужные компоненты.

hello_html_m20ae0157.png

hello_html_m88ba9a8.png

2. Напишите обработчик событий для кнопок «Рассчитать» и «Очистить».

Для «Очистить» аналогично задаче №1 и №2.

hello_html_m4fb8512f.png

Var A,B,C:integer; «объявляются переменные A,Bцелого типа»

begin

A:=StrToInt(Edit1.Text); «целой переменной A присваивается значение взятое из компонента Edit1.Text в виде текста и преобразованное в число с помощью функции StrToInt»

B:=StrToInt(Edit2.Text); «целой переменной В присваивается значение взятое из компонента Edit2.Text в виде текста и преобразованное в число с помощью функции StrToInt»

C:=A; A:=B; B:=C; «меняем местами значения переменных»

Edit1.Text:=IntToStr(A); «В компонент Edit1.Text кладется значение целой переменной А преобразованное в текс с помощью функции IntToStr»

Edit2.Text:=IntToStr(B); «В компонент Edit2.Text кладется значение целой переменной В преобразованное в текс с помощью функции IntToStr»

end;

  1. Ваше приложение готово, запустите и проверьте его

hello_html_m648d16e0.png

hello_html_12c96da.png

Задача №4

Создайте приложение, которое при нажатии кнопки возводит Х в степень У.

1. Создайте форму и включите в неё нужные компоненты.

hello_html_6dd6c7ef.png

hello_html_4cc4e72d.png

2. Напишите обработчик событий для кнопок «Возвести» и «Очистить».

Для «Очистить» аналогично задаче №1 и №2.

hello_html_58f9d4eb.png

Var X,Y,R:integer; «объявляются переменные X,Y,R вещественного типа»

begin

X:=StrToFloat(Edit1.Text); « переменной X присваивается значение взятое из компонента Edit1.Text в виде текста и преобразованное в число с помощью функции StrToFloat»

Y:=StrToFloat(Edit2.Text); « переменной В присваивается значение взятое из компонента Edit2.Text в виде текста и преобразованное в число с помощью функции StrToFloat»

R:= Exp(Y*Ln(X)); «В языке Pascal нет стандартной операции или функции для вычисления hello_html_4752668e.gif. Для решения такой задачи используют встроенную функцию hello_html_m502d9ceb.gifЭта формула применяется для нецелых показателей степени У,а для целых намного эффективней умножать »

Edit3.Text:=FloatToStr(R); «В компонент Edit3.Text кладется значение переменной R преобразованное в текс с помощью функции FloatToStr»

  1. Ваше приложение готово, запустите и проверьте его

hello_html_3d5fafb8.png

Название документа ПР №4.doc

Тема: Практическая работа №4 «Использование функций при решении задач»

Предмет: Информатика и ИКТ

Класс: 10

Литература: Фиошин М.Е., Ресин А.А., Юнусов С.М. - «Информатика и ИКТ. 10-11 классы. Профильный уровень».

Ключевые слова: информатика, урок, программа, объектно-ориентированное программирование, функции, приложение.

Функции

Модуль

Abs (X)

Возведение в квадрат

Sqr (X)

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

Sqrt (X)

Степенные

hello_html_18e7dcee.gif

Exp (X)

Ln X

Ln (X)

Тригонометрические

П

Pi

Sin x

Sin (x)

Cos x

Cos (x)

Arctg x

Arctg (x)

Округление

По математическим правилам до целого

Round (X)

Отсекает дробную часть

Trunc (X)

Нахождение целой части от деления двух чисел (дробная часть просто отбрасывается)

X Div Y

Остаток от деления двух целых чисел (отбрасывается целая часть)

X Mod Y

Задача №1

Поменять местами значения в двух переменных, не пользуясь третьей переменной. Использовать для обмена какие либо компоненты также нельзя.

hello_html_m8eac482.png

procedure TForm4.Button2Click(Sender: TObject);

var Y,X:integer;

begin

X:=StrToInt(Edit1.Text);

Y:=StrToInt(Edit2.Text);

X:=Y+X;

Y:=X-Y;

X:=X-Y;

Edit1.Text:=IntToStr(X);

Edit2.Text:=IntToStr(Y);

end;


procedure TForm1.Button2Click(Sender: ТObject);

begin

Edit1.Text:='';

Edit2.Text:='';

end;


Задача №2

Даны два числа, найти среднее арифметическое данных чисел и среднее геометрическое их модулей.

hello_html_m124455f2.png

procedure TForm1.Button1Click(Sender: TObject);

var A,B,C: extended;

begin

A:= StrToFloat (Edit1.Text);

B:= StrToFloat (Edit2.Text);

C:= (A+B)/2;

Edit3.Text:=FloatToStr (C);

end;

procedure TForm1.Button2Click(Sender: TObject);

var A,B,C: extended;

begin

A:= StrToFloat (Edit1.Text);

B:= StrToFloat (Edit2.Text);

C:= Sqrt(Abs(A)*Abs(B));

Edit4.Text:=FloatToStr (C);

end;

procedure TForm1.Button2Click(Sender: ТObject);

begin

Edit1.Text:='';

Edit2.Text:='';

end;

end.

Задача №3

Дан один корень квадратного уравнения и коэффициент С. Известно, что коэффициент А равен 1. Найти второй корень и коэффициент В.

hello_html_570692ca.png

procedure TForm4.Button1Click(Sender: TObject);

Var X1,X2,B,C:extended;

begin

X1:=StrToFloat(Edit1.Text);

C:= StrToFloat(Edit2.Text);

X2:= (C/X1);

Edit3.Text:=FloatToStr(X2);

B:= -(X1+X2);

Edit4.Text:=FloatToStr(B);

end;

procedure TForm1.Button2Click(Sender: ТObject);

begin

Edit1.Text:='';

Edit2.Text:='';

end;


Задача №4

Дано количество секунд с начала суток. Вычислить текущее время в виде количества часов, минут и секунд.

hello_html_m4d0292b6.png

procedure TForm1.Button2Click(Sender: ТObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit2.Text:=IntToStr( StrToInt ( Edit1.Text) div 3600);

Edit3.Text:= IntToStr((StrToInt( Edit1.Text)-StrToInt(Edit2.Text) *3600) div 60);

Edit4.Text:= IntToStr(StrToInt(Edit1.Text)- StrToInt(Edit2.Text)*3600-StrToInt(Edit3.Text)*60);

end;

Задача №5

Дана длина окружности. Найти площадь данного круга.

hello_html_m3f0fa110.png

procedure TForm1.Button1Click(Sender: TObject);

var L,R,S:extended;

begin

L:= StrToFloat(Edit1.Text);

R:=L/(2*Pi);

Edit2.Text:=FloatToStr(R);

S:= Pi*(R*R);

Edit3.Text:=FloatToStr(S);

end;


Задача №6

Дано целое число. Определить в нем количество сотен (не включающее количество тысяч)

hello_html_m51395664.png

procedure TForm2.Button1Click(Sender: TObject);

var A,B:integer;

begin

A:=StrToInt(Edit1.Text);

B:=(A-(A div 1000)*1000)div 100;

Edit2.Text:=IntToStr(B);

end;


procedure TForm1.Button2Click(Sender: ТObject);

begin

Edit1.Text:='';

Edit2.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

Задача №7

Дано двузначное число. Определить в нем сумму цифр.

hello_html_m766fecd3.png

procedure TForm1.Button1Click(Sender: TObject);

var A,B:integer;

begin

A:=StrToInt(Edit1.Text);

B:=(A-(A div 10)*10)+(A div 10);

(Из А вычитаем кол-во 10*на 10 и + кол-во 10)

Edit2.Text:=IntToStr(B);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

end;

Задача №8

На счет в банке на 5 лет была положена определенная денежная сумма под определенный годовой процент. Проценты начисляются каждый год в зависимости от суммы на счете. Вводятся начальная сумма и годовой процент (от 1 до 100). Какая сумма будет на счете через 5 лет. / S=A*(1+0,01*B)^5/

hello_html_3f7a0dfd.png

procedure TForm2.Button1Click(Sender: TObject);

var A,B,S:extended;

begin

A:= StrToFloat(Edit1.Text);

B:= StrToFloat(Edit2.Text);

S:= A*Exp(5*Ln(1+0.01*B));

Edit3.Text:=FloatToStr(S);

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

Задача №9

Дана длина ребра куба. Вычислить площадь его боковой поверхности.

hello_html_e12d942.png

procedure TForm1.Button1Click(Sender: TObject);

var A,S:extended;

begin

A:= StrToFloat(Edit1.Text);

S:= 4*A*A;

Edit2.Text:=FloatToStr(S);

end;

Задача №10

Дано вещественное число. Найти его вторую цифру в дробной части.

hello_html_m2b9e7f41.png

procedure TForm1.Button1Click(Sender: TObject);

var N: integer; S:extended;

begin

N:= StrToFloat(Edit1.Text);

S:=(N mod 0,1) div 10;

Edit2.Text:=IntToStr(N);

end;
















Комплект практических занятий «Создание приложений на Delphi» 10 класс
  • Информатика
Описание:

Практические работы разработаны к разделу «Введение в объектно-ориентированное программирование» учебника Фиошина М.Е., Ресина А.А., Юнусова С.М. - «Информатика и ИКТ. 10-11 классы. Профильный уровень», с использованием визуальной системы программирования Delphi. Модуль состоит из четырех практических работ линейного программирования:

  • ПР №1 «Создание первого приложения»;
  • ПР №2 «Компоненты и функции. Умножение двух чисел»;
  • ПР № 3 «Решение задач»;
  • ПР №4 «Использование функций при решении задач»raquo;.


Автор Воробьева Анжелика Анатольевна
Дата добавления 18.03.2012
Раздел Информатика
Подраздел
Просмотров 3501
Номер материала 1393
Скачать свидетельство о публикации

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

Введите символы, которые изображены на картинке:

Получить новый код
* Обязательные для заполнения.


Комментарии:

↓ Показать еще коментарии ↓