Оператор привласнювання
Загальний вид - V:=A.
Тут V - змінна, A - вираз, := - операція привласнювання. Вираз А може містити константи, змінні, назви функцій, знаки операцій і дужки. Наприклад:
y:= 2*x+3*sin(sqr(x))/cos(z);
k:= a < b * m.
Для піднесення до ступеня використовується рівність ax=exlna. Тому при необхідності обчислити y=ax, можна записати оператор:
y:=exp(x*ln(a)).
У виразі дії виконуються зліва направо з дотриманням такого старшинства:
1) вираз у дужках;
2) not;
3) *, /, div, mod, and;
4) +, -, or;
5) =, <>, <, >, <=, >=, in.
Змінній типу integer не можна привласнювати вирази типу real.
Оператори уводу-виводу
Оператори уводу-виводу мають вид:
- read (список уводу);
- readln (список уводу);
- write (список виводу);
- writeln (список виводу).
Оператори readln і writeln здійснюють після уводу і виводу перехід до нового рядка. У списках уводу - виводу перелічуються через кому імена змінних. Наприклад:
read(k,ab); writeln(y1,zk).
На друк можна виводити довільний набір символів, який взято в апострофи, наприклад:
writeln(’ x1=’,x1).
Для перемінних, які виводяться, можна явно вказати число позицій, наприклад, для цілої перемінної:
write(’k=’, k:6),
а для дійсної:
write(’k=’, k:10:4),
де 10 - загальне число позицій, з них 4 - під дробну частину.
Приклади виконання завдання лабораторної роботи
Приклад 15. Скласти програму для обчислення функції
,
де b = x(arctgy + e-x+3); x = 4,2; y = 1,7.
Паскаль - програма для даного прикладу має вид
program pr15;
var x,y,a,b,c,d:real;
begin
x:=4.2; y:=1.7;
b:=x*(arctan(y)+exp(-x+3));
c:=sqrt(abs(x-1))-exp(ln(abs(b))/3);
d:=1+sqr(x)/2+sqr(sqr(y))/5;
a:=c/d;
writeln(‘ b=‘,b,’ a=‘,a)
End.
Приклад 16. Трикутник заданий довжинами сторін. Знайти радіуси вписаного й описаного кола.
Якщо сторони трикутника позначити через а,b,c, напівпериметр через р, а площу через s, то можемо записати:
.
Паскаль-програма для даного прикладу має вид
program pr16;
uses crt;
var a,b,c,p,s,rb,rm:real;
z:char;
begin clrscr;
WRITE('УВЕДИ СТОРОНИ ТРИКУТНИКА: ');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
rm:=s/p;
rb:=a*b*c/(4*s);
writeln(‘ a= ‘,a,‘ b= ‘,b,’ c= ‘,c);
writeln(‘ rm= ‘,rm,‘ rb= ‘,rb);
z:=readkey
end.
Завдання до лабораторної роботи
Складіть програму для обчислення функції b=f(x,y,z), де z=(x,y). Вид функції і вхідні дані наведені в таблиці 14.
Таблиця 14
|
Вар. |
f(x,y,z) |
(x,y) |
x |
y |
|
1 |
e|x-y|(tg2z)x |
|
-4,52 |
0,75 |
|
2 |
|
|
2,87 |
0,84 |
|
3 |
|
|
0,42 |
-0,87 |
|
4 |
|
|
5,34 |
3,85 |
|
5 |
|
|
-2,75 |
-1,42 |
|
6 |
|
|
1,82 |
18,25 |
|
7 |
|
|
1,54 |
-3,26 |
|
8 |
|
|
1,82 |
18,23 |
|
9 |
|
|
-0,85 |
1,25 |
Продовження таблиці 14
|
Вар. |
f(x,y,z) |
(x,y) |
x |
y |
|
10 |
|
|
0,12 |
-8,75 |
|
11 |
|
|
1,58 |
3,42 |
|
12 |
|
|
-15,24 |
4,67 |
|
13 |
|
|
6,55 |
-2,78 |
|
14 |
|
|
0,84 |
0,65 |
|
15 |
|
|
1,12 |
0,87 |
|
16 |
|
|
0,27 |
4,38 |
|
17 |
|
|
6,35 |
7,32 |
|
18 |
|
2sin(x+y) |
3,91 |
-0,51 |
|
19 |
|
|
0,42 |
1,23 |
|
20 |
|
|
4,32 |
-0,54 |
|
21 |
|
|
0,83 |
2,38 |
Продовження таблиці 14
|
Вар. |
f(x,y,z) |
(x,y) |
x |
y |
|
22 |
|
|
-0,93 |
-0,25 |
|
23 |
|
|
3,25 |
4,12 |
|
24 |
|
|
-0,72 |
-1,42 |
|
25 |
|
|
3,98 |
-1,63 |
|
26 |
|
|
-0,62 |
5,54 |
|
27 |
|
|
-4,58 |
2,32 |
|
28 |
|
|
-3,44 |
5,28 |
|
29 |
|
|
5,48 |
2,25 |
|
30 |
|
|
3,42 |
-1,45 |
