1 2

Дані, значеннями яких є група символів (слово або деякий текст), називають текстовими (інший термін - рядки). Назва цього типу даних - 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

c1:=4; c2:=6; a:=20; b:=15; v:= v1+v2;

writeln (v1:6, v2:6, v:6);

readln

end.

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

3. Від міста А до В автомобіль їхав t1 год. зі швидкістю V1 км/год., від В до С - t2 год. зі швидкістю V2 км/год., від С до D - t3 год. зі швидкістю V3 км/год.,

Визначіть відстань між містами і пройдений шлях.

Programviostane;

Var

t1, V1, t2, V2, t3, V3, ab, bc, cd, ad : integer;

begin

t1:=6; t2:=3;t3:=5; V1:=60; V2:=65; V3:=80;

ab:= V1* t1; bc:= V2* t2; cd:= V3* t3; ad:=ab+bc+cd

writeln (ab:6, bc:6, cd:6, ad:6);

readln

end.

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

1 2