ОТ_МЕТОД_КП_Ч1
.pdfВаріант 6
|
п.п. |
Змінна |
Тип |
Вивести на екран |
|
Примітка |
|
1 |
a |
integer |
a+c-3*f-1 |
|
|
|
|
f |
word |
f+(b-c+2*f) |
|
|
|
|
c |
integer |
c-f+a |
|
|
|
2 |
a |
byte |
a*b |
|
|
|
|
b |
real |
a/b |
|
|
|
3 |
a |
longint |
a*x*t |
3 |
знаки після коми |
|
|
x |
real |
a*(a+x)/t |
1 |
знак після коми |
|
|
t |
real |
a/t*(a+x/t) |
6 |
знаків після коми |
Варіант 7 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
п.п. |
Змінна |
Тип |
Вивести на екран |
|
Примітка |
|
1 |
a |
integer |
a+b |
|
|
|
|
b |
byte |
a+b-c |
|
|
|
|
c |
integer |
a-b-c |
|
|
|
2 |
a |
real |
a*b |
|
|
|
|
b |
real |
a/b |
|
|
|
3 |
a |
longint |
a*x*t |
3 |
знаки після коми |
|
|
x |
real |
a*(a+x)/t |
2 |
знак після коми |
|
|
t |
byte |
a/t*(a+x/t) |
5 |
знаків після коми |
Варіант 8 |
|
|
|
|
|
|
|
|
|
|
|||
|
п.п. |
Змінна |
Тип |
Вивести на екран |
Примітка |
|
|
1 |
a |
integer |
-a-b |
|
|
|
|
b |
byte |
-a+b |
|
|
|
|
c |
byte |
a-b+c |
|
|
|
2 |
a |
integer |
a*b |
|
|
|
|
b |
real |
a/b |
|
|
|
3 |
a |
longint |
a*x*t |
3 |
знаки після коми |
|
|
x |
integer |
a*(a+x)/t |
2 |
знаки після коми |
|
|
t |
real |
a/t*(a+x/t) |
6 |
знаків після коми |
Варіант 9 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
п.п. |
Змінна |
Тип |
Вивести на екран |
|
Примітка |
|
1 |
a |
word |
a+b |
|
|
|
|
b |
integer |
a-b |
|
|
|
|
c |
longint |
a+b-c |
|
|
|
2 |
a |
integer |
a*b/5 |
6 |
знаків після коми |
|
|
b |
real |
a/b |
|
|
|
3 |
a |
longint |
a*x*t/3 |
3 |
знаки після коми |
|
|
x |
real |
a*(a+x)/t |
1 |
знак після коми |
|
|
t |
real |
a/t*(a+x/t) |
|
|
10
Варіант 10
|
|
п.п. |
Змінна |
Тип |
Вивести на екран |
|
Примітка |
|
|||||
|
|
1 |
|
|
a |
integer |
a+b |
|
|
|
|||
|
|
|
|
|
b |
word |
a+b-c |
|
|
|
|||
|
|
|
|
|
c |
longint |
a-b-c |
|
|
|
|||
|
|
2 |
|
|
a |
byte |
a*b |
|
|
|
|||
|
|
|
|
|
b |
real |
a/b |
|
|
|
|||
|
|
3 |
|
|
a |
longint |
a*x*t |
3 |
знаки після коми |
|
|||
|
|
|
|
|
x |
longint |
a*(a+x)/t |
1 |
знак після коми |
|
|||
|
|
|
|
|
t |
real |
a/t*(a+x/t) |
7 |
знаків після коми |
|
|||
Варіант 11 |
|
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
п.п. |
Змінна |
|
Тип |
|
Вивести на екран |
|
|
Примітка |
|
||
|
1 |
|
|
a |
|
longint |
|
a+b |
|
|
|
|
|
|
|
|
|
|
b |
|
integer |
|
a+b-c |
|
|
|
|
|
|
|
|
|
c |
|
word |
|
a-b+c+1 |
|
|
|
|
|
2 |
|
|
a |
|
integer |
|
a*b |
|
|
|
|
|
|
|
|
|
|
b |
|
real |
|
a/b |
|
|
|
|
|
3 |
|
|
a |
|
longint |
|
a*x*t |
|
3 знаки після коми |
|
||
|
|
|
|
|
x |
|
real |
|
a*(a+x)/t |
|
2 знаки після коми |
|
|
|
|
|
|
|
t |
|
real |
|
a/t*(a+x/t) |
|
10 знаків після коми |
|
|
Варіант 12 |
|
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
||||||
|
|
п.п. |
Змінна |
Тип |
Вивести на екран |
|
Примітка |
|
|||||
|
|
1 |
|
|
a |
integer |
a+b |
|
|
|
|||
|
|
|
|
|
b |
shorint |
a+b-c |
|
|
|
|||
|
|
|
|
|
c |
integer |
a-b-c |
|
|
|
|||
|
|
2 |
|
|
a |
integer |
a*b |
|
|
|
|||
|
|
|
|
|
b |
real |
a/b |
|
|
|
|||
|
|
3 |
|
|
a |
longint |
2/a*x*t |
4 |
знаки після коми |
|
|||
|
|
|
|
|
x |
real |
a*(a+x)/t |
1 |
знак після коми |
|
|||
|
|
|
|
|
t |
real |
a/t*(a+x/t) |
5 |
знаків після коми |
|
|||
Варіант 13 |
|
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
||||||
|
|
п.п. |
Змінна |
Тип |
Вивести на екран |
|
Примітка |
|
|||||
|
|
1 |
|
|
a |
integer |
a+b |
|
|
|
|||
|
|
|
|
|
b |
word |
a+b-c |
|
|
|
|||
|
|
|
|
|
c |
integer |
a-b-c |
|
|
|
|||
|
|
2 |
|
|
a |
integer |
1/(a*b) |
|
|
|
|||
|
|
|
|
|
b |
real |
a/b |
3 |
знаки після коми |
|
|||
|
|
3 |
|
|
a |
byte |
a*x*t |
|
|
|
|||
|
|
|
|
|
x |
longint |
a*(a+x)/t |
3 |
знак після коми |
|
|||
|
|
|
|
|
t |
real |
a/t*(a+x/t) |
1 |
знаків після коми |
|
|||
11
Варіант 14
|
п.п. |
Змінна |
Тип |
Вивести на екран |
Примітка |
|
|||
|
1 |
|
a |
integer |
a+b |
|
|
|
|
|
|
|
b |
integer |
a+b-c |
|
|
|
|
|
|
|
c |
integer |
a-b-c |
|
|
|
|
|
2 |
|
a |
integer |
a*b |
|
|
|
|
|
|
|
b |
real |
a/b |
|
|
|
|
|
3 |
|
a |
longint |
a*x*t |
3 |
знаки після коми |
|
|
|
|
|
x |
real |
a*(a+x)/t |
1 |
знак після коми |
|
|
|
|
|
t |
real |
a/t*(a+x/t)/3 |
6 |
знаків після коми |
|
|
Варіант 15 |
|
|
|
|
|
|
|
||
|
|
|
|
|
Примітка |
|
|
||
|
п.п. |
Змінна |
Тип |
Вивести на екран |
|
||||
|
1 |
|
a |
integer |
a+b |
|
|
|
|
|
|
|
b |
integer |
a+b-c |
|
|
|
|
|
|
|
c |
shorint |
a-b-c |
1 знак після коми |
|
|
|
|
2 |
|
a |
integer |
a*b |
|
|
||
|
|
|
b |
real |
a/b |
3 знаки після коми |
|
|
|
|
3 |
|
a |
word |
a*x*t |
|
|
||
|
|
|
x |
real |
a*(a+x)/t |
6 знаків після коми |
|
|
|
|
|
|
t |
real |
5/t*(a+x/t) |
|
|
||
Варіант 16 |
|
|
|
|
|
|
|
||
|
|
|
|
||||||
|
п.п. |
Змінна |
Тип |
Вивести на екран |
Примітка |
|
|||
|
1 |
|
a |
integer |
a+b |
|
|
|
|
|
|
|
b |
word |
a+b-c |
|
|
|
|
|
|
|
c |
integer |
a-b-c |
|
|
|
|
|
2 |
|
a |
integer |
a*b |
|
|
|
|
|
|
|
b |
real |
a/b |
|
|
|
|
|
3 |
|
a |
longint |
a*x*t |
3 |
знаки після коми |
|
|
|
|
|
x |
real |
a*(a+x)/t |
1 |
знак після коми |
|
|
|
|
|
t |
real |
a/t*(a+x/t) |
6 |
знаків після коми |
|
|
Варіант 17 |
|
|
|
|
|
|
|
||
|
|
|
|
||||||
|
п.п. |
Змінна |
Тип |
Вивести на екран |
Примітка |
|
|||
|
1 |
|
a |
integer |
a+b |
|
|
|
|
|
|
|
b |
integer |
a+b-c |
|
|
|
|
|
|
|
c |
integer |
a-b-c |
|
|
|
|
|
2 |
|
a |
integer |
a*b |
|
|
|
|
|
|
|
b |
real |
a/b |
|
|
|
|
|
3 |
|
a |
longint |
a*x*t |
3 |
знаки після коми |
|
|
|
|
|
x |
real |
a*(a+x)/t |
1 |
знак після коми |
|
|
|
|
|
t |
real |
1/t*(a+x/t) |
6 |
знаків після коми |
|
|
12
Варіант 18
|
п.п. |
|
Змінна |
Тип |
Вивести на екран |
Примітка |
||
|
1 |
|
a |
integer |
a+b |
|
|
|
|
|
|
b |
integer |
a+b-c |
|
|
|
|
|
|
c |
integer |
a-b-c |
|
|
|
|
2 |
|
a |
integer |
a*b-1 |
|
|
|
|
|
|
b |
real |
a/b+5 |
2 |
знаки після коми |
|
|
3 |
|
a |
longint |
a*x*t |
3 |
знаки після коми |
|
|
|
|
x |
real |
a*(a+x)/t |
7 |
знаків після коми |
|
|
|
|
t |
real |
a/t*(a+x/t) |
|
|
|
Варіант 19 |
|
|
|
|
|
|
||
|
|
|
|
|
|
|
||
|
п.п. |
Змінна |
Тип |
Вивести на екран |
Примітка |
|||
|
1 |
|
a |
longint |
a+b |
|
|
|
|
|
|
b |
integer |
a+b-c |
|
|
|
|
|
|
c |
byte |
a-b-c |
|
|
|
|
2 |
|
a |
integer |
a*b |
2 знаки після коми |
|
|
|
|
|
b |
real |
a/b |
|
|
|
|
3 |
|
a |
longint |
a*x*t |
3 знаки після коми |
|
|
|
|
|
x |
real |
a*(a-x)/t |
1 знак після коми |
|
|
|
|
|
t |
byte |
a/t*(a-x*x) |
|
|
|
Варіант 20 |
|
|
|
|
|
|
||
|
|
|
|
|||||
|
п.п. |
Змінна |
Тип |
Вивести на екран |
Примітка |
|||
|
1 |
|
a |
integer |
a+b |
|
|
|
|
|
|
b |
integer |
a+b-c |
|
|
|
|
|
|
c |
integer |
a-b-c |
|
|
|
|
2 |
|
a |
integer |
a*b |
|
|
|
|
|
|
b |
real |
a/b |
|
|
|
|
3 |
|
a |
longint |
a*x*t |
3 |
знаки після коми |
|
|
|
|
x |
real |
a*(a+x)/t |
1 |
знак після коми |
|
|
|
|
t |
real |
a/t*(a+x/t) |
6 |
знаків після коми |
|
Варіант 21 |
|
|
|
|
|
|
||
|
|
|
|
|||||
|
п.п. |
Змінна |
Тип |
Вивести на екран |
Примітка |
|||
|
1 |
|
a |
integer |
a+b |
|
|
|
|
|
|
b |
integer |
a+b-c |
|
|
|
|
|
|
c |
integer |
a-b-c |
|
|
|
|
2 |
|
a |
integer |
a*b-a |
|
|
|
|
|
|
b |
real |
a/b+b |
|
|
|
|
3 |
|
a |
longint |
a*x*t |
3 |
знаки після коми |
|
|
|
|
x |
real |
a*(a+x)/t |
1 |
знак після коми |
|
|
|
|
t |
real |
a/x*(a+x/t) |
6 |
знаків після коми |
|
13
Варіант 22
|
п.п. |
Змінна |
Тип |
Вивести на екран |
Примітка |
||
|
1 |
|
a |
longint |
a+b |
|
|
|
|
|
b |
integer |
a+b-c |
|
|
|
|
|
c |
shortint |
a-b-c |
|
|
|
2 |
|
a |
integer |
a*b |
|
|
|
|
|
b |
real |
a/b |
|
|
|
3 |
|
a |
longint |
a*x*t |
3 знаки після коми |
|
|
|
|
x |
real |
a*(a+x)/t |
1 знак після коми |
|
|
|
|
t |
real |
a/t*(a+x/t) |
6 знаків після коми |
|
Варіант 23 |
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
п.п. |
Змінна |
Тип |
Вивести на екран |
Примітка |
||
|
1 |
|
a |
integer |
a+b |
|
|
|
|
|
b |
integer |
a+b-c |
|
|
|
|
|
c |
shortint |
a-b-c |
|
|
|
2 |
|
a |
integer |
a*b |
|
|
|
|
|
b |
real |
a/b |
|
|
|
3 |
|
a |
longint |
a*x*t |
3 знаки після коми |
|
|
|
|
x |
real |
a*(a+x)/t |
1 знак після коми |
|
|
|
|
t |
word |
a/t*(a+x/t) |
6 знаків після коми |
|
Варіант 24 |
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
п.п. |
Змінна |
Тип |
Вивести на екран |
Примітка |
||
|
1 |
|
a |
integer |
a+b |
|
|
|
|
|
b |
longint |
a+b-c |
|
|
|
|
|
c |
integer |
a-b-c |
|
|
|
2 |
|
a |
integer |
a*b |
|
|
|
|
|
b |
real |
a/b |
|
|
|
3 |
|
a |
byte |
a*x*t |
3 знаки після коми |
|
|
|
|
x |
real |
a*(a+x)/t |
1 знак після коми |
|
|
|
|
t |
word |
a/t*(a+x/t) |
6 знаків після коми |
|
Варіант 25 |
|
|
|
|
|
||
|
|
|
|
|
|||
|
п.п. |
Змінна |
Тип |
Вивести на екран |
Примітка |
||
|
1 |
|
a |
integer |
a+b |
|
|
|
|
|
b |
integer |
a+b-c |
|
|
|
|
|
c |
integer |
a-b-c |
|
|
|
2 |
|
a |
integer |
a*b |
|
|
|
|
|
b |
real |
a/b |
|
|
|
3 |
|
a |
longint |
a*x*t |
4 знаки після коми |
|
|
|
|
x |
real |
a*(a+x)/t |
2 знак після коми |
|
|
|
|
t |
real |
a/t*(a+x/t) |
4 знаків після коми |
|
14
Стислі теоретичні відомості
Розробник системи Turbo Pascal – фірма Borland International виникла в
1984 році і за порівняно короткий час неодноразово дивувала користувачів персональних EOM своїми Turbo системами. Було випущено декілька версій
Turbo Pascal 3.0, 4.0, 5.0, 6.0, 7.0 Pascal for Windows, Borland Pascal.
Головні особливості мови Turbo Pascal:
широкий спектр типів даних;
можливість обробки рядкових та структурних даних;
достатній набір операторів управління розгалуженнями та циклами;
відносно слабкі можливості введення виведення даних ;
добре розвинутий апарат підпрограм;
зручні конструкції роботи з файлами;
великі можливості управління усіма ресурсами персональної
EOM.
різноманітні варіанти стикування з мовою Асемблера;
використання інтегрованого середовища, яке значно підвищує
продуктивність праці користувача;
підтримка ідей об’єктно-орієнтованого програмування.
дає можливість потрапити в середовище Dos.
Контрольні питання
1.Що таке алгоритм?
2.Що таке програма?
3.Яка відмінність між програмою та алгоритмом?
4.На які етапи можна поділити вирішення програмістської задачі?
5.Опишіть структуру програми на мові Turbo Pascal.
15
6.З яких розділів складається програма на мові Turbo Pascal?
7.Що таке змінна?
8.Що таке ідентифікатор?
9.Яка різниця між змінною та ідентифікатором?
10.Що таке оператор?
11.Що таке операнд?
12.Для чого призначений розділ опису констант? Наведіть приклад. 13.В якому розділі описуються змінні? Наведіть приклад.
14.Для чого призначений розділ опису типів? Наведіть приклад. 15.Як позначається оператор присвоєння? Опишіть роботу оператора
присвоєння.
16.Назвіть оператори виводу. Наведіть приклад.
17.Назвіть оператори вводу. Наведіть приклад.
18.Що таке коментар до коду програми. Для чого він призначений. Яким чином в Turbo Pascal позначається коментар до програмного коду?
19.Як створити новий файл у середовищі програмування Turbo Pascal? 20.Як зберігати файл у середовищі програмування Turbo Pascal? 21.Як відкрити існуючий файл у середовищі програмування Turbo
Pascal?
22.Як виконати пошук тексту у файлі в середовищі Turbo Pascal? 23.Як запустити програму на виконання в середовищі Turbo Pascal? 24.Що таке компілятор та інтерпретатор? Яка між ними різниця? 25.Як виконати пооператорне виконання програми в Turbo Pascal? 26. Хто із якою метою розробив мову програмування Pascal?
16
Комп’ютерний практикум №2
Знайомство з середовищем Turbo Pascal. Частина 1.
Мета
Ознайомиться з середовищем програмування Turbo Pascal. Засвоїти роботу операторів вводу, виводу. Навчитись застосовувати програми для вирішення елементарних геометричних та фізичних задач.
Робоче завдання
Вміти створювати, зберігати, відкривати, запускати програми. Вивчити структуру програми на мові Turbo Pascal. Знати розділи з яких складається програма. Мати поняття змінна, константа, оператор, операнд. Засвоїти роботу операторів вводу, виводу.
Хід роботи
Написати програми для вирішення геометричної та фізичної задач.
Варіанти завдань
Геометричні задачі
1.Знайти периметр квадрата зі стороною a.
2.Знайти площу квадрата зі стороною a.
3.Знайти площу прямокутника зі сторонами a, b.
4.Знайти периметр прямокутника зі сторонами a, b.
5.Знайти довжину кола, якщо його діаметр рівний d. В якості значенняπ використовувати вбудовану константу «pi».
6.Знайти площу поверхні куба, якщо довжина ребра рівна a.
7.Знайти об’єм прямокутного паралелепіпеда, якщо довжини ребер складає a, b, c.
8.Знайти об’єм кулі з радіусом R. В якості значення π використовувати вбудовану константу «pi».
9.Знайти площу ромба з діагоналями d1 та d2.
17
10.Знайти площу поверхні конуса, якщо висота конуса H, радіус основи конуса R. В якості значення π використовувати вбудовану константу
«pi».
11.Знайти площу трапеції з оновами a, b та висотою H. 12.Знайти площу прямокутника зі сторонами a, b. 13.Знайти периметр квадрата зі стороною a.
14.Знайти довжину кола, якщо його діаметр рівний d. В якості значенняπ використовувати вбудовану константу «pi».
15.Знайти площу поверхні куба, якщо довжина ребра рівна a. 16.Знайти площу поверхні конуса, якщо висота конуса H, радіус основи
конуса R. В якості значення π використовувати значення «3.14». 17.Знайти площу рівностороннього трикутника зі стороною a. 18.Знайти довжину кола, якщо його діаметр рівний d. В якості значення
π використовувати вбудовану константу «pi».
19.Знайти об’єм прямокутного паралелепіпеда, якщо довжини ребер рівні a, b, c.
20.Знайти площу ромба з діагоналями d1 та d2. 21.Знайти периметр квадрата зі стороною a. 22.Знайти периметр прямокутника зі сторонами a, b.
23.Знайти довжину кола, якщо його діаметр рівний d. В якості значенняπ використовувати значення «3.14».
24.Знайти площу трапеції з оновами a, b та висотою H.
25.Знайти довжину кола, якщо його радіус рівний R. В якості значенняπ використовувати вбудовану константу «pi».
Фізичні задачі
1.Знайти силу струму на ділянці кола, якщо відомі напруга U, та опір
R.
2.Знайти загальний опір на ділянці кола при паралельному з’єднанні опорів R1, R2.
18
3.Знайти потенційну енергію тіла масою m, що розташовано на висоті h. Прискорення вільного падіння вважати рівним g=9.8 м/с2.
4.Знайти густину тіла масою m та об’ємом V.
5.Знайти швидкість V через час t після початку руху, якщо початкова швидкість рівна V0, а прискорення a.
6.Знайти імпульс тіла масою m, яке рухається зі швидкістю v.
7.Знайти величину заряду, який пройшов через поперечний переріз провідника за час t, якщо сила струму рівна I.
8.Знайти потужність електричного струму, якщо сила струму I, напруга U.
9.Визначити величину доцентрового прискорення, якщо швидкість рівна v, радіус кола рівний r.
10.Визначити, яка кількість тепла виділяться провідником за час t, якщо сила струму рівна I, опір ділянки кола складає R.
11.Визначити силу гравітаційної взаємодії, якщо маси тіл складають m1 та m2 і розташовані на відстані r одне від одного.
12.Визначити величину виконаної роботи, якщо тіло було переміщено на відстань s під дією сили F.
13.Знайти момент сили, якщо на тіло діє сила F, довжина плеча складає
I.
14.Знайти силу Архімеда, що діє на тіло, якщо густина рідини складає ρ, об’єм V.
15.Знайти тиск на глибині h, якщо густина рідини складає ρ. 16.Знайти кінетичну енергію тіла масою m, що рухається зі швидкістю
v.
17.Знайти ККД теплового двигуна, якщо кількість тепла отриманого від нагрівача рівна Q1, а кількість тепла, що віддана холодильнику
Q2.
18.Визначити, яку кількість тепла необхідно виробити, щоб перетворити воду об’ємом V та температурою 100о С на пару.
19