840978
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 5 480 руб.;
- курсы повышения квалификации от 1 400 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ 60%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до 28 февраля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

Инфоурок / Информатика / Другие методич. материалы / Практическая работа в среде Lazarus "Простые вычисления"

Практическая работа в среде Lazarus "Простые вычисления"


Напоминаем, что в соответствии с профстандартом педагога (утверждён Приказом Минтруда России), если у Вас нет соответствующего преподаваемому предмету образования, то Вам необходимо пройти профессиональную переподготовку по профилю педагогической деятельности. Сделать это Вы можете дистанционно на сайте проекта "Инфоурок" и получить диплом с присвоением квалификации уже через 2 месяца!

Только сейчас действует СКИДКА 50% для всех педагогов на все 184 курса профессиональной переподготовки! Доступна рассрочка с первым взносом всего 10%, при этом цена курса не увеличивается из-за использования рассрочки!

ВЫБРАТЬ КУРС И ПОДАТЬ ЗАЯВКУ
библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

Практическая работа «Простые вычисления»

Задание 1. Ввести с клавиатуры координаты двух точек (A и B) на плоскости (вещественные числа). Вычислить длину отрезка AB. Пример:

Введите координаты точки A:

5.5 3.5

Введите координаты точки B:

1.5 2

Длина отрезка AB = 4.272


Общий вид проекта

hello_html_m3e70dbc.png


















Примечание

    1. Необходимо преобразовать строковый тип (те, данные которые вводим в поля edit) в действительное число.

    2. При выводе данных в поле edit необходимо выполнить обратное преобразование действительного числа в строковый тип.

    3. Количество знаков после запятой можно изменять, используя следующую запись: FormatFloat('0.0',x);где х – вычисляемая величина

    4. Прописать событие для кнопки Очистить (при нажатии на кнопку Очистить поля edit очищаются от данных и можно произвести расчет повторно). Очистить – Clear (очищаем поля edit!!!).

    5. При закрытии формы должно выходить сообщение: Вы собираетесь закрыть программу! Присутствуют кнопки: Yes, NO,Cancel.

hello_html_3baf3848.png





Контрольные вопросы

        1. Какие объекты используются в проекте?

        2. Преобразование строкового типа в число и обратное преобразование.

        3. Каким образом изменить количество знаков после запятой (запишите строку из программы)

        4. Как прописать событие для кнопки Очистить?

        5. Какой тип переменных используется в программе? Почему?



Задание 2. Получить случайное трехзначное число и вывести через запятую его отдельные цифры. Пример:

Получено число 872.

Его цифры 8, 7, 2.

Общий вид проектаhello_html_4d7d1b28.png












План работы над проектом:


  1. Создать новый проект и сохранить его в отдельной папке.

  2. Разместить на форме необходимые компоненты.

  3. Прописать код для события (кнопка Расчет):

    1. вызов датчика случайных чисел random(x)

    2. например, random(900) генерирует случайное число от 0 до 899. Если прибавить к нему 100, то получится диапазон от 100 до 999 включительно, т. е. данный интервал будет охватывать все трехзначные числа.

    3. Необходимо преобразовать действительное число (трехзначное случайное число) в строковый тип.

    4. Получить цифры числа:

      • Чтобы извлечь из числа цифру сотен надо его разделить нацело на 100.

      • Для получения цифры десятка можно сначала разделить нацело на 10, а затем найти остаток от деления на 10.

      • Единицы извлекаются путем нахождения остатка от деления числа на 10.

    5. При выводе данных (цифр числа) в поля edit необходимо выполнить преобразование действительного числа в строковый тип.

  4. На форме присутствует кнопка Закрыть - объект BitBtn1(вкладка Additional). Данный объект (кнопку) можно запрограммировать на выход из программы, используя свойство Kind.


Контрольные вопросы

  1. Какие объекты используются в проекте?

  2. В проекте используется целый (integer) тип переменных. Почему нельзя использовать вещественный (real) тип?

  3. Почему необходимо преобразовать действительное число (трехзначное случайное число) в строковый тип? И при выводе данных (цифр числа) в поля edit также необходимо выполнить преобразование действительного числа в строковый тип?

  4. В чем отличие объекта BitBtn от объекта Button?

  5. Сравните решение задач в программной среде ПаскальАВС с решением задач в программной среде Lazarus. Сделайте вывод: в какой среде удобнее, нагляднее, легче… работать над созданием программы.


Источники: Информатика. Углубленный уровень: учебник для 10 (11)11 класса: в 2 ч./К. Ю. Поляков, Е. А. Еремин. – М. БИНОМ. Лаборатория знаний, 2013.

Сайт Преподавание, наука и жизнь.







Программный код задачи № 1.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

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

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label1: TLabel;

Label2: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

x1,x2,y1,y2, ab: real;

implementation


{$R *.lfm}


{ TForm1 }


procedure TForm1.Button1Click(Sender: TObject);

begin

x1:= StrToFloat(Edit1.text);

x2:= StrToFloat(Edit2.text);

y1:= StrToFloat(Edit3.text);

y2:=StrToFloat(Edit4.text);

ab:=( sqrt((sqr(x1-x2)) + (sqr(y1-y2))));

edit5.caption := FloatToStrF(ab,ffFixed,4,3);

end;


procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.Clear;

edit5.Clear;

end;

end.

Программный код задачи № 2.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

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

Buttons;

type

{ TForm1 }

TForm1 = class(TForm)

BitBtn1: TBitBtn;

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label1: TLabel;

Label2: TLabel;


procedure Button1Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;


var

Form1: TForm1;

a: integer;

b,c,d:integer;

implementation


{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=random(900)+100;

edit1.caption:= IntToStr(a);

b:=a div 100;

c:=(a div 10)mod 10;

d:= a mod 10;

edit2.caption:=IntToStr (d);

edit3.caption:=IntToStr (c);

edit4.caption:=IntToStr (b);


end;

end.

Краткое описание документа:

Практическая работа в среде Lazarus "Простые вычисления".

В работе рассматриваются две задачи:

1. Вычисление длины отрезка АВ.

2.Получение трехзначного числа и вывод его цифр.

В помощь учителю приводится программный код.

Работа составлена на основе учебника и практических работ: К. Ю. Полякова, Е. А. Еремина. Углубленный уровень.

Общая информация

Номер материала: ДБ-251528



Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

Специально для учителей, воспитателей и других работников системы образования действуют 60% скидки (только до конца зимы) при обучении на курсах профессиональной переподготовки (124 курса на выбор).

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG

Только до конца зимы! Скидка 60% для педагогов на ДИПЛОМЫ от Столичного учебного центра!

Курсы профессиональной переподготовки и повышения квалификации от 1 400 руб.
Для выбора курса воспользуйтесь удобным поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВЫ).

Московские документы для аттестации: KURSY.ORG


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

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

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.