Then begin. writeln (‘ 1-ша точка знаходиться ближче до початку координат ‘);

writeln (‘ 1-ша точка знаходиться ближче до початку координат ‘);

writeln (‘ Її відстань=’, R1 ‘, а відстань 2-ї точки=’, R2);

End

else if R2<R1

Then begin

writeln (‘ 2-га точка знаходиться ближче до початку координат’);

writeln (‘Її відстань=’, R2 ‘,а відстань 1-ї точки=’, R1);

End

Else begin

writeln (‘ Точки знаходяться на однаковій відстані від початку координат ‘);

writeln (‘Ця відстань=’, R1);

end;

End.

У програмі використані стандартні функції:

а) корінь квадратний б) квадрат числа

- sqrt(x); x² – sqr(x);

Останню функцію можна не використовувати, бо х²=х*х тобто sqr(x)=x*x.

Приклад 3. Складіть алгоритм, що для дійсного числа а виводить у порядку зростання значення sina, cosa, .

Алгоритм має вигляд:

АЛГ Приклад_3 (дійсн a, r1, r2, r3)

АРГ а

РЕЗ r1, r2, r3

ПОЧ

ДРУКУВАТИ (“Виведення у порядку зростання значень sin(a), cos(a), sqrt(a)”)

r1:=sin(a)

r2:=cos(a)

якщо a<0

то якщо r1<=r2

то ДРУКУВАТИ (“sin(a)=”, r1, “cos(a)=”, r2)

ДРУКУВАТИ (“a<0 – обчислити корінь не можна!!!)

Інакше

ДРУКУВАТИ (“cos(a)=”, r2:8:3, “sin(a)=”, r1:6:3)

ДРУКУВАТИ (“a<0 – обчислити корінь не можна!!!”)

Все

Інакше

r3:=sqrt(a)

якщо (r1<=r2) and (r1<=r3)

то якщо r2<=r3

то ДРУКУВАТИ (“sin(a)=”, r1, “cos(a)=”, r2, “sqrt=”, r3)

Інакше

ДРУКУВАТИ (“sin(a)=”, r1, “sqrt(a)=”, r3, “cos(a)=”, r2)

Все

Інакше

якщо (r2<=r1) and (r2<r3)

то якщо r1<=r3

то ДРУКУВАТИ (“cos(a)=”, r2, “sin(a)=”, r1, “sqrt(a)=”, r3)

Інакше

ДРУКУВАТИ (“cos(a)=”, r2, “sqrt(a)=”, r3, “sin(a)=”, r1)

Все

Інакше

якщо (r3<=r1) and (r3<=r2)

то якщо r1<=r2

то ДРУКУВАТИ (“sqrt(a)=”, r3, “sin(a)=”, r1, “cos(a)=”, r2)

Інакше

ДРУКУВАТИ (“sqrt(a)=”, r3, “cos(a)=”, r2, “sin(a)=”, r1)

Все

Все

Все

Все

Все

КІН

Мовою Паскаль алгоритм має такий вигляд:

Program Example_3;

var a, r1, r2, r3: real;

Begin

write (‘Введіть число а: ‘);

readln (a);

writeln (‘ Виведіть у порядку значень sin(a), cos(a), sqrt(a)’);

r1: =sin(a);

r2: =cos(a)

if a<0

Поиск по сайту: