АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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

Читайте также:
  1. A COMPUTER COURSE FOR BEGINNERS
  2. Else begin
  3. Then begin
  4. Then begin
  5. Then begin
  6. Then begin

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); x2 – sqr(x);

Останню функцію можна не використовувати, бо х2=х*х тобто 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


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 |

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



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)