І нструкція «Обчислити і присвоїти».

Формат :

По команді процесор виконує наступні дії:

1. Якщо в правій частині є змінні, їхні значення вводяться (читання) з ОП;

2. Якщо праворуч зазначені арифметичні дії, то процесор послідовно виконує їх.

3. Отримане значення записується в ОП в комірку, відведену для змінної, зазначеної в операторі ліворуч.

Наприклад:

a:= 3.056; - в ОП в комірку з умовною адресою а записується число 3,056;

f : = a; - з комірки а значення скопіювати в комірку f.

m : = (6*a-b)/3.8; - з ОП зчитати значення змінних а і b, обчислити вираз і результат записати в ОП в комірку для змінної m.

n := Round((x2-x1)/dx);

x1:= (-b + Sqrt(d)) / (2*а);

m := Random(10);

cena := StrToInt(Edit1.Text);

Edit2.Text := IntToStr(100);

mes := 'x1=' + FloatToStr(xl);

Приклад розробки проекту з числовими даними

С творити додаток «Швидкість бігуна», в якому за визначеними значеннями дистанції (м) та часу пробігу (хвил, сек) відбувається розрахунок і виведення швидкості (км/год) з точністю до сотих.

Структура форми приведена в вікні дерева об’єктів. Розмір та розташування можна визначити вручну шляхом буксування компонентів на формі. Мітки та поля введення на вкладці Stanrard, кнопка з підписом BitBtn1 на вкладці Additional. Щоб за натисканням кнопки закріпити подію – початок розрахунків та виведення результату, зробити подвійний клік по кнопці на формі, в вікні коду з’явиться шаблок процедури обробки події. Між словами begin…end; вставити приведений в вікні кода текст :

Вікно кода проекту:

П рокоментуємо команди процедури:

• Var dist, thw, tsec, vc, vd: integer; v:real; s:string; - розділ оголошень змінних, що використані в процедурі. Змінні dist, thw, tsec, vc, vd – цілого типу (integer), змінна v – дійсного типу (real), s – текстова змінна (string).

• Dist:=StrToInt(edit1.text); - значення тексту введеного користувачем в вікно введення edit1 визначає значення властивості об’єкту text. Але це значення з вікна введення сприймається як дані текстового типу. Розрахунки ж можна виконувати тільки з числовими даними. Перетворення текстових даних в числові цілого типу виконує процедура StrToInt. Перетворена інформація присвоєна змінній Dist.

• Thw:= StrToInt(edit2.text); Tsec:= StrToInt(edit3.text); - значення з вікон edit2 і edit3 зберігаються як значення змінних Thw і Tsec.

• V:=dist/(thw*60+tsec)/1000*60*60; - розраховане по формулі значення зберігається як значення змінної v.

• S:=IntToStr(trunc(v)+’,’+IntToStr(trunc(v)*100)); - перетворення результату дійсного типу на дані текстового типу.

• Label6.Caption:= ’Швидкість-’+s+’км/год’; - отриманий результат – текст – визначає нове значення властивості Caption компонента Label6. Тобто за цією командою сформований текст з’явиться в вікні програми на місті компонента Label6.