Выбранный для просмотра документ Автор.doc
Скачать материал "Комплект практических занятий «Создание приложений на Delphi» 10 класс"
Рабочие листы
к вашим урокам
Скачать
Выбранный для просмотра документ Важно!.txt
Скачать материал "Комплект практических занятий «Создание приложений на Delphi» 10 класс"
Рабочие листы
к вашим урокам
Скачать
Выбранный для просмотра документ ПР №1.doc
Тема: Практическая работа №1 «Создание первого приложения»
Предмет: Информатика и ИКТ
Класс: 10
Литература: Фиошин М.Е., Ресин А.А., Юнусов С.М. - «Информатика и ИКТ. 10-11 классы. Профильный уровень».
Ключевые слова: информатика, урок, программа, объектно-ориентированное программирование, приложение.
Задача:
Создать приложение, в котором при щелчке пользователя на кнопке появилась бы какая-нибудь надпись. Знакомство с компонентами TLabel, TButton
Ход работы:
1.
Запустите Delphi, откройте новое приложение File /
New и в раскрывшемся каскадном меню выбрать раздел Application.
Задайте имя форме «Мое первое приложение», для этого в Object Inspector измените параметр Caption
2. Перенесите на пустую форму, которая открылась вам, кнопку типа TButton со страницы Standard палитры компонентов. Для этого выделите пиктограмму кнопки (она седьмая слева) и затем щелкните курсором мыши в нужном вам месте формы. На форме появиться кнопка, которой Delphi присвоит имя по умолчанию Button1.
Выделите на форме компонент TButton1- кнопку. Перейдите в Object Inspector и измените её свойство Caption (надпись), которое по умолчанию равно Button1(имя, которое по умолчанию присвоила этому компоненту Delphi) на ПУСК.
В свойстве Font измените шрифт и размер символов.
3. Аналогичным образом перенесите на форму с той же страницы Standard палитры компонентов метку TLabel (она на странице четвертая слева). В этой метке в процессе выполнения приложения будет появляться текс при нажатии пользователем кнопки. Delphi присвоит ей имя TLabel1. Аналогично измените свойства Caption и Font для объекта TLabel1.
4. Выделите кнопку TButton1 на форме, перейдите в Object Inspector, откройте в нем страницу событий (Events), найдите событие кнопки OnClick (но первое сверху) и сделайте двойной щелчок в окне справа от имени этого события. Это стандартный способ задания обработчиков любых событий. Но перейти в обработчик событий OnClick кнопки можно и иначе: достаточно сделать двойной щелчок на компоненте TButton1 на форме. В обоих случаях вы окажетесь в окне Редактора Кода и увидите там текс
Заголовок этой процедуры складывается из имени класса вашей формы TForm1, имени компонента TButton1 и имени события без префикса OnClick. Напишите в обработчике оператор задания:
Оператор, который вы написали означает следующее: свойству Caption компонента TLabel1вы присвоили (:= - операция присваивания) строку текста «Это мое первое приложение»
5.
|
Ваше приложение готово, можете его выполнить. Для этого выполните команду Ran или нажмите горячую клавишу F9, или воспользуйтесь быстрой кнопкой. |
|
Рабочие листы
к вашим урокам
Скачать
Выбранный для просмотра документ ПР №2.doc
Тема: Практическая работа №2 «Компоненты и функции. Умножение двух чисел»
Предмет: Информатика и ИКТ
Класс: 10
Литература: Фиошин М.Е., Ресин А.А., Юнусов С.М. - «Информатика и ИКТ. 10-11 классы. Профильный уровень».
Ключевые слова: информатика, урок, программа, объектно-ориентированное программирование, приложение.
Задача: Создайте приложение, которое при нажатии кнопки перемножало бы два вещественных числа, введенных пользователем, и показывало бы результат умножения.
Знакомство с компонентами TEdit, TPanel и функциями FloatToStr и StrToFloat.
Ход работы:
1.
Запустите Delphi, откройте новое приложение File /
New и в раскрывшемся каскадном меню выбрать раздел Application.
Задайте имя форме «Умножение чисел», для этого в Object Inspector измените параметр Caption
2. Перенесите на пустую форму компоненты TButton1, TLabel1, TLabel2, TLabel3, TEdit1, TEdit2, TPanel1 со страницы Standard палитры компонентов.
|
|
Компонент является контейнером для группирования органов управления, но может использоваться и для отображения текста с возможностями объемного оформления. Основное свойство Caption |
|
|
Отображение, ввод и редактирование однострочных текстов. Имеется возможность оформления объемного бордюра. Основное свойство Text. |
3. -Измените надписи в метках компонентов TLabel1, TLabel2, TLabel3 на «Число1», «Число2», «Результат». Для этого перейдите в Object Inspector и изменяйте их свойство Caption (надпись), в свойстве Font измените шрифт и размер символов.
-Замените свойство Caption (надпись) вашей кнопки Button1на «Расчет»
В свойстве Font измените шрифт и размер символов.
-Очистите свойство Caption (надпись) у панели TPanel1
Попробуйте поварьировать такими свойствами панели, как BevelInner и BevelOuter, которые определяют вид (утопленный - bvLowered или выпуклый - bvRaised). В итоге форма примет вид:
4. Выделите кнопку TButton1 на форме, перейдите в Object Inspector, откройте в нем страницу событий (Events), найдите событие кнопки OnClick (но первое сверху) и сделайте двойной щелчок в окне справа от имени этого события. Это стандартный способ задания обработчиков любых событий. Но перейти в обработчик событий OnClick кнопки можно и иначе: достаточно сделать двойной щелчок на компоненте TButton1 на форме. В обоих случаях вы окажетесь в окне Редактора Кода и увидите там текс
Заголовок этой процедуры складывается из имени класса вашей формы TForm1, имени компонента TButton1 и имени события без префикса OnClick. Напишите в обработчике оператор задания:
Оператор, который вы написали означает следующее: свойству Caption компонента TPanel1 вы присвоили (:= - операция присваивания) значение выражения, указанного в правой части оператора. Знак «+» означает конкатенацию – сцепление двух строк символов. Текст храниться в свойстве Text компонентов TLabel1 иTLabel2.
Функция FloatToStr преобразует заданный ей параметр типа действительного числа в строку символов.
Функция StrToFloat преобразует символьное изображение числа в его значение типа действительного числа.
5.
|
Ваше приложение готово, можете его выполнить. Для этого выполните команду Ran или нажмите горячую клавишу F9, или воспользуйтесь быстрой кнопкой. |
|
Рабочие листы
к вашим урокам
Скачать
Выбранный для просмотра документ ПР №3.doc
Тема: Практическая работа №3 «Решение задач»
Предмет: Информатика и ИКТ
Класс: 10
Литература: Фиошин М.Е., Ресин А.А., Юнусов С.М. - «Информатика и ИКТ. 10-11 классы. Профильный уровень».
Ключевые слова: информатика, урок, программа, объектно-ориентированное программирование, приложение.
Задача №1
Создайте приложение, которое при нажатии кнопки складывало бы два целых числа, введенных пользователем, и показывало бы результат сложения.
Знакомство с функциями IntToStr и StrToInt.
1. Создайте форму и включите в неё нужные компоненты.
|
|
|
2. Напишите обработчик событий для кнопок «Рассчитать» и «Очистить»
|
«Рассчитать» |
«Очистить» |
|
|
|
|
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) в текс |
|
3.
|
Ваше приложение готово, можете его выполнить. Для этого выполните команду Ran или нажмите горячую клавишу F9, или воспользуйтесь быстрой кнопкой. |
|
Задача №2
Создайте приложение, которое при нажатии кнопки вычисляло площадь круга.
|
|
|
|
«Рассчитать» |
«Очистить» |
|
|
|
|
var R,Sq:extended; «объявляются переменные R,Sq вещественного типа» begin R:=StrToFloat(Edit1.Text); «вещественной переменной R присваивается значение взятое из компонента Edit1.Text в виде текста и преобразованное в число с помощью функции StrToFloat» Sq:=Pi*Sqr(R); «вещественной
переменной Sq
присваивается значение произведения П на Edit2.Text:= FloatToStr(Sq); «В компонент Edit2.Text кладется значение вещественной переменной Sq преобразованное в текс с помощью функции FloatToStr» |
begin Edit1.Text:=''; Edit2.Text:=''; end; «Компонентам Edit1.Text, Edit2.Text присваивается значение пустого текста» |
Задача №3
Создайте приложение, которое при нажатии кнопки меняет местами значение двух переменных (метод пустого стакана).
1. Создайте форму и включите в неё нужные компоненты.
|
|
|
2. Напишите обработчик событий для кнопок «Рассчитать» и «Очистить».
Для «Очистить» аналогично задаче №1 и №2.
|
|
|
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; |
|
|
|
Задача №4
Создайте приложение, которое при нажатии кнопки возводит Х в степень У.
1. Создайте форму и включите в неё нужные компоненты.
|
|
|
2. Напишите обработчик событий для кнопок «Возвести» и «Очистить».
Для «Очистить» аналогично задаче №1 и №2.
|
|
|
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 нет стандартной операции или функции для вычисления Edit3.Text:=FloatToStr(R); «В компонент Edit3.Text кладется значение переменной R преобразованное в текс с помощью функции FloatToStr» |
Рабочие листы
к вашим урокам
Скачать
Выбранный для просмотра документ ПР №4.doc
Тема: Практическая работа №4 «Использование функций при решении задач»
Предмет: Информатика и ИКТ
Класс: 10
Литература: Фиошин М.Е., Ресин А.А., Юнусов С.М. - «Информатика и ИКТ. 10-11 классы. Профильный уровень».
Ключевые слова: информатика, урок, программа, объектно-ориентированное программирование, функции, приложение.
Функции
|
Модуль |
Abs (X) |
|
|
Возведение в квадрат |
Sqr (X) |
|
|
Вычисление квадратного корня |
Sqrt (X) |
|
|
Степенные |
|
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
Поменять местами значения в двух переменных, не пользуясь третьей переменной. Использовать для обмена какие либо компоненты также нельзя.
|
|
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
Даны два числа, найти среднее арифметическое данных чисел и среднее геометрическое их модулей.
|
|
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. Найти второй корень и коэффициент В.
|
|
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
Дано количество секунд с начала суток. Вычислить текущее время в виде количества часов, минут и секунд.
|
|
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
Дана длина окружности. Найти площадь данного круга.
|
|
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
Дано целое число. Определить в нем количество сотен (не включающее количество тысяч)
|
|
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
Дано двузначное число. Определить в нем сумму цифр.
|
|
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/
|
|
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
Дана длина ребра куба. Вычислить площадь его боковой поверхности.
|
|
procedure TForm1.Button1Click(Sender: TObject); var A,S:extended; begin A:= StrToFloat(Edit1.Text); S:= 4*A*A; Edit2.Text:=FloatToStr(S); end; |
Задача №10
Дано вещественное число. Найти его вторую цифру в дробной части.
|
|
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;
|
Рабочие листы
к вашим урокам
Скачать
Рабочие листы
к вашим урокам
Скачать
Практические работы разработаны к разделу «Введение в объектно-ориентированное программирование» учебника Фиошина М.Е., Ресина А.А., Юнусова С.М. - «Информатика и ИКТ. 10-11 классы. Профильный уровень», с использованием визуальной системы программирования Delphi. Модуль состоит из четырех практических работ линейного программирования: ПР №1 «Создание первого приложения»; ПР №2 «Компоненты и функции. Умножение двух чисел»; ПР № 3 «Решение задач»; ПР №4 «Использование функций при решении задач»raquo;.
6 664 379 материалов в базе
Настоящий материал опубликован пользователем Мещерякова Наталья Николаевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Ваша скидка на курсы
40%
Курс профессиональной переподготовки
600 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Мини-курс
4 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.