
- •. Система програмування Borland Pascal 7.0
- •Команди панелі кнопок та їх відповідники
- •Прості типи даних Borland (Turbo) Pascal
- •Цілочисельні типи даних
- •2. Дійсночисельні типи даних
- •Функції для виділення частин дійсних чисел
- •Основні конструкції мови програмування Borland pascal
- •5.Порядковий тип ordinal
- •Структура програми
- •Оператор присвоєння (привласнення)
- •В блоці операторів крапка з комою ставиться між операторами , в кінці програми ставиться крапка.
Label —
розділ міток , які стоять у потрібних
місцях в програмі і використовуються
для безумовних переходів операторами
goto_мітка;
Const —
розділ констант (в BP можна явно
вказувати тип константи);
Type —
розділ типів, включає опис всіх складних
і нестандартних простих типів
даних, які вживаються в програмі;
Var — розділ
змінних, включає всі змінні величини
з вказанням їх типів;
Procedure...
Function...—
розділи процедур і функцій, які мають
таку саму будову, як і основна програма:
В
кінці заголовку і кожного розділу
описової частини ставиться
крапка
з комою
Begin
Оператор1;
Оператор2;
Оператор3;
...
ОператорN
End.
Оператором
називається конструкція мови, яка
описує дію в програмі зі
строгим дотриманням формальних правил
даної мови програмування.Оператор присвоєння (привласнення)
Блок
операторів
Прості
оператори (не містять всередині
інших)
<Ім’я
змінної> := <формула>В блоці операторів крапка з комою ставиться між операторами , в кінці програми ставиться крапка.
<формула> - записується в один рядок за правилами алгебри, включає операнди (константи, змінні), знаки математичних операцій, дужки, назви функцій (стандартних і нестандартних).
Стандартні математичні функції . Аргументи і результати типу real
мат.функція |
позначення |
примітки |
|
PI |
без параметрів |
|x| |
ABS(x) |
|
х2 |
SQR(x) |
|
x |
SQRT(x) |
x>=0 |
sin x |
SIN(x) |
x в радіанах |
cos x |
COS(x) |
x в радіанах |
arctg x |
ArcTAN(x) |
результат в радіанах |
eх |
EXP(x) |
|
ln x |
LN(x) |
x>0 |
Інші математичні функції записуються з використанням стандартних.
Приклади.
x3 |
X*SQR(X) |
3x |
EXP(LN(X) /3) |
x4 |
SQR(SQR(X)) |
4x |
SQRT(SQRT(X)) |
sin 120 |
SIN(12*PI/180) |
loga x |
LN(X)/LN(A) |
tg x |
SIN(X)/COS(X) |
lg x |
LN(X)/LN(10) |
ctg x |
COS(X)/SIN(X) |
arcsin x |
ARCTAN(X/SQRT(1-SQR(X))) |
x y |
EXP(Y*LN(X)) |
arccos x |
PI/2 — ARCTAN(X/SQRT(1-SQR(X))) |
|
|
arcctg x |
PI/2 — ARCTAN(X) |
Read(
<список змінних>)
(прочитати)
ReadLn ( <список
змінних>)
(прочитати рядок)
Стандартні
процедури для виведення інформації
на
дисплей WriteLn
та Write
Список виводу
може включати константи, змінні, формули,
формати (числа, які вказують кількість
позицій для чисел або тексту) .
Елементи
списків відділяються комами.
Стандартні
процедури для введення інформації
-
(зчитування значень з клавіатури):
ReadLn та
Read
Write(
<список виводу>
)
(написати )
WriteLn ( <список
виводу> )
(написати рядок)
Розв’язок.
program Heron ;
uses Wincrt;
var a, b, c, p, S : real ;
begin
WriteLn ( ' Enter a, b, c ');
ReadLn( a , b , c);
p := ( a + b + c ) / 2 ;
S := SQRT( p * ( p - a ) * ( p - b ) * ( p - c ) ) ;
WriteLn( ' S = ' , S )
end.
Завдання 1. Скласти програму для обчислення виразу
1. |
|
|
7. |
|
|
при l=2.3, x=-1. |
|
|
при x=2.5, a=-3. |
2. |
|
|
8. |
|
|
при x=1.2. |
|
|
при x=3.2. |
3. |
|
|
9. |
|
|
при k=3, x=-2. |
|
|
при a=4.5, x=2.8. |
4. |
|
|
10. |
|
|
при a=-1, y=5.1. |
|
|
при a=-2, y=-3. |
5. |
|
|
11. |
|
|
при n=-1, z=2. |
|
|
при x=-2.7. |
6. |
|
|
12. |
|
|
при x=-1.1, v=2. |
|
|
при x=-4.1, y=5, m=-2. |
Завдання 2. Розробити алгоритм та написати відповідну програму обчислення ланцюжка арифметичних формул. Звернути увагу на правильний порядок обчислень.
– вхідні дані ввести за допомогою стандартних процедур введення;
вивести значення вхідних змінних та результати обчислень на екран.
1. |
|
|
|
a=2.5, b=-2.16 |
2. |
|
|
|
a=-0.2, b=7 |
3. |
|
|
|
a=0.6, b=3.12 |
4. |
|
|
|
c=4.5, a=2.01 |
5. |
|
|
|
a=1.75, b=0.1 |
6. |
|
|
|
a=-2.004, b=0.87 |
7. |
|
|
|
a=1.77, b=-0.62 |
8. |
|
|
|
k=14, m=0.1 |
9. |
|
|
|
c=0.2, b=1.4 |
10. |
|
|
|
x=0.2, a=-1.17 |
11. |
|
|
|
a=0.7, b=-4 |
12. |
|
|
|
m=3, n=-2.2, k=0.8 |