
- •Структура паскаль-програми.
- •1.1. Алфавіт алгоритмічної мови турбо паскаль.
- •1.2. Структура програми.
- •2. Типи даних
- •2.2. Прості типи даних.
- •3. Введення - виведення інформації.
- •4.Лінійний обчислювальний процес.
- •Варіанти індивідуальних завдань.
- •5. Розгалужувальний обчислювальний процес.
- •Варіанти індивідуальних завдань.
- •6. Циклічний обчислювальний процес.
- •Варіанти індивідуальних завдань.
- •7. Структуровані типи даних.
- •7.1 Визначення масивів.
- •7.1. Одновимірні масиви.
- •Варіанти індивідуальних завдань.
- •7.3.Двовимірні масиви
- •8. Процедури і функції.
- •Функція Power:
Варіанти індивідуальних завдань.
По заданим катетам a і b прямокутного трикутника знайти гіпотенузу c.
2)
Знайти
,
якщо a = 1,678; b = 19,792; x = 3,67; z = 2.
3)
Знайти
,
якщо a = 5,234; b = 2,94; y = -18,32; x = 65.
Знайти середнє арифметичне і середнє геометричне трьох заданих чисел.
Знайти
,
якщо a = 2,961; b = 1,96; x = 11,271; y = 6,718.
Знайти
,
якщо a = 1,1111; b = 2,2222; x = 3,45; y = 1,234; z = 14,8.
Знайти відстань між двома точками із заданими координатами.
Знайти
,
якщо a = 1; b = 2; q = 3; x = 137; y = 1,158.
Знайти
,
якщо a = 1,957; b = 9; t = 6; x = 8,33; z = 5,777.
Для заданого цілого числа а надрукувати наступну таблицю:
а
а3 а6
а6 а3 а
Знайти
,
якщо a = 1,234; b = 0,4321; p = 2; x = 0,378.
Знайти
,
якщо a = 19,78; b = 1; x = 3,413; y = 1,789.
Обчислити об’єм кругу радіуса R.
Знайти
,
якщо a = 173,5; b = 0,8; c = 5,0839; d = -3,39; m = 4; p = -2; x = 1.
Знайти
,
якщо x = 119; y = 2,345; t = 3,788; p = 0,198
Відомий радіус окружності, підрахувати площу круга.
Знайти
,
якщо a = 1,835; b = 3; I = 3; k = 7; x = 0,2; z = 20.
Знайти
,
якщо a = -1,791; b = 2,796; x = 0,798; y = 1,678.
Дано довільний трикутник. Відомі сторони a і b і кут між ними. Знайти
третю сторону c.
Знайти
,
якщо a = 1,297; b = 0,5054; x = 2,1212; z = 0,5.
Знайти
,
якщо a = 5,65; b = 1,472; x = 1,87; y = 4,17.
22) Дано довільний трикутник із сторонами a, b і c. Знайти площу трикутника.
Знайти
,
якщо a = 3,2; b = -1,286; j = 1; x = 1,279; y = 0,679.
Знайти
,
якщо a = 1,2345; b = 3,755; p = 2,679; t = 3,896; x = 6,5432; y = 1,7654.
Дано два дійсних числа a і b. Одержати їх суму, різницю і добуток.
Знайти
,
якщо a = 6,975; k = 1; x = 2,791; y = 3,789.
Знайти
,
якщо a = 10,031; b = 2,514; s = 1,76; x = 8,76; y = 14,8.
Дано катети прямокутного трикутника. Знайти його гіпотенузу і площу.
Дана сторона рівностороннього трикутника. Знайти площу цього
трикутника.
Знайти
,
якщо a = 1,645; b = 0,069; I = 2; m = 4; x = 18; z = 3.
5. Розгалужувальний обчислювальний процес.
Обчислювальний процес, в якому обирається одна з двох або більше дій, називається розгалужувальним. Цей процес реалізується за допомогою умовного оператору або оператору вибору варіанта.
Умовний оператор дозволяє перевірити деякі умови і, в залежності від результатів перевірки, виконати ту чи іншу дію. Таким чином, умовний оператор - це засіб розгалужувального обчислювального процесу .
Структура умовного оператора:
if < умова > then < оператор 1 > [ else < оператор 2 > ] ;
де:
if , then , else - зарезервовані слова;
< умова > - довільний вираз логічного типу;
< оператор 1 > , < оператор 2 > - будь-які оператори мови Паскаль, причому частина else може бути пропущена.
ПРИКЛАД. Дано три дійсні числа a, b, c. Визначити серед них мінімальне.
Б
лок-схема:
Програма:
program Ex_if;
uses Crt;
var
a, b, c, min: real;
BEGIN
clrscr;
writeln(‘ Ввести a, b, c‘);
readln(a, b, c);
if (a<b) then
min:=a
else
min:=b;
if (c<min) then
min:=c;
writeln(‘min=’, min: 6:3)
END.