Підпрограми у мові Turbo Pascal

1. Порівняти значення виразів і .

Вимоги до програми: описати та використати функцію:

Назва функції	Результат функції		Параметри функції
	Тип	Опис	Ідентифікатори	Тип	Призначення
Step	Дійсне число	Обчислення	a	Дійсне число	Основа степеня
			b	Дійсне число	Показник степеня

2. Обчислити площу опуклого N-кутника, заданого координатами вершин.

Вимоги до програми:

• використати метод поділу N-кутника на трикутники;

• описати тип даних TPoint (модель точки);

• описати та використати функції:

  Назва функції	Результат функції		Параметри функції
  	Тип	Опис	Ідентифікатори	Тип	Призначення
  GetPoint	Boolean	Введення з клавіатури координат точки. При введенні коректних даних повертає значення True	TextAsk	Текстовий рядок	Повідомлення про дані, які потрібно ввести
  			Var P	TPoint	Координати точки
  Leng	Дійсне число	Відстань між двома точками площини	A, B	TPoint	Координати двох точок площини
  Area	Дійсне число	Площа трикутника (використати функцію Leng)	A, B, C	TPoint	Координати трьох точок площини – вершин трикутника

• для «справжній програмістів» – здійснити перевірку N-кутника на опуклість.

3. Обчислити площу N-кутника, заданого координатами вершин.

Вимоги до програми:

• використати метод трапецій;

• описати тип даних TPoint (модель точки);

• описати та використати функції:

Назва функції	Результат функції		Параметри функції
	Тип	Опис	Ідентифікатори	Тип	Призначення
GetPoint	Boolean	Введення з клавіатури координат точки. При введенні коректних даних повертає значення True	TextAsk	Текстовий рядок	Повідомлення про дані, які потрібно ввести
			Var P	TPoint	Координати точки
Area	Дійсне число	Площа прямокутної трапеції	A, B	TPoint	Координати двох точок – сусідніх вершин N-кутника

4. Два натуральних числа називаються дружними, якщо кожне з них дорівнює сумі всіх дільників іншого, крім самого числа. Написати програму для знаходження дружних чисел на проміжку від А до В.

Вимоги до програми: описати та використати функцію:

Назва функції	Результат функції		Параметри функції
	Тип	Опис	Ідентифікатори	Тип	Призначення
SumDiv	Довге ціле число	Сума всіх дільників числа, крім нього	А	Довге ціле число	Натуральне число

5. Обчислити визначений інтеграл за формулою трапецій:

, де .

Вимоги до програми:

• вхідні дані вибрати в таблиці за номером в журналі академічної групи:

  №	f(x)	a	b	n		№	f(x)	a	b	n
  1				20		9		10.5	17.5	40
  2		0		30		10		0	5	24
  3		6.2	8.4	32		11		-3	5	50
  4		0.45	0.61	15		12		3	9	30
  5		3.75	5.5	22		13				40
  6		0.53	0.71	14		14		0	100	28
  7		3.4	5.6	25		15				34
  8		2.1	12.1	36		16		1	10	30

• описати та використати в програмі функцію за такими характеристиками:

Назва функції	Результат функції		Параметри функції
	Тип	Опис	Ідентифікатори	Тип	Призначення
Func	Дійсне число	Математична функція	Х	Дійсне число	Аргумент функції
Integral	Дійсне число	Визначений інтеграл	А, В	Дійсне число	Межі інтегрування
			N	Ціле число	Кількість точок розбиття

6. Написати програму для знаходження координат точки перетину двох відрізків, які задані координатами своїх кінців у декартовій системі координат.

Вимоги до програми:

• описати тип даних TPoint (модель точки площини);

• описати та використати у програмі процедури за такими характеристиками:

Назва процедури	Опис процедури	Параметри процедури
		Ідентифікатори	Тип	Призначення
EnterPoint	Введення з клавіатури координат точки	Var P	TPoint	Координати точки
		TextAsc	String	Повідомлення про дані, які потрібно ввести
PrintPoint	Виведення на екран координат точки у вигляді (x, y)	P	TPoint	Координати точки
PointAB	Знаходження координат точки перетину відрізків (AB), (CD). Якщо F – True, то R – точка перетину двох відрізків	Var R	TPoint	Координати точки перетину двох відрізків
		A, B, C, D	TPoint	Координати кінців двох відрізків
		Var F	Boolean	True – існує єдина спільна точка

7. Написати програму для впорядкування рядків двовимірного масиву цілих чисел розмірами за зростанням елементів вказаного номера стовпця.

Вимоги до програми:

• описати тип даних TTable (модель таблиці з фіксованими максимальними розмірами);

• здійснити виведення елементів таблиці до та після впорядкування;

• описати та використати процедури:

Назва процедури	Опис процедури	Параметри процедури
		Ідентифікатори	Тип	Призначення
Enter Table	Введення розмірності та елементів таблиці	Var A	TTable	Таблиця
		Var N, M	Integer	N – кількість рядків M – кількість стовпців
Write Table	Виведення елементів таблиці	A	TTable	Таблиця
		N, M	Integer	Розмірність таблиці
Sort Table	Впорядкування рядків таблиці A за вказаним номером стовпця К	Var A	TTable	Таблиця
		N, M	Integer	Розмірність таблиці
		K	Integer	Номер стовпця

8. Написати програму для знаходження розв’язків системи двох лінійних рівнянь з двома невідомими.

Вимоги до програми:

• використати метод Крамера;

• описати тип TTable як двовимірний масив розмірності ;

• описати та використати процедури:

Назва процедури	Опис процедури		Параметри процедури
			Ідентифікатори	Тип	Призначення
EnterTable	Введення коефіцієнтів рівнянь		Var A	TTable	Таблиця
WriteTable	Виведення системи рівнянь у вигляді:		A	TTable	Таблиця
ExistSolve	Визначення існування та кількості розв’язків системи рівнянь: при К=0 – розв’язків не існує; при К=1 – існує єдиний розв’язок; при К=2 – існує безліч розв’язків.		A	TTable	Таблиця
			Var K	Byte	0, 1, 2
GetV	Обчислення визначника:	V при N=0 при N=1 при N=2	A	TTable	Таблиця
			N	Byte	0, 1, 2
			Var V	Real	Визначник
Solve	Знаходження єдиного розв’язку системи лінійних рівнянь		A	TTable	Таблиця
			Var X, Y	Real	Розв’язок системи лінійних рівнянь

9. Написати програму для реалізації «Текстового редактора».

Вимоги до програми:

1. Робота програми здійснюється в залежності від вибору одного з пунктів:

1 – перегляд файлу 2 – створення файлу 3 – вихід з програми.

Після виконання дій в кожному випадку реалізувати можливість повторного вибору.

У разі вибору пункту 1 виконати дії:

• ввести з клавіатури ім’я файлу;

• вивести вміст файлу на екран.

У разі вибору пункту 2 виконати дії:

• ввести з клавіатури ім’я файлу;

• повторити виконання дій: ввести з клавіатури текстовий рядок та зберегти його у файлі; припинити при введенні порожнього рядка.

У разі вибору пункту 3 здійснити вихід з програми.

Працювати з файлами поточного каталогу.

2. Описати та використати процедури:

Назва процедури	Опис процедури	Параметри процедури
		Ідентифікатори	Тип	Призначення
Write Menu	Виведення пунктів меню
GetItem	Введення з клавіатури номера вибраного пункту меню з перевіркою коректності введення даних	Var N	Byte	Номер пункту меню
ReadNameFile	Введення з клавіатури імені файлу з перевіркою коректності введення даних	Var Name	String	Ім’я файлу
ViewFile	Перегляд вмісту файлу	Name	String	Ім’я файлу
CreateFile	Створення файлу	Name	String	Ім’я файлу

10. Написати програму для реалізації гри «Бики – Корови».

Вимоги до програми:

1. Гра відбувається за такими правилами:

Комп’ютер «загадує» чотиризначне натуральне число з різними цифрами. Користувач намагається відгадати, вводячи з клавіатури свій варіант загаданого числа. Комп’ютер у відповідь виводить на екран інформацію у вигляді «Биків – т Корів – п», де т – кількість цифр, які входять до записів загаданого і введеного чисел в однакових позиціях, а п – кількість цифр, які входять до записів загаданого і введеного чисел в різних позиціях.

Наприклад, загадане число 2871.

Для введеного числа 3715 за програмою на екран буде виведено «Биків – 0 Корів – 2». Цифри 7 і 1 входять до записів чисел 2871, 3715 в різних позиціях. В записі загаданого числа 2871 цифра 7 вказує на кількість десятків, а в записі введеного числа 3715 – на кількість сотень. В записі загаданого числа 2871 цифра 1 вказує на кількість одиниць, а в записі введеного числа 3715 – на кількість десятків.

Для введеного числа 9857 за програмою на екран буде виведено «Биків – 1 Корів – 1». Цифра 7 в записі загаданого числа 2871 вказує на кількість десятків, а в записі введеного числа 9857 – на кількість одиниць. Цифра 8 в записах чисел 2871, 9857 вказує на кількість сотень.

Гра закінчується, якщо у відповідь на введене користувачем число на екран буде виведено повідомлення «Биків – 4 Корів – 0», тобто загадане комп’ютером число буде відгадано.

2. описати та використати процедури:

Назва процедури	Опис процедури	Параметри процедури
		Ідентифікатори	Тип	Призначення
GetNumber	Комп’ютером «загадується» чотиризначне число з різними цифрами	Var Х	Word	«загадане» число
ReadNumber	Введення числа з клавіатури, з перевіркою коректності введених даних – число має складатися з чотирьох різних цифр. Порожній рядок – ознака закінчення програми	Var N	Word	Введене число
GetResult	Аналіз та виведення на екран повідомлень: якщо число не відгадано, то – у вигляді «Биків – т Корів – п»; якщо число вгадане, то – повідомлення про кількість спроб.	Х	Word	Х – «загадане число»
		N	Word	N – введене число
		Var F	Boolean	True – число відгадане

Індивідуальне завдання № 2