Программирование. Lazarus. Урок 4.

Урок 4. Реализация линейных алгоритмов средствами языков программирования.

Линейные алгоритмы - это алгоритмы, в которых действия выполняются последовательно одно за другим.

Решение задачи на компьютере — это процесс автоматического преобразования исходных данных в искомый результат в соответствии с заданным алгоритмом.

В Lazarus каждая переменная перед использованием должна быть описана (объявлена). При объявлении переменной задается ее имя и тип.

Для описание переменных  используется служебного слова var.

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

Var имя_переменной: тип_переменной;

Например:

Var

a: integer; //Объявлена целочисленная переменная

b, c: real; //Объявлены две вещественные переменные.

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

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

где m – мантисса (целое или дробное число с десятичной точкой),

p – порядок (целое число).

Вещественное число может занимать от 4 до 10 байтов.

Пример описания вещественных переменных:

Var

r1, r2: real; d: double;

В ыражение задает порядок выполнения действий над данными и состоит из операндов (констант, переменных, обращений к функциям), круглых скобок и знаков операций.

Операторы целочисленной арифметики DIV и MOD применяются только к целочисленным операндам.

DIV позволяет получать целую часть результата деления одного числа на другое.

Например, 15 DIV 7 = 2.

Оператор  MOD  получает остаток от деления одного числа на другое.

Например, 15 MOD 7 = 1,

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

Величина угла тригонометрических функций должна быть выражена в радианах. Для преобразования величины угла из градусов в радианы используется формула:

(α * 3.1415256 ) / 180,

где α – величина угла в градусах, 3.1415256 –число π.

Вместо константы 3.1415256 можно использовать стандартную именованную константу PI.

Функции преобразования.

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

Например, для преобразования в вещественный тип используется оператор:

Funt:= StrToFloat(Edit1.Text);

Ввод данных.

Присвоение значений переменной – используется оператор присвоения (:=)

Переменная := Выражение;

Пример: time :=10;

Name:= Иванов;

Ввод данных в программу осуществляется путем изменения свойства объекта Edit в коде.

Например, ввод значения переменной N через Edit1

N:=StrtoInt(Edit1.Text);

StrtoInt() - функция преобразовывает текстовую информацию, введенную в Edit1, в цифровую тип Integer.

StrtoFloat() - функция преобразовывает текстовую информацию, введенную в Edit1, в действительное число.

Вывод результатов вычислений.

Вывод данных в программе осуществляется также путем изменения свойства объекта Edit в коде.

Например, вывод значения переменной С через Edit2.

Edit2.Text := InttoStr(C);

Функция InttoStr() преобразует цифровую информацию в текстовую и данный текст присваивается свойству Text объекта Edit.

Практическое занятие 18

Тема: Реализация линейных алгоритмов средствами языков программирования.

Цель: изучение применения глобальных и локальных переменных, объявление переменных.

Оборудование: Компьютер.

Выполнение работы:

З адание 1. Создайте проект «Вычисление периметра и площади прямоугольника».

1. Откройте новый проект.

2. Разместите на форме 4 кнопки Edit, 1 кнопка Button и 4 кнопки Label.

3. Переименуйте кнопки согласно картинке выше, свойства приведены в таблице.

1. Выделите объект Button1, который подписан как «Вычислить». Перейдите в окно редактора кода и пропишите следующий код:

procedure TForm1.Button1Click(Sender: TObject);

var

a, b, p,s : integer;

begin

a := StrToInt(edit1.text);

b := StrToInt(edit2.text);

p := 2 * (a + b) ;

Edit3.Text := InttoStr(p);

S := a*b ;

Edit4.Text := InttoStr(s);

end;

1. Выделите форму, в свойстве Caption и замените Form1 на «Вычисление периметра и площади прямоугольника».

2. Сохраните проект в новой папке, запустите его на исполнение.

З адание 2. Создайте проект «Переменные», в котором для вычисления результата деления чисел 2 и 3, применяются разные типы данных.

1. Откройте новый проект.

2. Разместите на форме две вкладки (CommonControls –TPageControl).

1. Разместите на форме вкладка «Числовые» 2 кнопки Edit, 1 кнопка Button и 5кнопок Label.

2. Переименуйте кнопки согласно картинке выше, свойства приведены в таблице.Вкладка «Числовые».

1. Выделите объект Button1, который подписан как «Вычислить». Перейдите в окно редактора кода и пропишите следующий код:

procedure TForm1.Button1Click(Sender: TObject);

var

bytA, bytB : byte;

intC : integer;

sngD : Single ;

dblE : Double;

begin

bytA := StrtoInt(Edit1.Text);

bytB := StrtoInt(Edit2.Text);

intC := bytA div bytB;

sngD := bytA / bytB;

dblE := bytA / bytB;

Label3.Caption := Inttostr(intC);

Label4.Caption := Floattostr(sngD);

Label5.Caption := Floattostr(dblE);

end;

1. Разместите на форме вкладка «Логические» 1 кнопку Button и 3кнопки Label.

2. Переименуйте кнопки согласно картинке выше, свойства приведены в таблице Вкладка «Логические».

1. В ыделите объект Button2, который подписан как «Определить bln1 and bln2». Перейдите в окно редактора кода и пропишите следующий код:

procedure TForm1.Button2Click(Sender: TObject);

var

bln1 : Boolean;

bln2 : Boolean;

bln3 : Boolean;

begin

bln1 := 5 3;

bln2 := 2 * 2 = 5;

bln3 := blnL1 and blnL2;

Label8.Caption := BoolToStr(bln3,True);

end;

1. Сохраните проект в новой папке, запустите его на исполнение.