Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Завдання 2.2.
|
|
Лабораторна робота №2
" Розробка та реалізація програм з циклічною структурою"
Завдання 2.1.
Представити математичний запис фрагмента програми і обчислити значення результату за отриманою формулою, якщо N – це номер Вашого варіанту.
| 1. | R: =0; F: =1; j: =0; Repeat j: =j+1; F: =F*(j+1); R: =R+F/(j+2); Untilj> N; | 9. | ReadLn(A); X: =1; For j: =A DownTo N Do X: =X*j; X: =2*X; |
| 2. | Y: =0; K: =1; For i: =1 To N Do Begin K: =K*i; Y: =Y+K/(i+1) End; Y: =Y/3; | 10. | X: =0; J: =1; Repeat X: =X+J/2; J: =J+2; Until J> N; |
| 3. | Z: =1; S: =0; For j: =1 To N Do Begin S: =S+Exp(3*Ln(j)); Z: =Z*Sqr(j)/(S+1) End; | 11. | Y: =0; K: =1; i: =0; While i< = N Do Begin K: =K*(i+1); Y: =Y+K/(i+2); i: =i+1 End; |
| 4. | X: =1; J: =1; X1: =N Div 5; Repeat X: =X*X1; J: =J+1; If J=4 Then Break Until J> 5; | 12. | X: =N; For K: =1 To 6 Do Begin If K< 3 Then Continue; X: =X+1; End; |
| 5. | Z: =1; S: =0; For j: =1 To N Do Begin If Odd(j) Then S: =S+1/j; Z: =Z*S/j/j End; | 13. | R: =0; F: =1; j: =0; Repeat j: =j+1; F: =F*(j+1); R: =R+F/(j+2); Untilj> N; |
| 6. | X: =0; S: =0; i: =1; While i< = N Do Begin If i> 3 Then S: =S+j-3; X: =X+(1+S)/i; i: =i+1 End; | 14. | Y: =0; K: =1; For i: =1 To N Do Begin K: =K*i; Y: =Y+K/(i+1) End; Y: =Y/3; |
| 7. | R: =0; S: =0; J: =0; Repeat J: =J+1; S: =S+J+2.0E-02; R: =R+J/(S+J) Until J> N; | 15. | Z: =1; S: =0; For j: =1 To N Do Begin S: =S+Exp(3*Ln(j)); Z: =Z*Sqr(j)/(S+1) End; |
| 8. | S: =0; S1: =0; For k: =1 To N Do Begin S1: =S1+k+1; S: =S+k/S1 End; S: =Sqrt(S); | 16. | Z: =1; S: =0; For j: =1 To N Do Begin If Odd(j) Then S: =S+1/j; Z: =Z*S/j/j End; |
| 17. | X: =0; S: =0; i: =1; While i< = N Do Begin If i> 3 Then S: =S+j-3; X: =X+(1+S)/i; i: =i+1 End; | 21. | X: =1; J: =1; X1: =N Div 5; Repeat X: =X*X1; J: =J+1; If J=4 Then Break Until J> 5; |
| 18. | R: =0; S: =0; J: =0; Repeat J: =J+1; S: =S+J+2.0E-02; R: =R+J/(S+J) Until J> N; | 22. | X: =N; For K: =1 To 6 Do Begin If K< 3 Then Continue; X: =X+1; End; |
| 19. | S: =0; S1: =0; For k: =1 To N Do Begin S1: =S1+k+1; S: =S+k/S1 End; S: =Sqrt(S); | 23. | X: =1; While X< =N Do X: =X+1; X: =X*2; |
| 20. | Y: =0; K: =1; i: =0; While i< = N Do Begin K: =K*(i+1); Y: =Y+K/(i+2); i: =i+1 End; | 24. | X: =0; For j: =1 To N Do X: =X+2; X: =2*X; |
Завдання 2.2.
Привести алгоритми та скласти три програми табулювання функції 
на відрізку 
з кроком 
. В першій програмі повинен використовуватися цикл с параметром; в другій ‑ цикл с передумовою; в третій ‑ цикл с постумовою. Функція 
обирається згідно номера варіанта. Для розрахунків прийняти: 
; 
; 
.
| 1. | 
| 9. | 
| 17. | 
|
| 2. | 
| 10. | 
| 18. | 
|
|
| 11. | 
| 19. | 
| |
| 4. | 
| 12. | 
| 20. | 
|
| 5. | 
| 13. | 
| 21. | 
|
| 6. | 
| 14. | 
| 22. | 
|
| 7. | 
| 15. | 
| 23. | 
|
| 8. | 
| 16. | 
| 24. | 
|
|
|