Тема: Turbo Pascal.Циклічні алгоритми і програми з накопиченням суми та добутку
Мета: Формування умінь створення циклічних алгоритмів і програм з накопиченням суми та добутку алгоритмічною мовою високого рівня Turbo Pascal.
Теоретичні відомості
Якщо необхідно обчислити суму значень деякої функції y=f(x) при різних значення аргументу, то доцільно буде організувати цикл, в якому не тільки обчислюються поточні значення функції, але й накопичується їхня сума шляхом додавання одержаної суми до попередньої суми. Тому формула, що використовується для накопичення суми, має вигляд . При першому виконанні циклу обчислюється значення , яке рівне . Тому початковому значенню суми перед циклом потрібно привласнити значення 0.
Аналогічно накопичується і добуток, тільки з тою різницею, що для його накопичення використовується формула , а початковому значенню добутку привласнюється значення 1.
Хід роботи
2.1 Постановка задачі
Обчислити , де елементи масиву . Елементи масиву ввести довільні.
|
|
2.2 Графічний алгоритм показаний на рис. 12.1
2.3 Таблиця ідентифікації змінних
Змінна | S | Xi |
Ідентифікатор | s | X[i] |
Рисунок 12.1 – Графічний алгоритм
2.4 Програма мовою Pascal та результати обчислень
Program NS{накопичення суми};
Var
s:real;
i:integer;
x:array[1..20] of real;
Begin
writeln('Введіть значення елементів масиву Х: ');;
for i:=1 to 20 do
begin
write('X[',i:2,']=');
readln(x[i]);
end;
s:=0;
for i:=1 to 20 do
s:=s+sqr(x[i]);
writeln('РЕЗУЛЬТАТИ РОЗРАХУНКУ:');
writeln('Сума =',s:6:2);
end.
РЕЗУЛЬТАТИ РОЗРАХУНКУ:
Сума = 8400.00
3 Контрольні запитання
1. Яка структура алгоритму накопичення суми?
2. Яка структура алгоритму накопичення добутку?
3. Чому змінній, в якій накопичується добуток, перед його обчисленням присвоюють одиницю?
4. Яка структура алгоритму знаходження парних чисел; чисел, кратних трьом, п’яти?
5. Побудуйте розгалуження за допомогою логічного умовного оператора.
6. Як побудувати програму накопичення суми і добутку, користуючись циклічними структурами з передумовою, з післяумовою?
Варіанти завдань наведені нище:
12.1. Обчислити значення функції
Аргумент х змінюється від початкового значення 1,3 до кінцевого значення -14,3. Кількість значень аргумента n=9; a=1,32.
12.2. Обчислити значення функції
Аргумент z змінюється від початкового значення 1,2 з кроком 0,25 до кінцевого 4,2; х=8,35; а=3,214.
12.3. Дано одновимірний масив з 25 чисел. Знайти суму перших непарних 11 чисел.
12.4. Дано одновимірний масив Y, який складається з 15 елементів. Обчислити функцію
12.5. Дано одновимірний масив С, який складається з 15 елементів. Обчислити і надрукувати добуток додатних і суму від’ємних елементів.
|
|
12.6. Дано одновимірний масив С, який складається з 12 елементів. Обчислити всі значення функції, а також суму значень функцій для від’ємних елементів масиву:
12.7. Дано одновимірний масив А, який складається з 18 елементів. Обчислити і надрукувати суму від’ємних парних елементів.
12.8. Дано одновимірний масив Т, який складається з 18 елементів. Обчислити і надрукувати добуток перших 7 елементів і суми наступних елементів, які знаходяться на парних позиціях.
12.9. Дано одновимірний масив С, який складається з 15 елементів. Обчислити і надрукувати добуток непарних елементів і їх кількість.
12.10. Дано одновимірний масив Y, який складається з 14 елементів. Обчислити і надрукувати суму перших 8 елементів і добуток наступних елементів, які діляться на 3 з остачею 2.
12.11. Дано два одновимірні масиви чисел Х і Т, кожний з яких складається з 12 елементів. Обчислити:
12.12. Знайти середнє арифметичне з модулів обчислених значень функції
12.13. Дано два одновимірні вектори Х і Т, кожний з яких складається з 10 елементів. Обчислити їх скалярний добуток.
12.14. Обчислити значення
де аі, bі визначаються за формулами
12.15. Дано одновимірний масив М, який складається з 18 елементів. Обчислити кількість від’ємних елементів і їх суму.
12.16. Обчислити
12.17. Дано одновимірний масив С, який складається з 16 елементів. Обчислити середнє арифметичне значення парних елементів масиву, які діляться на 3 з остачею 1.
12.18. Дано одновимірний масив Р, який складається з 12 елементів. Обчислити суму модулів всіх від’ємних елементів більших від числа А (А=1,25). Число А ввести з клавіатури.
12.19. Дано одновимірний масив В, який складається з 12 елементів. Обчислити добуток елементів масиву, які не дорівнюють нулю, значення яких знаходяться в межах А<B(I)<C, і їх кількість. Значення А і С ввести з клавіатури.
12.20. Дано цілочисловий одновимірний масив А, який складається з 14 елементів. Обчислити і надрукувати суму парних елементів, які знаходяться на непарних позиціях, і їх кількість.
12.21. Обчислити значення функції , причому b змінюється від 0,9 до 1,7 з кроком 0,2. Знайти середнє значення різниці між елементами обчисленого вектора А і заданого вектора С, який складається з 5 елементів, за формулою
12.22. Обчислити скалярний добуток векторів X, Y. Вектор заданий, а значення елементів вектора Х обчислити за формулою
12.23. Дано координати 12 свердловин (хі, уі, і=1,2,...,12) і координати групового пункту збору нафти хп, уп. Визначити віддаль від кожної свердловини до групового пункту і суму цих віддалей.
12.24. На складі є 12 одиниць обладнання, відома вартість кожної одиниці. Визначити сумарну вартість обладнання і середнє значення вартості одиниці обладнання і відхилення вартості кожної одиниці від середньої.
12.25. В цеху встановлено 15 одиниць обладнання, кожне з яких відпрацювало термін (від 5 до 15 років), відома вартість кожної одиниці обладнання. Визначити сумарну вартість, кількість одиниць обладнання, що працювало більше 10 років, і його вартість.
12.26. Обчислити суму за формулою:
Результат обчислень вивести на друк.