Лабораторна Робота № 8. Тема: turbopascal. Циклічні програми , які містять розгалуження

Тема: TurboPascal. Циклічні програми, які містять розгалуження.

 

Мета: Формування умінь створення циклічних програм, які містять розгалуження алгоритмічною мовою високого рівня Pascal.

 

Теоретичні відомості

Цикл - це процес виконання певного набору команд певну кількість разів. Розрізняють цикли, де кількість повторень відома заздалегідь і цикли, де вона заздалегідь невідома, але її можна визначити під час виконання циклу.

Для виконання поставленої задачі необхідно:

- побудувати графічний алгоритм;

- скласти програму з використанням операторів циклу та розгалуження;

- вивести на друк результати виконання програми;

- розв’язати задачу на ЕОМ в діалоговому режимі;

- проаналізувати одержані результати.

 

Хід роботи

2.1 Постановка задачі

 

Обчислити різницю між максимальним і мінімальним значеннями функції:

= 0,28.

Аргумент х змінюється від початкового значення 0,1 з кроком 0,32 до кінцевого значення 6,5.

 

2.2 Графічний алгоритм показаний на рис. 8.1

 

2.3 Таблиця ідентифікації змінних

 

Змінна	Ідентифікатор
	А
y	Y
x	X
Максимальний елемент	max
Мінімальний елемент	min
Різниця	rizn

 

2.4 Програма мовою Pascal та результати обчислень

 

Program C_R{цикли_розгалуження};

Const

a=0.28;

Var

y,x,max,min,rizn:real;

Begin

x:=0.1;

max:=cos(x-a)/sqrt(x);

min:=cos(x-a)/sqrt(x);

while x<=6.5 do begin

y:=cos(x-a)/sqrt(x);

if y>max then max:=y;

if y<min then min:=y;

x:=x+0.32; end;

rizn:=max-min;

writeln('Результати обчислень: ');

writeln('max=',max:6:3,' min=',min:6:3);

writeln('rizn=',rizn:6:3);

end.

Результати обчислень:

max=3.111 min=-0.546

rizn=3.658

 

 

ні ні

 

 

так так

 

 

Рисунок 8.1 – Графічний алгоритм

 

3 Контрольні запитання

1. Які дані необхідні для організації циклу?

2. Що таке цикл?

3. Напишіть програму без застосування оператора циклу.

4. Чи може розгалуження не входити до тіла циклу?

5. Побудуйте програму з використанням оператора циклу з післяумовою.

6. Як побудувати програму мовою TurboPascal за допомогою оператора циклу з параметром?

 

Варіанти завдань наведені нище:

 

8.1. Обчислити значення функції

у набуває значення від 0 до 8 з кроком 0,15.

8.2. Обчислити значення функції

,

де =2; 2,4; 2,8; 3,2; 3,6; 4,0;

q=0,1; 0,3; 1,1; 1,25; 1,9; 2,8.

Величини і q змінюються одночасно.

8.3. Знайти найменше значення функції і відповідне їй значення аргумента:

Аргумент змінюється від початкового значення 0,3 з кроком 0,25 до кінцевого значення 3,3 (радіан).

8.4. Вивести на друк тільки від’ємні значення і їх кількість:

Аргумент х змінюється від початкового значення 1,1 з кроком 0,2 до кінцевого 4,1.

8.5. Знайти найменше додатнє і найменше від’ємне значення функції і відплвідне їм значення аргумента:

Аргумент х змінюється від початкового значення 0,1 з кроком 0,15 до кінцевого 3,1 (радіан).

8.6. Обчислити різницю між максимальним і мінімальним значеннями функції:

= 0,28.

Аргумент х змінюється від початкового значення 0,1 зкроком 0,32 до кінцевого значення 6,5.

8.7. Знайти квадрат максимального значення функції:

b = 4,85.

Аргумент х змінюється від початкового значення 1/16 з кроком 0,25 до кінцевого 4,2.

8.8. Обчислити всі значення функції і аргумента:

Аргумент b змінюється від початкового значення 9,5 з кроком 0,25 до кінцевого 12,75.

8.9. Обчислити значення функції і вивести на друк окремо відємні, а окремо додатні значення функції і відповідні значення їм аргументів:

Аргумент х змінюється від початкового значення 1,2 з кроком 0,15 до кінцевого 4,4.

8.10. Вивести на друк значення функції, які задовольняють умову у<2,5 i y>1,5:

Аргумент а змінюється від початкового значення 1,15 до кінцевого 6,3. Кількість значень аргумента n=9.

8.11. Вивести на друк значення, які задовольняють умову у>1,35 i y<2,4, і відповідні значення аргумента. Аргумент х змінюється від 0,42 до 0,86 з кроком 0,04:

8.12. Обчислити добуток мінімального і максимального значень функції. Кількість значень аргумента n=19. Аргумент y змінюється від початкового значення 0,1 з кроком 0,75 (радіан):

8.13. Вивести на друк значення функції, які лежать в межах

a>b>c, підрахувати їх кількість.

Аргумент х змінюється від початкового значення 3,4 з кроком 0,11 до кінцевого 6,6.

8.14. Обчислити 20 значень функції і відповідних значень аргумента, а також окремо вивести на друк максимальне зна-чення функції:

Аргумент с змінюється від початкового значення 1,35 до кінцевого 4,35 з постійним кроком.

8.15. Вивести на друк ті значення функції у і їх кількість, які лежать в межах 2,5>y>-1,5:

Аргумент с змінюється від початкового значення 4,2 до 8,3 з кроком 0,15.

8.16. Обчислити члени послідовності

які задовольняють умову 1,5<a<3,8; m=1,2,3,...,16.

8.17. Обчислити таблицю значень функції

для значень х, які змінюються від 0,5 до 8,5 включно з кроком 0,05. При цьому, якщо знаменник менше 10^-3 за абсолютним значенням, то покласти у=10⁶. Коефіцієнти а і b ввести з клавіатури.

8.18. Скласти блок-схему алгоритму і програму для розв’язу-вання квадратного рівняння

Якщо дискримінант додатній, то вивести на друк дійсні корені. Якщо дискримінант від’ємний, то вивести окремо дійсну і уявну частини коренів. Введення чисел a, b, q виконати з клавіатури.

8.19. За відомими декартовими координатами х і у довільної точки на площині визначити її полярні координати ρ і φ. При цьому

а полярний кут

8.20. Обчислити пари функцій f₁ i f₂, якщо межі зміни аргументів однакові. На друк вивести значення функції і аргумента.

Якщо аргумент лежить за вказаними межами, то вивести на друк значення аргумента і повідомлення “ФУНКЦІЯ НЕ ЗНАЙДЕНА”. Числові значення аргумента ввести з клавіатури.

8.21. Температуру з градусів за шкалою Цельсія (С) в градуси за шкалою Фаренгейта (F) переводять за залежністю

.

Перевести температури від 12^ОС до 30^ОС з кроком 1^ОС.

8.22. Зміна потужності випромінювання ізотопів Q в чаС t описується залежністю

де - початкова потужність; - період піврозпаду.

Визначити, через скільки діб потужність випромінювання ізотопу, період піврозпаду якого дорівнює 8 діб, знизиться до безпечної величини 0,15 рентгена на годину, рентгена на годину.

8.23. Тиск рідини з глибиною зростає. Надрукувати таблицю зміни тиску глинистого розчину в середині через кожні 150 м.

Глибина свердловини - 1800 м, густина розчину =1300 кг/м.

8.24. За перший рік розробки нафтового родовища видобуток нафти склав 200 тис. т на рік. В наступні роки видобуток нафти зростав на 8% за рік. Визначити, скільки буде видобуто нафти з родовища за 25 років.

8.25. Для умови задачі 4,24 обчислити, через який найменший строк видобуток нафти складатиме не менше 350 тис. т нафти за рік.