Хід роботи:

1. Створити програму, яка за 8 кроків міняючи лише одну букву в слові міняє слово, причому кожна з проміжних слів має зміст.

2. Написати програму, яка імітує рух «бегущей строки».

3. Створити програму, яка імітує посимвольне падіння рядка, починаючи з останнього на нижній строчку екрана.

Контрольні питання

1. Що таке рядкова величина?

2. Що таке символьна величина?

3. Чи сумісні символьний та рядковий типи даних? Поясніть.

4. Як надати значення рядковій величині?

5. Як склеїти два рядки?

6. Чим відрізняється процедура copy від процедури insert?

7. Чим відрізняється процедура від функції?

8. Запишіть команди, які знайдуть місце положення букв А в слові «САЛАМАНДРА».

9. Запишіть команди, які перетворять рядок «КИЇВ» в символьний масив?

Лабораторна робота № 16 (18) Тема: Створення та реалізація програм, що використовують програми функції.

Мета: Уміти створювати та опрацьовувати програми, що використовують підпрограми функції.

Теоретичні відомості

У структурному програмуванні поряд із процедурами широко застосовуються функції. Відмінність від процедур полягає в тому, що результатом функції є єдине значення. Це обчислювальне значення надається ідентифікатору функції. Структура опису функції аналогічна опису процедури, і докладно ми на ній не зупинятимемося.

Наведемо приклад опису і використання функції для обчислення виразу.

Обчислення модуля оформимо як функцію користувача Modul.

proqram SumMod;

vax

X, Y: real;

function Modul (X: real);

beqin

if X<0 then X:=-X;

Modul:=X

end;

beqin

Writeln (‘Введите Х‘);

Readln (X);

Y:=Modul (X+1)+Modul (X+2);

Writeln (Y:6:3);

end.

У наступному прикладі показане обчислення цілого степеня числа, тобто степеневої функції Y=X^N. Цієї функції немає серед вбудованих функцій Паскаля, тому для її обчислення вводимо функцію користувача Deq. Піднесення числа до цілого степеня виконуємо за допомогою оператора циклу while:

Proqram Deqree;

Var

Z,F: real;

M: inteqer;

Function Deq (N: inteqer; X real) : real;

var

I: inteder; Y real;

beqin

I:=1; Y=1;

while I<=N do

beqin

Y:=Y*X; I:=I+1

end;

Deq:=Y

end;

beqin

Writeln (‘Введите Z ,M‘);

Readln (Z,M);

F:=Deq (M,Z);

Writeln (F:8:3);

end.

Хід роботи

1. Створіть функції, яка рахує значення тангенса і інші для гіперболічних функцій і включіть їх у програму, яка малює графіки sh(x), сh(x), th(x), сth(x). Вибираючи їх зі списку.

2. Створіть програму знаходження коренів квадратного рівняння з довільним значенням коефіцієнтів використовуючи функцію для знаходження дискримінанта і коренів.

3. Створити програму, яка в довільному тексті заміняє всі літери А на О, а одиниці на 0.

Контрольні запитання

1. Які підпрограми використовуються в Турбо Паскаль?

2. Що таке функція, і для чого вона використовується?

3. Як оформляється процедура в Паскаль?

4. Що таке вхідні і вихідні параметри?

5. На які етапи можна розбити виконання процедури?