Базові елементи мови: типи даних, цілочисельні типи даних, дані дійсних типів, дані типу string, Детальна інформація

real Дійсні (6 байтів)

double Дійсні довгі (8 байтів)

extended Дійсні дуже довгі (12 байтів)



Дійсні короткі та просто дійсні дані – це числа у звичайному (з десятковою крапкою) чи показниковому форматі mep з максимальним значенням1038 , а довгі – це числа у звичайному чи показниковому форматі mep з мак4симальним значенням 10308.

Значення дійсного числа в інформатиці записують так:

mep = m*102



Де m – мантиса, Е – хнова десяткової системи числення, р – порядок.

Приклад 1.

6.25Е+01=6.25*101=62.5;

-0.12500Е+01=-0.125*101=-1.25;

3.1415Е-06=3.1415*10-6=0.0000031415

Приклад 2. Нехай відомо, що маса деякої речовини може набувати не цілочислового значення (1,5 кг тощо). Масі речовини поставлено у відповідність змінну з іменем ________. Тому змінну маса оголосити як дане числового дійсного типу так:

var masa: real.

6. Дані типу String

Дані, значеннями яких є група символів (слово або деякий текст), називають текстовими (інший термін - рядки). Назва цього типу даних – string. Ознакою текстової сталої, є одинарні ланки (апострофи), між якими записана група символів, а саме: “5”, “Lviv”,“Київ”. Отже 2001 – це ціла числова стала, а “2001” – текстова стала. Якщо текст містить апостроф, то він дублюється, наприклад “ім’я”. Текстові дані типу string можуть містити до 255 символів, однак часто потрібна менша кількість символів n, яку задають в описах так: string [n].

Приклад 3. Оголосити змінні а1, а2, а3 як дійсні, в1, в2 – як цілі, а с1 – як текстову можна так:

var а1 а2 а3: real;

в1, в2 : integer; c1:string;

Вправи та задачі

Складіть алгоритми розв’язування наступних задач (вважаючи, що всі вхідні дані і результати є цілими числами – даними типу integer).

Визначіть силу F , що діє на тіло з масою m , яке рухається з прискоренням а (формула F= mа) ?

Виконуємо програму і на екрані отримуємо: 40.

Обчисліть вартість а театральних квитків по 4 грн. і в квитків по

6 грн. окремо і всіх разом.

Program syla;

Var

a, c1, b, c2, v1, v2, v: integer;

begin