Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Laboratorni_roboti_z_PASCAL.doc
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
1.14 Mб
Скачать

Створення простих програм. Основи алгорітмізації

Написати програми, що вирішують слідуючи задачі. При прогамуванні не використовувати цикли, масиви чи пользовательські функції.

№ варіанту

Умова завдання

1

2

1

Дано 4 числа A, B, C, D. Знайти суму двох середніх чисел.

2

Трикутник задан довжиною сторін A, B, C. Визначити тип трикутника, якщо трикутник можливий: (різносторонній, рівнобідренний чи рівносторонній), (гострокутний, прямокутний чи тупокутний).

3

Трикутник задан довжиною сторін A, B, C. Визначити відношення радіусів описаного кола к вписаному колу трикутника, якщо трикутник можливий.

4

Трикутник задан довжиною сторін A, B, C. Визначити відношення площі трикутника к площі вписаному в трикутник кола, якщо трикутник можливий.

5

На складі маємо N деталей. 12 деталей пакуються в одну коробку. 14 коробок складаються в один контейнер. Визначити скільки повних контенерів, які можливо вивести зі склада.

6

Трикутник задан довжиною сторін A, B, C. Знайти довжину найбільшої медіани.

7

Трикутник задан довжиною сторін A, B, C. Знайти довжину найменьшої бісектриси.

8

Опуклий чотирикутник задан довжиною сторін AB, BC, CD, DA та діагонал’ю AC. Визначити, чи можливо вписати в чотирикутник коло.

9

Опуклий чотирикутник задан довжиною сторін AB, BC, CD, DA. Визначити, чи можливо описати навколо чотирикутника коло.

10

Задана куля діаметром R1 та правильний ціліндр діаметром R2 та висотою H. Вивести TRUE, якшо площа кулі більша ніж повна площа циліндру. Інакше вивести FALSE.

11

Задана куля діаметром R1 та правильний ціліндр діаметром R2 та висотою H. Вивести TRUE, якшо об’єм кулі більша ніж об’єм циліндру. Інакше вивести FALSE.

12

Дано ціле цисло W. Вивести TRUE, якщо число кратне 7 та не кратне 11. Інакше вивести FALSE.

13

Ввести букву. Визначити чи належить вона українській абетці. Якщо так, то визначити голосна вона чи приголосна.

14

Дани три числа. Знайти добуток найбільшого з них на найменьше.

15

Дани три числа. Знайти дробну частину середньоаріфметичного цих чисел.

16

Дани три числа. Знайти дробну частину середньогеометричного цих чисел, якщо це можливо.

17

Знайти добуток чотирьох цифр чотирьохзначного цілого числа.

18

Дано чотирьохзначне число. Вивести TRUE, якщо сума перших двох цифр більша ніж сума двох останніх. Інакше вивести FALSE.

19

Трикутник задан координатами трьох точок A(X1,Y1,Z1), B(X2,Y2,Z2), C(X3,Y3,Z3). Визначити площу трикутника.

20

Дано ціле чотирьохзначне число. Визначити чи кратне це число першій цифрі даного числа.

21

Дано ціле чотирьохзначне число. Визначити залишок від цілочисельного поділу цього числа на першу цифру даного числа.

1

2

22

Дано тризначне ціле число. Знайти добуток цифр цього числа і визначити його парність.

23

Трикутник задан довжиною сторін A, B, C. Визначити радіус кола описаного навкола трикутник та визначити довжину цього кола, його плошу та об’єм кулі даного радіуса

24

Задани 2 трикутники з довжиною сторін відповідно A1, B1, C1 та A2, B2, C2. Визначити площа якого трикутника більша.

25

Трикутник задан довжиною сторін A, B, C. Знайти значення кутів цього трикутника (в радіанах).

26

Дани чотири числа. Знайти добуток двох середніх чисел.

27

Дани три цілих числа. Вивести TRUE, якщо вони мають однакову парність.

28

Дано ціле чотирьохзначне число. Вивести суму парних цифр цього числа та добуток непарних цифр цього числа.

29

Дано ціле чотирьохзначне число. Вивести суму непарних цифр цього числа та добуток парних цифр цього числа.

30

Знайти добуток цифр чоторьохзначного цілого числа та визначити, чи парне отримане число чи непарне.

Цикли

  1. Приблизно обчислити інтеграл , використовуючи формулу центральних прямокутників , де , , .

  2. Знайти суму ряду з точністю . Якщо можливо, то використати схему Горнера знаходження суми ряду.

Вихідні данні згідно свого варіанту взяти з таблиць.

До завдання 1

№ вар.

Інтеграл

№ вар.

Інтеграл

№ вар.

Інтеграл

1

11

21

2

12

22

3

13

23

4

14

24

5

15

25

6

16

25

7

17

27

8

18

28

9

19

28

10

20

30

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]