ЛАБОРАТОРНА РОБОТА № 10
Тема: Розміщення на формі елементів керування та настроювання їх властивостей.
Мета роботи: набуття практичних навичок роботи у середовищі програмування, запуск програм на виконання.
Порядок виконання: 1. Ввімкнути комп’ютер.
2. Ознайомитися з режимом допомоги у середовищі
програмування.
3. Завантажити програму у середовищі
програмування.
4. Виконати індивідуальне завдання.
5. Оформити звіт.
Вміст звіту: 1. Лист з назвою теми, метою роботи, контрольними
питаннями та ходом роботи.
2. Звіт виконання індивідуального завдання.
3. Висновки.
Контрольні питання: 1. Поняття програми.
2. Поняття про мови програмування.
3. Інтегроване середовище програмування Турбо
Паскаль..
4. Основні елементи мови програмування Паскаль.
5. Структура програми.
Хід роботи
1. Ввімкнути комп’ютер. Запустити програму Турбо Паскаль.
2. Розглянемо програму з назвою Trykutnyk для розв’язування задачі:
Дано координати трьох вершин трикутника А(1;1), В(2;2) та С(-1;2).
Обчислити медіану m b та радіус описаного кола R.
program TrykutnykNew;
uses Crt;
var x1,y1,x2,y2,x3,y3,a,b,c,mb,r,x,y,p,s: real;
begin
clrscr;
writeln(‘Введіть координати:’);
readln(x1,y1,x2,y2,x3,y3);
a:=sqrt(sqr(x3-x2)+sqr(y3-y2)); (обчислимо довжини сторін
трикутника)
b:=sqrt(sqr(x1-x3)+sqr(y1-y3)); (
c:=sqrt(sqr(x1-x2)+sqr(y1-y2));
x:=(x1+x3)/2; (обчислимо координати середини сторони b)
y:=(y1+y3)/2;
mb:=sqrt(sqr(x-x2)+sqr(y-y2)); ( обчислимо медіану mb)
p:=(a+b+c)/2; (обчислимо півпериметр)
s:=sqrt(p*(p-a)*(p-b)*(p-c)); (обчислимо площу)
r:=a*b*c/(4*s); (обчислимо радіус)
writeln(‘mb=’, mb:5:2); (виведемо результати)
writeln(‘r=’, r:5:2); (виведемо радіус)
readln
end.
3 – 10. Розвязати задачу свого варіанта.
Дано координати трьох вершин трикутника А(0;0), В(i; i-1) та
С(-i; i+1), де i – номер варіанта.
1 варіант. Обчислити висоту ha та бісектрису Wc.
2 варіант. Обчислити медіану ma та бісектрису Wb.
3 варіант. Обчислити бісектрису Wa та радіус вписаного кола r.
4 варіант. Обчислити висоту ha та медіану mb.
5 варіант. Обчислити медіану mb та бісектрису Wc.
6 варіант. Обчислити бісектрису Wa та радіус описаного кола R.
7 варіант. Обчислити висоту hb та бісектрису Wa.
8 варіант. Обчислити висоту hb та медіану mc.
9 варіант. Обчислити висоту ha та радіус вписаного кола r.
10 варіант. Обчислити медіану mс та бісектрису Wа.
11 варіант. Обчислити висоту hb та бісектрису Wс.
12 варіант. Обчислити медіану mс та радіус вписаного кола r.
13 варіант. Обчислити висоту hb та медіану mа.
14 варіант. Обчислити медіану ma та радіус описаного кола R.
15 варіант. Обчислити медіану ma бісектрису Wc.
16 варіант. Обчислити висоту hс та бісектрису Wа.
17 варіант. Обчислити медіану mb та радіус вписаного кола r.
18 варіант. Обчислити висоту hс та медіану mа.
19 варіант. Обчислити медіану mb та бісектрису Wа.
20 варіант. Обчислити медіану mс та радіус описаного кола R.
21 варіант. Обчислити висоту hс та бісектрису Wb.
22 варіант. Обчислити висоту hс та медіану mb.
23 варіант. Обчислити висоту ha та радіус описаного кола R.
24 варіант. Обчислити висоту hа та бісектрису Wb.
25 варіант. Обчислити висоту hа та медіану mс.
11. Оформити звіт.
12. Зробити висновки.
