5. Опис лінійних алгоритмів мп Pascal.

5.1 Лінійний алгоритм

Задати два цілі числа, наприклад, 24 і 5. Обчислити і вивести на екран їхню суму, різницю і добуток.

Для розв'язування задачі складемо програму мовою Паскаль:

program Zadacha;

var a, b, s, r, d : integer;

begin

a := 24; b := 5;

s := a + b;

r := a - b;

d := a * b;

writeln(s, r, d);

end.

Зверніть увагу, що числа на екрані зливаються і результат зрозу­міти важко. Щоб числа не зливалися, команду writeln (s, r, d) замініть на writeln (s:4, r:4, d:6). Тут запис s:4 означає не ділення (ділення позначають /), а те, що цілому числу треба надати на екрані чотири позиції.

Виконайте програму ще раз і на екрані побачите:

29 19 120.

Задача про трикутник, заданий координатами вершин.

Задано координати вершин трикутника у площині: (x_{1 ;} y₁), (х₂ ; у₂),

(х₃ ; у₃). Обчисліть довжини його сторін (складіть програму).

Завдання. Введіть такі координати: 1, 1, 1, 4, 5, 1.

Метод розв’язування. Відстань між двома точками, які задані координатами(х_{1 ;} у₁) та (х₂ ; у₂), визначають так:

d =√ (х_{2 –} х₁)² + (у₂ - у₁)².

Розглянемо програму.

program Zadacha;

var x1, y1, x2, y2, x3, y3, a, b, c : real ;

begin

write(‘Уведіть координати: ’);

readln(x1, y1, x2, y2, x3, y3);

a := sqrt(sqr(x2 – x1) + sqr(y2 – y1));

b := sqrt(sqr(x3 – x2) + sqr(y3 – y2));

c := sqrt (sqr(x3 – x1) + sqr(y3 – y1));

writeln(‘Довжини сторін:’, a:6:2, b:6:2, c:6:2);

end.

5.2 Діалоговий алгоритм

Діалоговий (інша назва — інтерак­тивний) алгоритм імітує діалог між користувачем і комп'ютером. Відповідна програма складається в основному з команд writeln та readln. Діалог можна використовувати під час введення даних з метою отримати на екрані підказку про те, що саме треба ввести, наприклад, так:

write ('Введіть значення радіуса R: '); readln (R);

Екран матиме такий вигляд: Введіть значення радіуса R: 5 Повідомлення «Введіть значення радіуса R: » виводить комп'ютер, а число 5 чи інше користувач набирає сам і натискає на клавішу вводу.

String – дані , значеннями яких є група символів (слово або деякий текст), називаються текстовими(інший термін - рядки).Ознакою текстової сталої є одинарні лапки (апострофи),між якими записана група символів, а саме ‘5’ ,‘Сума =’ ,‘Оля Курочка’.

Отже, 2008 – це ціла числова стала, ‘2008’- текстова стала.Якщо текст містить апост роф, то він дублюється, наприклад, ‘Мар”яна’, ‘ім”я’.

Текстові дані типу string можуть містити до 255 символів, однак часто потрібна менша кількість символів n, яку задають в описах так: string [n].

Скласти програму діалогу користувача з комп'ютером за таким сценарієм: комп'ютер запитує користувача як того звати, користувач вводить своє ім'я, комп'ютер вітається і пропонує з ним поспілкуватися на тему улюбленого предмету.

program Dialog;

uses Crt;

var name, g, с : string; n : integer;

begin cirscr;

writeln(' Як тебе звати?');

readln(name); {треба буде ввести текст}

writeln('Привіт, ', name);

writeln('Поспілкуєшся зі мною?');

readln(g); {відповідай: так}

writeln('Скільки уроків сьогодні?');

readln(n); {треба буде ввести число}

writeln (‘Який твій улюблений предмет?');

readln(c); {треба буде ввести текст}

writeln('Добре, ', с, ' - важливий предмет');

writeln('Bye - бувай')

end.