Понедельник, 25.09.2017, 16:33
ОТКРЫТАЯ ИНФОРМАТИКА
Приветствую Вас Гость | RSS
Главная Простейшая программа Регистрация Вход
Меню сайта

Форма входа

Поиск

Календарь
«  Сентябрь 2017  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930

Создание простого приложения в среде Lazarus

Автоматизируем процесс перевода старой русской меры веса в современную: выполнить перевод пудов и фунтов в килограммы, если известно, что 1    пуд = 40 фунтам = 16.38 кг.

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

Разместим на форме следующие компоненты: четыре объекта типа надпись Label; два поля ввода Edit; одну кнопку Button. Оформите компоненты так, как показано на рисунке.


Впервой надписи будет храниться текст «Меры веса». Две надписи Label2 и Label3 нужны для пояснения того, какие именно данные должны вводиться, надпись   понадобится для вывода результата. В поля ввода Edit 1 и Edit 2 будут введены конкретные значения: вес в пудах и фунтах. Вычисление веса в килограммах произойдёт при щелчке по кнопке Button1 и будет выведено в Label4.

Займёмся вычислительной частью задачи. Для этого создадим для кнопки Button1 обработчик событий OnClick, для чего дважды щёлкнем по объекту Button1 левой кнопкой мыши. Между словами  begin и end созданной подпрограммы запишем:

procedure TForm1.Button1Click(Sender:TObject);

var

pud,funt: integer;

kg: real ;

begin

pud:=StrToInt(Edit1.Text);

funt:=StrToInt(Edit2.Text);

kg:=pud?16.38+funt?16.38/40;

Label4.Caption:=’В?килограммах:?’+FloatToStr(kg);

End;

Комментарии по-строчно:

Строка 1. Заголовок подпрограммы. Он состоит из ключевого слова procedure и имени подпрограммы TForm1.Button1Click, а в скобках обычно указывают список параметров подпрограммы, если таковые имеются.

Строка 2. Открывает блок описания переменных (var—от variable, переменная).
Строка 3. Описывает переменные pud и funt. Компьютер понимает эту запись как команду выделить в памяти место для хранения двух целых чисел .
Строка 4. Описывает одну вещественную переменную kg.
Строка 5. Начинает программный блок (begin—начало).
Строка 6. Команда, выполняющая следующие действия. Из свойства Text поля ввода Edit1 считывает введённую туда информацию. Эта информация воспринимается компьютером как строка текста (например, «360»—это строка из трёх символов), а поскольку нам для вычислений нужны числовые значения, то функция StrToInt преобразовывает её в целое число. Результат этих преобразований записывается в память компьютера под именем pud. Символы «:=» обозначают оператор присваивания. Например, запись a:=3.14 читается так : переменной a присвоить значение 3.14. 
Строка 7. Информация из поля ввода Edit2 преобразовывается в целое число и записывается в переменную funt. Фактически команды, записанные в шестой и седьмой строках, о существляют ввод исходных данных.
Строка 8. Вычисляется значение выражения, результат которого присваивается переменной kg. Обратите внимание,что умножение здесь обозначается звездочкой, деление —наклонной чертой, сложение —знаком «+». Записывая математическое выражение на языке программирования, нужно чётко указывать все операции. Нельзя, например, опустить знак умножения, как это принято в математике.
Строка 9. Изменяет свойство Caption объекта Label4. В него будет помещён текст, состоящий из двух строк. Первая—’Вкилограммах:’, вторая—значение переменной kg.Знак «+» в этом выражении применяют для конкатенации (слияния) строк. Кроме того, поскольку значение переменной kg — вещественное число, оно преобразовывается в строку функцией FloatToStr. Фактически в этой строке был выполнен вывод результатов.

Строка 10.Конец программного блока (end—конец).


Самостоятельная работа.

Составить программу, для перевода градусной меры угла в радианную.  

Чтобы найти радианную меру какого-нибудь угла по данной градусной мере, нужно умножить число градусов на пи/180, число минут на пи/(180·60)  и найденные произведения сложить.

Дополнительный материал:

Видиоуроки "Lazarus. С чего начать". (В.Черный) смотреть

Наш опрос
Сколько времени вы обычно проводите за комьпютером?
Всего ответов: 956

Друзья сайта
  • Министерство образования РБ
  • Официальный портал подготовки к ГИА и ЕГЭ
  • Всероссийская олимпиада школьников
  • Федеральный портал Российского образования
  • Институт развития образования РБ

  • Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0

    Copyright MyCorp © 2017 Бесплатный конструктор сайтов - uCoz